textbox

[oj2008pc]

سلام
من يك textbox دارم كه مي خوام فقط اعداد و نقطه و backspace را بتوان در آن وارد كرد و اعداد هم بصورت هزار جدا شوند و بتوان اعداد را بصورت اعشاري هم وارد نمود . كد زير را نوشتم ولي اشكال دارد . لطفا راهنمايي كنيد . (از vb6 استفاده مي كنم )
کد:

()Private Sub Text1_Change If Text1.Text <> "" Then("Text1.Text = Format(Text1.Text, "##,##0.00( Text1.SelStart = Len(Text1.TextEnd IfEnd Sub(Private Sub Text1_KeyPress(KeyAscii As Integer If Not (KeyAscii = vbKeyBack Or KeyAscii = 46) Then If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End IfEnd Sub

[vahid_d_0101]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 45 Then
KeyAscii = 0
End If
If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 46 And KeyAscii <> 8 And KeyAscii <> 13) Then
KeyAscii = 0
End If
End Sub
این فقط عدد و نقطه وارد میکنه میتونی درستش کنی هرچی دیگه همخ میخوای بزاری توش برای سوال دومت هم سرچ کن یه سورس توپ تو سایت هست

[oj2008pc]

این فقط عدد و نقطه وارد میکنه میتونی درستش کنی هرچی دیگه همخ میخوای بزاری توش برای سوال دومت هم سرچ کن یه سورس توپ تو سایت هست
سرچ كردم ولي چيزي پيدا نشد . مشكل من در قسمت دوم است .

[Pr0grammer]

سلام...
قبل از هر چیز ورودتون به سایت برنامه نویس رو تبریک می گم...
بهتره یه سر به این لینک بزنید:
http://barnamenevis.org/forum/showthread.php?t=116848
در اینجا بین ابزارهایی که نوشتم IntTextBox رو دانلود کنید؛ ضمناً در این وبلاگ هم ابزارها رو گذاشتم:www.AriaNevisan.com (http://www.AriaNevisan.com)

[oj2008pc]

سلام...
قبل از هر چیز ورودتون به سایت برنامه نویس رو تبریک می گم...
بهتره یه سر به این لینک بزنید:
http://barnamenevis.org/forum/showthread.php?t=116848
در اینجا بین ابزارهایی که نوشتم IntTextBox رو دانلود کنید؛ ضمناً در این وبلاگ هم ابزارها رو گذاشتم:www.AriaNevisan.com (http://www.AriaNevisan.com)
اونو قبلا دانلود كردم ولي اعداد بصورت سه تا سه تا جدا نميشه .