Ввод в TextBox определенных комбинаций цифр

@Qwerty416 · Регистрация: 29.01.2013

Студворк — интернет-сервис помощи студентам

Помогите !
Нужно вводить в тексбокс определенные комбинации цифр, например:1234 и 6789
все остальные комбинации цифр, на угад так сказать , не должны вводиться!
И при нажатии CommandButton программа должна пропускать дальще, только если в Textbox введен корректное значение 1234 или 6789!!!!
Как єто сделать?

@Catstail · 08.12.2013, 15:10

Тебе нужно, чтобы неправильную комбинацию нельзя было ввести, или, чтобы программа ее не "пропускала" дальше? Второе совсем просто: в процедуре-события нажатия на кнопку анализуй TextBox.Text.

@Alex77755 · 08.12.2013, 15:12

Можно даже при вводе проверять.
А можно при нажатии кнопки.
Если у вас при нажатии кнопки, то в событие CommandButton_Click вписать код считывания содержимого и сравнивать его с корректными значениями. Соответствует - продолжать выполние программы.
Не соответствует - на ваше усмотрение. Выдать сообщение, очистить поле или др.
Вот только одно замечание: Это форум программистов и тут мало кто летат, что бы производить разбор полётов

Создавайте темы с осмысленными и понятными названиями

@Qwerty416 · 08.12.2013, 18:43 **[ТС]**

А можно попросить вас код ) и тот и тот) я потом подставлю, и по наглядности посмотрю какой будет лучше))) Если вам конечно не тяжело )

@Alex77755 · 08.12.2013, 18:48

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Текст1_Change()
    ' здесь твой код
End Sub
 
 
Private Sub Комманда1_Click()
    ' здесь твой код
End Sub

@Qwerty416 · 08.12.2013, 18:55 **[ТС]**

спасибо большое!!!!
Текст 1 -TextBox
команда1-Commonbutton
я же правильно все понят?))
Позиция Change()
Click() в скобках нужно чтото указывать?

@Alex77755 · 08.12.2013, 19:12

Для процедуры события не нужно

Добавлено через 1 минуту
команда1-Commonbutton правильно. У меня русский VB6 поэтому такие названия

@Qwerty416 · 08.12.2013, 19:12 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Text12_Change()
18924359
27901011
20312304
End Sub
Private Sub Command1_Click()
18924359
27901011
20312304
End Sub

Вот примерно так Это выглядит! я запустил прожиг, но код как то не действует, я и без него могу переходить на следующую страницу)) Может чтото не так я написал)

@Alex77755 · 08.12.2013, 19:13

Для получения своих процедур сделай даблклик по контролу

@Qwerty416 · 08.12.2013, 19:18 **[ТС]**

Ой ё, такое впечетление что ты сейчас как то не на нашем мне чтото сказал))))
Я могу попросить код) я же говорил что я не разбираюсь, я сам методом тыка как то учусь)
что такое даблклик и как его сделать по контролу?? и контрол -это что ????

@Alex77755 · 08.12.2013, 19:22

Надо же считать данные из тексбокса и сравнить! примерно

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Комманда2_Click()
Dim X As Integer
X = Текст1
If X = 18924359 Or X = 27901011 Then
    MsgBox "OK", 64, ""
Else
    MsgBox "NO", vbCritical, ""
End If
End Sub

Добавлено через 3 минуты

я и без него могу переходить на следующую страницу

Страницу чего? Оперы-мини на смартфоне?

@The trick · 08.12.2013, 19:22

Сообщение от Alex77755

Dim X As Integer

Не Integer, а хотя-бы Long. И надо проверять строку, какой смысл переводить ее в число? К тому же это может вызвать ошибку. Если надо запретить ввод, то нужно делать по другому, в событии KeyDown или KeyPress пропускать символы исходя из выделения в текстбоксе.

@Alex77755 · 08.12.2013, 19:24

Какая связь между страницами текстбоксами с кнопкой?

Добавлено через 1 минуту
Ну да 18924359>Integer
Строкой лучше

@Qwerty416 · 08.12.2013, 19:25 **[ТС]**

Просто переход

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Text12_Change()
 
 
End Sub
Private Sub Command1_Click()
 
Me.Hide
Form2.Show
End Sub
 
Private Sub Form_Load()
Form6.Caption = " list 3"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
End Sub

в моем случае X = Текст1 это Text12 ???

@Alex77755 · 08.12.2013, 19:29

