swallow.pa
پنج شنبه 20 مهر 1391, 13:44 عصر
سلام به همه
با استفاده از كد زير من اعدادي رو كه مميز دارند رو توي تكست باكس فعال مي كنم
Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If TextBox1.Text.IndexOf(".") > 0 Then
If Not IsNumeric(e.KeyChar) Then e.Handled = True
Else
If Not IsNumeric(e.KeyChar) And e.KeyChar <> "." Then e.Handled = True
End If
If e.KeyChar = vbBack Then e.Handled = False
End Sub
حالا اگه بخوايم سه رقم سه رقم رو با وجود مميز جدا كنيم راهكار شمادوستان براي اين مورد چيه ؟؟
ممنون
با استفاده از كد زير من اعدادي رو كه مميز دارند رو توي تكست باكس فعال مي كنم
Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If TextBox1.Text.IndexOf(".") > 0 Then
If Not IsNumeric(e.KeyChar) Then e.Handled = True
Else
If Not IsNumeric(e.KeyChar) And e.KeyChar <> "." Then e.Handled = True
End If
If e.KeyChar = vbBack Then e.Handled = False
End Sub
حالا اگه بخوايم سه رقم سه رقم رو با وجود مميز جدا كنيم راهكار شمادوستان براي اين مورد چيه ؟؟
ممنون