تقييم الموضوع :
  • 1 أصوات - بمعدل 2
  • 1
  • 2
  • 3
  • 4
  • 5
التكست بوكس الشاغل تفكيرنا
#1
السلام عليكم
انا عضو جديد مطلع كثير بس العلم بحر لا يمكن نفاذه
اذا ترك التكست بكس فارغ وتم ادخال البيانات !!! البرنامج يذكر المستخدم بعدم ترك التكست بوكس فارغ ويجب الكتابة علية
السؤال اريد كود نقل المؤشر الى التكست بكس الفارغ الذي طلب البرنامج الكتابة فية وعدم تركة فارغا لان التركيز يكون على زر الادخال في البرنامج
وشكرا Blush
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
If TextBox1.Text "" Then
            MsgBox
("insert all data"64"Program Name")
 
           TextBox1.Focus()
 
           Exit Sub
        End 
If 
الرد }}}
تم الشكر بواسطة:
#3
يا بسام،

هذه إحدى طريق، ويمكنك وضع الإجراء IsEmptyTextBox في Module ليكون متاح لأي Form
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

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

End Sub

' الأفضل يكون في موديول ليكون متاح لجميع الفورم '
Public Function IsEmptyTextBox(txtBox As TextBoxOptional 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 
الرد }}}
تم الشكر بواسطة:
#4
شكرا على الرد وكانت الاجابة المطلوب وناجحة في اضافة ()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
الرد }}}
تم الشكر بواسطة:
#5
الموديل طريقة عمله سهلة
عندما تنشئ موديل أدخل عليه
الموديل يعتمد في عمله على عمل إجراءات و دوال 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)
أتمنى أن تكون إستفدت
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة:
#6
من الأفضل إستعمال errorprovider
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران محمد ايمن 3 2,562 19-04-20, 03:07 PM
آخر رد: asemshahen5
  [كود] تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست محمد ايمن 2 2,434 04-03-20, 04:38 AM
آخر رد: محمد ايمن
Lightbulb [VB.NET] ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس EYADISMAIL 3 3,233 29-07-19, 03:59 AM
آخر رد: EYADISMAIL
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 17 10,595 25-05-19, 04:12 PM
آخر رد: bakhcha
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 4 8,617 03-02-19, 11:07 AM
آخر رد: alshandodi
  كود للانتقال الى التكست بوكس التالي عند الضغط على زر انتر ahmadpal 4 5,244 08-12-18, 02:38 PM
آخر رد: قناص المدينة
  كود سهل ومفيد للبحث عن كلمة في التكست بوكس honest 11 8,333 11-11-18, 01:27 AM
آخر رد: عماد السيد
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 5 5,248 11-11-18, 01:24 AM
آخر رد: عماد السيد
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 3 4,472 08-08-18, 03:55 PM
آخر رد: alsouf
  السلام عليكم اريد كود لما تكون موجوده التكست بوكس ندير فوقها بطم وفي التنفيذ تطلعلي nosa 0 1,892 11-05-18, 09:36 PM
آخر رد: nosa

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم