Текст бокс, буквы и цифры.

[Павлуша]

Задался я тут непростым вопросом - а можно ли сделать так, чтоб в текст бокс нельзя было вписывать буквы, только цифры?
если такое можно, то подскажите как это сделать самыми примитивными средствами ВБ.
Заранее благодарен!

[GSerg]

Почему не искал?

[Amed]

Все гениальное просто!
Например, так

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr$(KeyAscii) Like "#" = False Then KeyAscii = 0
End Sub

[Павлуша]

Amed
нет слов. спасибо. даже таких комманд не знал... типа chr... думал, что они только в С и в Перл есть...

[Павлуша]

и еще один маленький вопрос:
if условие 1 then событие 1 and событие 2,
где условие 3 :
1)блокировка выполнения следующих событий в кнопке
или
2)удаление формы, на которой находится выполняемый код.
такое можно осуществить? если да - то приложите плиз код.
заранее спасибо.

[BV]

А ты не путаешь условие с событием?

[Павлуша]

BV
я путаю, а ты нет
спасибо...

[ANDLL]

Кстати, Павлуша есть еще MaskEditControl. Поредактируй его свойство Mask...
Блокировка выполнения следующих событий, это видимо, Exit Sub.
А удаление формы - Unload Me.

[Павлуша]

ANDLL
нет, не анлоад ми. анлоад это выгруз ее из памяти, а мне надо, чтобы форма, после заполнения текстового поля правильным числом - удалялась.
как в программах, имеющих форму регистрации - зарегался и нет больше ее (эти формы называют нагами, если мне память не изменяет).

[GSerg]

Нагами называют отличных шестируких юнитов Башен...

Форма никогда не удаляется.
Но перед её загрузкой проверяется, надо ли её показывать.

[tyomitch]

А про ES_NUMBER все знают?

[ANDLL]

Нет. Но, судя по названию, вещь удобная в таких случаях.
2Павлуша: Если в экзешнике что-то есть, то оно оттуда уже не удаляется. По крайней мере этим же экзешником.

[GSerg]

А про ES_NUMBER все знают?

ES_NUMBER
Allows only digits to be entered into the edit control. Note that, even with this set, it is still possible to paste non-digits into the edit control.

[ANDLL]

Короче, ничем не лучше способа амеда. Юзайте MaskEdit!

[Павлуша]

Хорошо, Темыч, я не знаком вообще со всякими API-функциями, поэтому юзать ее не буду.
Вот кусок кода, с комментами, надеюсь вы поймете.

Код: Выделить всё

Private Sub Command2_Click()
s = Text1.Text
If Text2.Text = "" Then MsgBox "", 16, ""
' здесь идет предупреждение о том, что не стоит оставлять пустое поле и сразу после нажатия кнопки ОК выдается ошибка 13 (несовпадение типов и выделяется следующий оператор условия.
' текст2 - поле для ввода серийника
If Text2.Text = Len(s) * 12 + (Len(s) *26) Then _   Form3.Command3.Enabled = True
' тут проверяется правильность серийника, если он правильный, то открывается кнопка на другой форме

If Text2.Text = Len(s) * 12 + (Len(s) * 26) Then frmReg.Visible = False: Form1.Show
' тут при правильном серийнике закрывается форма и управление передается на другую форму

If Text2.Text <> Len(s) * 12 + (Len(s) * 26) Then MsgBox "", 16, "" _
Else MsgBox "", 64, ""
' если серийник неправильный, то прога орет благим матом.
End Sub

Private Sub Command3_Click()
frmReg.Visible = False
Form1.Show
' эта кнопка продолжает работу проги без ее регистрации
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Chr$(KeyAscii) Like "#" = False Then KeyAscii = False
End Sub


вот надо сделать так, чтобы не выводилось этой поганной 13-ой ошибки и, чтоб при правидьно указанном серийнике прога больше не показывала эту форму регистраци.
Помогите пожалуйста, век буду благодарен!

