[Hazem1]

(03-10-18, 11:11 PM)princelovelorn كتب : إذا كنت تريد عدم السماح بترك الtextbox  او combobox فارغين نصيا 
بغض النظر عن نوع النص 

ممكن تستخدم  الطريقة التالية

كود :

       Dim errorpro As New ErrorProvider
       If Trim(Textbox1.Text) = "" Then
           errorpro.SetError(Textbox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Textbox2.Text) = "" Then
           errorpro.SetError(Textbox2, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Combobox1.Text) = "" Then
           errorpro.SetError(Combobox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       End If

جزاك الله خيراً أخي العزيز [b][b]princelovelorn[/b]، ما قصرت، هناك نقطة أُخرى إن كنت تعلمها فالحمد لله وزادك الله علماً، بعد تحسين الكود وجدت الأفضل استخدام أداة ErrorProvider عوضًا عن المُتغير لأن أيقونة الخطأ التي تظهر عندما تُصبح القيمة فارغة لن تختفي إلا باستخدام الأداة.[/b]