Ввод в 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

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

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

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

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

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"

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

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

@Catstail Модератор 35578 / 19476 / 4073 Регистрация: 12.02.2012 Сообщений: 32,512 Записей в блоге: 13
	08.12.2013, 15:10	2
	Тебе нужно, чтобы неправильную комбинацию нельзя было ввести, или, чтобы программа ее не "пропускала" дальше? Второе совсем просто: в процедуре-события нажатия на кнопку анализуй TextBox.Text. 0

@Alex77755 11485 / 3773 / 677 Регистрация: 13.02.2009 Сообщений: 11,152
	08.12.2013, 15:12	3
	Можно даже при вводе проверять. А можно при нажатии кнопки. Если у вас при нажатии кнопки, то в событие CommandButton_Click вписать код считывания содержимого и сравнивать его с корректными значениями. Соответствует - продолжать выполние программы. Не соответствует - на ваше усмотрение. Выдать сообщение, очистить поле или др. Вот только одно замечание: Это форум программистов и тут мало кто летат, что бы производить разбор полётов Создавайте темы с осмысленными и понятными названиями 0

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

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

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

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

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

@The trick Модератор 9235 / 3453 / 854 Регистрация: 22.02.2013 Сообщений: 5,227 Записей в блоге: 78
	08.12.2013, 19:22	12
	Сообщение от Alex77755 Dim X As Integer Не Integer, а хотя-бы Long. И надо проверять строку, какой смысл переводить ее в число? К тому же это может вызвать ошибку. Если надо запретить ввод, то нужно делать по другому, в событии KeyDown или KeyPress пропускать символы исходя из выделения в текстбоксе. 0

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

@Alex77755 11485 / 3773 / 677 Регистрация: 13.02.2009 Сообщений: 11,152
	08.12.2013, 19:29	15
	то нужно делать по другому, в событии KeyDown или KeyPress пропускать символы исходя из выделения в текстбоксе Тоже сначала была такая идея. Но подумал, что если это ввод пароля, то будет подсказка. Если же ввод номера страницы перехода, то можно при вводе проверять и пропускать 0

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