السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'8- السماح بأدخال الارقام والعلامة العشرية فقط
كود PHP:
Public Class Form1
Private Function NumbersOnly(ByVal pstrChar As _
Char, ByVal oTextBox As TextBox) As Boolean
If (Convert.ToString(pstrChar) = "." And _
InStr(oTextBox.Text, ".")) Then Return True
If Convert.ToString(pstrChar) <> "." _
And pstrChar <> vbBack Then
Return IIf(IsNumeric(pstrChar), False, True)
End If
Return False
End Function
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = NumbersOnly(e.KeyChar, TextBox1)
End Sub
End Class
'8- السماح بأدخال الارقام والعلامة العشرية فقط
'9- طريقة اخرى استخدام الارقام والعلامات العشرية فقط
كود 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)) _
Or e.KeyChar = CChar(".") Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub
End Class
'9- طريقة اخرى استخدام الارقام والعلامات العشرية فقط