[ANDLL]

M.B. се:

Код: Выделить всё

Private Sub Command2_Click()
Dim s As String
s = Text1.Text
If Text2.Text = "" Then MsgBox "", 16, "": Exit Sub
' здесь идет предупреждение о том, что не стоит оставлять пустое поле и сразу после нажатия кнопки ОК выдается ошибка 13 (несовпадение типов и выделяется следующий оператор условия.
' текст2 - поле для ввода серийника
If Text2.Text = CStr(Len(s) * 12 + (Len(s) * 26)) Then _
Form3.Command3.Enabled = True
' тут проверяется правильность серийника, если он правильный, то открывается кнопка на другой форме

If Text2.Text = CStr(Len(s) * 12 + (Len(s) * 26)) Then frmReg.Visible = False: Form1.Show
' тут при правильном серийнике закрывается форма и управление передается на другую форму

If Text2.Text <> CStr(Len(s) * 12 + (Len(s) * 26)) Then MsgBox "", 16, "" _
Else MsgBox "", 64, ""
' если серийник неправильный, то прога орет благим матом.
End Sub

[Павлуша]

ANDLL
Спасибо, Андрей!!! век не забуду!!!

и последний вопрос:

Код: Выделить всё

If Text2.Text = CStr(Len(s) * 12 + (Len(s) * 26)) Then _
Form3.Command3.Enabled = True


вот как раз касается этой кнопки - она никак не хочет делать свой инаблд равным фолсу! ну никак! ни в свойствах кнопки, ни в коде формы - ничего не помогает...что предложите?

[ANDLL]

Ты вроде-как его к True приравниваешь...

[BV]

2 Павлуша

Таки имеет смысл почитать хоть это.

[Павлуша]

ANDLL
приравневую, но на той форме, на которой она стоит, значение равно фолс, но при загрузке, кнопка прекрасно отображается и нажимется.

[Zoomie]

Попробуй при загрузке проекта прописать

Код: Выделить всё

Load Form3

Может поможет...

[Павлуша]

Zoomie
она грузиться по умолчанию вместе со всем проектом и это все равно не помогает.

[ANDLL]

Zoomie
она грузиться по умолчанию вместе со всем проектом и это все равно не помогает.

Кто сказал?

ANDLL
приравневую, но на той форме, на которой она стоит, значение равно фолс, но при загрузке, кнопка прекрасно отображается и нажимется.

Быть того не может. Попробуй при выполнении проги нажать Ctrl+Break и в окне Immidiate(Ctrl+G) набрать ? Form3.Command3.Enabled .

[Павлуша]

ANDLL
пишу:
? form3.command3.enabled
получаю ответ:
False
еду дальше на форму! опа!! вот она кнопка! никаких Enabled.false нет.
кнопка нажимается и работает

[ANDLL]

Код в студию.
Ты уверен, чтот твоя кнопка именно так называается?

[Павлуша]

ANDLL
уверен... не считаешь ли ты меня параноиком?
код не дам - там только одна строчка вида:

Код: Выделить всё

Private Sub Form_Load()
Command3.Enabled = False
End Sub


и в свойствах кнопки тоже выставленно - Фолс

[ANDLL]

2Павлуша:Проблема не в этой строчке. У меня при пустом проекте все прекрасно отключаеться. Давай весь проект, в котором такое поведение. Можешь вырезать все, что считаешь неподлежащим оглашению. Главное, проверь что бы после вырезки всего лишнего, оставалась такое странное поведение.

[Павлуша]

ANDLL
ты точно хочешь весь проект? он весит 8 метров... я кину тебе его по мылу... если ты не против...

[ANDLL]

В таком случае тебе придеться ждать до вторника. 8 Мб по Dial-up'у я не подниму. Попробуй открыть одну только форму(Dubl-click на ее файле) и удалить весь код, кроме того,который ты привел. Что будет тогда?