سورس ساده تکستی که فقط عدد میگیره

[star_star]

سلام دوستان
سورسی رو می خوام که تکست باکس فقط عدد بگیره و در عین حال اگر اولین عددی که گرفت اگر اولش صفر بود اونو نگیره ، من واسه شماره موبایل می خوام مثلا اگر طرف 09199238985 رو زد صفر اولش رو حذف کنه و اینو بگیره 9199238985

[SlowCode]

سلام
می تونی از این کد استفاده کنی:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii < 58 And KeyAscii > 48) Then KeyAscii = 0
End Sub

[star_star]

سلام
می تونی از این کد استفاده کنی:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii < 58 And KeyAscii > 48) Then KeyAscii = 0
End Sub


نه دوست عزیز این کد نمیزاره اصلا صفر وارد بشه من فقط میخوام نزاره صفر اول شماره موبایل وارد شه
با کد شما اصلان شماره ای که صفر توشه نمیشه وارد کرد
من درواقع میخوام 09199238090 رو اینطوری وارد کنه 9199238090

[IamOverlord]

سلام.

اینم یه راهشه:

Private Sub Text1_Change()
On Error Resume Next
pos = Text1.SelStart
i = 1
While Mid(Text1.Text, 1, 1) = "0"
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
pos = pos - 1
Wend
While i <= Len(Text1.Text)
c = Asc(Mid(Text1.Text, i, 1))
If c < Asc("0") Or c > Asc("9") Then
Text1.Text = Left(Text1.Text, i - 1) + Right(Text1.Text, Len(Text1.Text) - i)
pos = pos - 1
End If
i = i + 1
Wend
Text1.SelStart = pos
End Sub