طلب كودين - نسخة قابلة للطباعة

طلب كودين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : طلب كودين (/showthread.php?tid=18294)

طلب كودين - adel27 - 07-12-16

السـلام عليكم روحمة الله وبركاته

أحتاج كود تعطيل جميع الطريق لأغلاق فورم
وأحتاج كود تلكست بكس يكتب أنقليزي فقط حروف وأرقام

RE: طلب كودين - amgad525 - 07-12-16

1

PHP كود :

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    e.Cancel = True
End Sub 

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 

RE: طلب كودين - adel27 - 08-12-16

شـكراً لك وبارك الله فيك

الأكواد تعمل لكن احتاج تعطيل أي شي بحيث أن الفورم لا يتم أقفله
ALT+CTRL+DELETE
WINDOSE+D
مثل هذه الأختصارات RAN