19-06-23, 05:08 PM
فقط نستخدم الكود التالي ضمن حدث الـ (KeyPress):
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If (e.KeyChar = ".") And (TextBox1.Text.Contains(".")) Then
e.Handled = True
End If
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».