07-12-16, 12:58 AM
07-12-16, 01:06 AM
1
2
PHP كود :
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
End Sub
2
PHP كود :
' for KeyPress
'
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Dim eng As Boolean = System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "[0-9a-zA-Z\s]")
If Not (Char.IsControl(e.KeyChar) Or eng) Then e.Handled = True
End Sub
' for Paste
'
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim chk As Boolean = System.Text.RegularExpressions.Regex.IsMatch(sender.Text, "[^0-9a-zA-Z\s]")
If chk Then
sender.Text = System.Text.RegularExpressions.Regex.Replace(sender.Text, "[^0-9a-zA-Z\s]", "")
End If
End Sub
PHP كود :
0-9 = numbers
a-z = small letters
A-Z = capital letters
\s = space
08-12-16, 01:04 AM
شـكراً لك وبارك الله فيك
الأكواد تعمل لكن احتاج تعطيل أي شي بحيث أن الفورم لا يتم أقفله
ALT+CTRL+DELETE
WINDOSE+D
مثل هذه الأختصارات RAN
الأكواد تعمل لكن احتاج تعطيل أي شي بحيث أن الفورم لا يتم أقفله
ALT+CTRL+DELETE
WINDOSE+D
مثل هذه الأختصارات RAN