oj2008pc
شنبه 09 شهریور 1387, 17:57 عصر
سلام
من يك 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
من يك 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