نوشتن عدد و خط تیره در تکست باکس

[ehsanocx]

سلام دوستان
من این کد رو توی رویداد change تکست باکس نوشتم
تا توی تکست باکس فقط عدد تایپ شه . حالا می خوام غیر عدد خط تیره - هم بشه داخل تکست نوشت
چطوری می تونم چنین کاری کنم ؟

txtTell.Text = Format(txtTell.Text, "#########"): SendKeys ("{End}")
If IsNumeric(txtTell.Text) = False Then
txtTell.Text = Empty
txtTell.SetFocus
End If

[ramzdar]

بفرما دوست عزیز. اینو توی رویداد Change تکست باکس بنویس. خط اولت هم نیازی نیست.

For i = 1 To Len(txtTell)
a = Mid(txtTell, i, 1)
For j = 48 To 57
If a = Chr(j) Then Exit For
Next
If j = 58 And a <> "-" Then
txtTell = ""
Exit Sub
End If
Next

[محسن واژدی]

سلام علیکم
برای نوشته عدد در جعبه متنی از کد زیر هم میتوانید استفاده کنید:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And Not KeyAscii = 45 Then
KeyAscii = 0
End If
End Sub

موفق باشید