منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تكست بوكس - نسخة قابلة للطباعة

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

تكست بوكس - EMADW - 08-05-25

كيف بقدر حدد عدد خانات التكست بوكس 


يعني بدي التكست بوكس تقبل حروف وارقام لكن 4/خانات فقط

RE: تكست بوكس - Taha Okla - 09-05-25

هكذا :

كود :
   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 Sub


RE: تكست بوكس - EMADW - 09-05-25

لو سمحت عندي زر يفتح مسار موجود ضمن تكست بوكس 1
كيف بقدر اذا كان المسار الموجود ضمن تكست بوكس 1 اقل من 4/خانات او فارغ يعطي رسالة خطأ واذا اكثر. يفتح المسار

RE: تكست بوكس - princelovelorn - 09-05-25

(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