[aljzazy]

للتأكد من أن الإدخال في مربع النص (TextBox) يحتوي فقط على أرقام والعلامة العشرية (.) في فيجوال بيسك، يمكنك استخدام الحدث

كود :

KeyPress

للتحقق من كل حرف يتم إدخاله.
إليك الكود:
vb
نسخ الكود

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   ' السماح بالأرقام فقط والعلامة العشرية
   If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso Not Char.IsControl(e.KeyChar) Then
       e.Handled = True ' تجاهل الأحرف غير المسموح بها
   End If

   ' السماح بعلامة عشرية واحدة فقط
   If e.KeyChar = "." AndAlso TextBox1.Text.Contains(".") Then
       e.Handled = True
   End If
End Sub