نزدن عدد صفر در اول تکس باکس

[amini699]

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

[amini699]

کسی نیت جواب بده

[perfeshnal]

سلام دوست من می تونی از کد زیر استفاده کنی


Private Sub Text1_Change()
If Text1.Text = "0" Then
Text1.Text = ""
End If
End Sub

[piter1355]

Private Sub Text1_Change()
If Left(Text1.Text, 1) = "0" Then
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

[noorsoft]

این کد از همه بهتره




Private Sub Text1_KeyPress(Keyascii as integer)
If keyascii = vbkey0 Then
keyascii=0
End If
End Sub

[perfeshnal]

این کد از همه بهتره




Private Sub Text1_KeyPress(Keyascii as integer)
If keyascii = vbkey0 Then
keyascii=0
End If
End Sub


البته جناب noorsoft کدی که شما نوشتید اصلا نمیذاره عدد صفر وارد بشه منظور دوستمون چیز دیگه ای :چشمک:
کدی که من و piter1355 دادیم جواب میده

[majidghost]

Private Sub Text1_Change()
If Mid(Text1.Text, 1, 1) = "0" Then Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text))
End Sub

[amini699]

با تشکر از همه دوستان

[majjjj]

این کد از همه بهتره




Private Sub Text1_KeyPress(Keyascii as integer)
If keyascii = vbkey0 Then
keyascii=0
End If
End Sub


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

[x boy1988]

Private Sub Text1_Change()
If Mid(Text1.Text, 1, 1) = "0" Then Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text))
End Sub

من فکر میکنم این کد یه مقدار احتیج به کامل شدن داره


Private Sub Text1_Change()

Do While Mid(Text1.Text, 1, 1) = "0"
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text))
Loop

End Sub

[Payman62]

من فکر میکنم این کد یه مقدار احتیج به کامل شدن داره


Private Sub Text1_Change()

Do While Mid(Text1.Text, 1, 1) = "0"
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text))
Loop

End Sub

سلام.
اگه طرف 5 تا 0 کپی کنه تو تکس باکس این روش جواب میده.

[rsl_rostami]

اینم یه نظره دیگه:

Private Sub Text1_Change ()
If val(Text1.text) = 0 Then
text1.text=""
End If
End Sub

[M-Gheibi]

M8SPY_OK (http://barnamenevis.org/forum/member.php?u=42179) و majidghost (http://barnamenevis.org/forum/member.php?u=31674) این پیغام رو به عنوان یک اخطار جدی در نظر بگیرید .
در صورتی که به ارسال پست‌های بی‌محتوایی مثل مطالب حذف شده‌ی این تاپیک ادامه بدید بلافاصله دسترسیتون رو قطع می‌کنم .

[vbhamed]

سلام
کاملترین کدی که می تونید بنویسید اینه :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Text1.SelStart = 0 And KeyAscii = vbKey0 Then KeyAscii = 0

End Sub


اگر می خواهید جلوی Copy و Paste رو هم بگیرید این کد رو اضافه کنید


Private Sub Text1_Change()

Dim s$
s = Trim$(Text1)

If Left$(s, 1) = "0" Then
Do
s = Mid$(s, 2)
Loop While Left$(s, 1) = "0"
Text1 = s
End If

End Sub