то нужно делать по другому, в событии KeyDown или KeyPress пропускать символы исходя из выделения в текстбоксе

Тоже сначала была такая идея. Но подумал, что если это ввод пароля, то будет подсказка.
Если же ввод номера страницы перехода, то можно при вводе проверять и пропускать

@Qwerty416 · 08.12.2013, 19:44 **[ТС]**

А можно просто в параметрах моего Text12 позадавать в какойто строчке коды и только их можно будет вписывать, и соответсвенно как то так заблокировать страницу, чтобы только при заполненом Text12 можно было переходить на следующуу страницу)))

Если нет то можно пожалуйста полный код от начала и до конца, а то у меня голова взыраеться))))

@Alex77755 · 08.12.2013, 21:36

просто в параметрах моего Text12 позадавать в какойто строчке коды и только их можно будет вписывать

Так нельзя

Добавлено через 1 минуту
Как вариант можно вписать в Tag и потом при вводе разбивать на массив и проверять

Добавлено через 8 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Load()
Текст1.Tag = "111;222;333;444;555;666"
End Sub
 
Private Sub Комманда1_Click()
Dim S() As String
Dim i
S = Split(Текст1.Tag, ";")
For i = 0 To UBound(S)
If Текст1 = S(i) Then GoTo 1
Next i
MsgBox "Не судьба", vbCritical, ""
Текст1 = ""
Exit Sub
1
MsgBox "Угaдал!", 64, ""
'здесь твой код
End Sub

@Qwerty416 · 10.12.2013, 02:50 **[ТС]**

Слушайте а код реально сработал, только коды вписываются в строчку

Visual Basic
1
Text1.Tag = "111;222;333;555;123789"

а та строчка, которая зеленым выделена она зачем тогда нужна?????? Ведь те коды которые там вписаны абсолютно не как не влияют на действие кода и сами они тоже не используються !!!!
СПАСИБО ЗА КОД!!!

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Qwerty416 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 44

	Ввод в TextBox определенных комбинаций цифр 08.12.2013, 14:27. Показов 1909. Ответов 17 Метки нет (Все метки) Помогите ! Нужно вводить в тексбокс определенные комбинации цифр, например:1234 и 6789 все остальные комбинации цифр, на угад так сказать , не должны вводиться! И при нажатии CommandButton программа должна пропускать дальще, только если в Textbox введен корректное значение 1234 или 6789!!!! Как єто сделать? 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,740 Записей в блоге: 14
	08.12.2013, 15:10
	Тебе нужно, чтобы неправильную комбинацию нельзя было ввести, или, чтобы программа ее не "пропускала" дальше? Второе совсем просто: в процедуре-события нажатия на кнопку анализуй TextBox.Text. 0

@Qwerty416 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 44
	08.12.2013, 18:43 [ТС]
	А можно попросить вас код ) и тот и тот) я потом подставлю, и по наглядности посмотрю какой будет лучше))) Если вам конечно не тяжело ) 0

@Qwerty416 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 44
	08.12.2013, 18:55 [ТС]
	спасибо большое!!!! Текст 1 -TextBox команда1-Commonbutton я же правильно все понят?)) Позиция Change() Click() в скобках нужно чтото указывать? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	08.12.2013, 19:12
	Для процедуры события не нужно Добавлено через 1 минуту команда1-Commonbutton правильно. У меня русский VB6 поэтому такие названия 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	08.12.2013, 19:13
	Для получения своих процедур сделай даблклик по контролу 0

@Qwerty416 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 44
	08.12.2013, 19:18 [ТС]
	Ой ё, такое впечетление что ты сейчас как то не на нашем мне чтото сказал)))) Я могу попросить код) я же говорил что я не разбираюсь, я сам методом тыка как то учусь) что такое даблклик и как его сделать по контролу?? и контрол -это что ???? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	08.12.2013, 19:24
	Какая связь между страницами текстбоксами с кнопкой? Добавлено через 1 минуту Ну да 18924359>Integer Строкой лучше 0

@Qwerty416 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 44
	08.12.2013, 19:44 [ТС]
	А можно просто в параметрах моего Text12 позадавать в какойто строчке коды и только их можно будет вписывать, и соответсвенно как то так заблокировать страницу, чтобы только при заполненом Text12 можно было переходить на следующуу страницу))) Если нет то можно пожалуйста полный код от начала и до конца, а то у меня голова взыраеться)))) 0