08-05-25, 10:44 PM
09-05-25, 12:06 AM
هكذا :
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.MaxLength = 4
End Sub
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) = False And Char.IsLetter(e.KeyChar) = False And e.KeyChar <> ControlChars.Back Then
e.Handled = True
End If
End Sub09-05-25, 02:37 PM
لو سمحت عندي زر يفتح مسار موجود ضمن تكست بوكس 1
كيف بقدر اذا كان المسار الموجود ضمن تكست بوكس 1 اقل من 4/خانات او فارغ يعطي رسالة خطأ واذا اكثر. يفتح المسار
كيف بقدر اذا كان المسار الموجود ضمن تكست بوكس 1 اقل من 4/خانات او فارغ يعطي رسالة خطأ واذا اكثر. يفتح المسار
09-05-25, 05:09 PM
(09-05-25, 02:37 PM)EMADW كتب : [ -> ]لو سمحت عندي زر يفتح مسار موجود ضمن تكست بوكس 1
كيف بقدر اذا كان المسار الموجود ضمن تكست بوكس 1 اقل من 4/خانات او فارغ يعطي رسالة خطأ واذا اكثر. يفتح المسار
في الحالة الأولى المتعلقة بتحديد عدد الحروف المكتوبة في TEXTBOX1
أذا طبقت الأكواد المقدمة من الأستاذ الفاضل طه
فلن تحتاج الى اي رسائل او شروط
لأنك ببساطة أجبرت المستخدم على أدخال 4 حروف فقط لأن TEXTBOX1 لن تقبل أكثر من هذا
في الحالة الثانية وهي ان يكون TEXTBOX1 فارغ أو اقل من 4 فهذة بسيطة جدا
أستخدم الكود التالي
كود :
If Trim(TextBox1.Text) = "" Or Len(Trim(TextBox1.Text)) < 4 Then
MsgBox "الرجاء إدخال مسار صحيح (يجب ألا يكون فارغاً أو أقل من 4 خانات)"
Else
' هنا تضع الكود الخاص بفتح المسار
End If