السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'3- كتابة ارقام فقط بداخل التيكست
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
e.Handled = True
End If
End Sub
End Class
'3- كتابة ارقام فقط بداخل التيكست
'4-السماح بأدخال ارقام فقط
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) Then
e.Handled = True
End If
End Sub
End Class
'4-السماح بأدخال ارقام فقط
'5- ادخال ارقام فقط مع استخدام BackSpace
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
If e.KeyChar = CChar(ChrW(Keys.Back)) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub
End Class
'5- ادخال ارقام فقط مع استخدام BackSpace
'6-طريقة اخرى -ادخال ارقام فقط مع BackSpace
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim c As Char
c = e.KeyChar
If Not (Char.IsDigit(c) Or _
Char.IsControl(c)) Then
e.Handled = True
End If
End Sub
End Class
'6-طريقة اخرى -ادخال ارقام فقط مع BackSpace
'7-طريقة اخرى لادخال الارقام فقط مع باك سبيس
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "0" To "9", ControlChars.Back
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
End Class
'7-طريقة اخرى لادخال الارقام فقط مع باك سبيس
رد مع اقتباس
