Значения TextBox-ов

[beginer_1]

Необходимо в TextBox1 вводить только числовое значение, в textBox2 - только дату формата dd.mm.yyyy.
Как сделать так, чтобы невозможно было в textBox1 ввести значение другого типа? (и в textBox2 тоже)

[Tuco]

по поводу данных в первый текст-бокс, могу предложить удалять все значения, меньшие, чем "A" латинское:

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

Private Sub TextBox1_Change()

If TextBox1.Text >= "A" Then
    TextBox1.Text = ""
End If

End Sub

[Vitaly1]

Ну вот так примерно:

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

Private Sub TextBox1_Change()

s =""
for i=1 to len(textbox1.text)
if mid(textbox1.text,i,1)>="0" and  mid(textbox1.text,i,1)<="9" then
s=s+ mid(textbox1.text,i,1)
end if
next i
TextBox1.text =s
End Sub

Private Sub TextBox2_Change()

s =""
for i=1 to len(textbox2.text)
if mid(textbox2.text,i,1)>="0" and  mid(textbox2.text,i,1)<="9" _
or mid(textbox2.text,i,1)="." then
s=s+ mid(textbox2.text,i,1)
end if
next i
TextBox2.text =s
End Sub



[beginer_1]

А если TextBox1 (число) должно быть формата 0.00 ?

[beginer_1]

Сорри, вопрос снят-)
Всем спасибо-)