View Full Version : نزدن عدد صفر در اول تکس باکس
amini699
دوشنبه 01 مرداد 1386, 16:41 عصر
کسی میتونه کمک کنه میخوام در اول تکس باکس عدد صفر زده نشه ولی بعد از اعداد یک تا نه بتونم صفر رو بزنم
amini699
دوشنبه 01 مرداد 1386, 23:50 عصر
کسی نیت جواب بده
perfeshnal
سه شنبه 02 مرداد 1386, 00:19 صبح
سلام دوست من می تونی از کد زیر استفاده کنی
Private Sub Text1_Change()
If Text1.Text = "0" Then
Text1.Text = ""
End If
End Sub
piter1355
سه شنبه 02 مرداد 1386, 01:11 صبح
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
سه شنبه 02 مرداد 1386, 05:52 صبح
این کد از همه بهتره
Private Sub Text1_KeyPress(Keyascii as integer)
If keyascii = vbkey0 Then
keyascii=0
End If
End Sub
perfeshnal
سه شنبه 02 مرداد 1386, 08:38 صبح
این کد از همه بهتره
Private Sub Text1_KeyPress(Keyascii as integer)
If keyascii = vbkey0 Then
keyascii=0
End If
End Sub
البته جناب noorsoft کدی که شما نوشتید اصلا نمیذاره عدد صفر وارد بشه منظور دوستمون چیز دیگه ای :چشمک:
کدی که من و piter1355 دادیم جواب میده
majidghost
چهارشنبه 03 مرداد 1386, 20:58 عصر
Private Sub Text1_Change()
If Mid(Text1.Text, 1, 1) = "0" Then Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text))
End Sub
amini699
جمعه 05 مرداد 1386, 00:15 صبح
با تشکر از همه دوستان
majjjj
جمعه 05 مرداد 1386, 13:35 عصر
این کد از همه بهتره
Private Sub Text1_KeyPress(Keyascii as integer)
If keyascii = vbkey0 Then
keyascii=0
End If
End Sub
دوست گرامی
درسته که این کد عدد صفر رودر اولکار نمیگیره ولی اگه سوال رو درست خونده بودین متوجه میشدین که فقط اول کار عدد صفر نباید گرفته بشه نه در کل ورود اطلاعات
از اینکه جواب دادین بازهم ممنون
x boy1988
جمعه 05 مرداد 1386, 13:38 عصر
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
جمعه 05 مرداد 1386, 14:28 عصر
من فکر میکنم این کد یه مقدار احتیج به کامل شدن داره
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
یک شنبه 07 مرداد 1386, 01:06 صبح
اینم یه نظره دیگه:
Private Sub Text1_Change ()
If val(Text1.text) = 0 Then
text1.text=""
End If
End Sub
M-Gheibi
یک شنبه 07 مرداد 1386, 23:40 عصر
M8SPY_OK (http://barnamenevis.org/forum/member.php?u=42179) و majidghost (http://barnamenevis.org/forum/member.php?u=31674) این پیغام رو به عنوان یک اخطار جدی در نظر بگیرید .
در صورتی که به ارسال پستهای بیمحتوایی مثل مطالب حذف شدهی این تاپیک ادامه بدید بلافاصله دسترسیتون رو قطع میکنم .
vbhamed
سه شنبه 09 مرداد 1386, 01:48 صبح
سلام
کاملترین کدی که می تونید بنویسید اینه :
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.