التكست بوكس الشاغل تفكيرنا - نسخة قابلة للطباعة

التكست بوكس الشاغل تفكيرنا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=16138)

التكست بوكس الشاغل تفكيرنا - bassamreg - 14-06-16

السلام عليكم
انا عضو جديد مطلع كثير بس العلم بحر لا يمكن نفاذه
اذا ترك التكست بكس فارغ وتم ادخال البيانات !!! البرنامج يذكر المستخدم بعدم ترك التكست بوكس فارغ ويجب الكتابة علية
السؤال اريد كود نقل المؤشر الى التكست بكس الفارغ الذي طلب البرنامج الكتابة فية وعدم تركة فارغا لان التركيز يكون على زر الادخال في البرنامج
وشكرا Blush

RE: التكست بوكس الشاغل تفكيرنا - حريف برمجة - 14-06-16

PHP كود :

If TextBox1.Text = "" Then
            MsgBox("insert all data", 64, "Program Name")
            TextBox1.Focus()
            Exit Sub
        End If 

RE: التكست بوكس الشاغل تفكيرنا - الوادي - 14-06-16

يا بسام،

هذه إحدى طريق، ويمكنك وضع الإجراء IsEmptyTextBox في Module ليكون متاح لأي Form

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    If IsEmptyTextBox(TextBox1, "أدخل الإسم") Then Return
    If IsEmptyTextBox(TextBox2, "أدخل التخصص") Then Return
    If IsEmptyTextBox(TextBox3, "أدخل العنوان") Then Return

End Sub

' الأفضل يكون في موديول ليكون متاح لجميع الفورم '
Public Function IsEmptyTextBox(txtBox As TextBox, Optional alert As String = "أدخل قيمة") As Boolean
    If txtBox.Text.Trim = "" Then
        txtBox.Focus()
        txtBox.BackColor = Color.MistyRose
        MsgBox(alert)
        Return True
    Else
        txtBox.BackColor = Nothing
        Return False
    End If
End Function 

RE: التكست بوكس الشاغل تفكيرنا - bassamreg - 14-06-16

شكرا على الرد وكانت الاجابة المطلوب وناجحة في اضافة ()textbox1.focus

كيف استفيد من المودل في الفورم او كيف اربطهما مع بعض

في هذا السؤال اريد تحديد القيم و هي 11 و 12 و 13 و 14 ولانني لم استطع قمت بجعل الشرط ياخد القيمة التي اكبر من 15

Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
        If TextBox11.Text > 15 Then
            TextBox10.ReadOnly = False

        Else

            TextBox10.ReadOnly = True


        End If

    End Sub

RE: التكست بوكس الشاغل تفكيرنا - aliday03 - 29-06-16

الموديل طريقة عمله سهلة
عندما تنشئ موديل أدخل عليه
الموديل يعتمد في عمله على عمل إجراءات و دوال Sub And Function كدلك تعريف المتغيرات التي تريد عمل بها دون تكرار كتابتها كل مرة
المثال الدي أعطيتنا إياه سأقوم بعمله في إجراء Sub و هدا الاجراء يكتب داخل الموديل
public sub TxtReaOnly(txt1 as textbox,txt2 as textbox)
if txt1.text>15 then
txt2.readonly=false
else
txt2.readonly=true
end if
end sub
بعد دالك ادخل الى حدث TextBox11_TextChanged
بعد دلك قم باستدعاء الاجراء باسمه و قد أسميناه TxtReaOnly
هدا الاجراء ينتظر منك 2 برامترات و هي txt1 و txt2
txt1 هو textbox11
txt2 هو textbox 10
الاستدعاء سيكون كالاتي
TxtReaOnly(textbox11,textbox10)
أتمنى أن تكون إستفدت

RE: التكست بوكس الشاغل تفكيرنا - Apollondz - 03-07-16

من الأفضل إستعمال errorprovider