آستفسآر..بخصوص كود..آرجو آلدخوول

[رااجية الجنة]

السلام عليكم ورحمة الله وبركاته
اخواني الافاضل..اردت مساعدتكم ..في اعطائي الكود المنااسب..للفورمآ الموجودهـ بالمرفقآت

هنا عملت جميع الاكوواد وهي كالتالي:

Public Class Form1

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox2.Items.Add(ListBox1.SelectedItem)
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.Add(ListBox2.SelectedItem)
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub
End Class

الكود المطلوب:
كيف اجعل بوتون الاضافه غير مفعل لحين يبدآ المستخدم بالكتابه.
وكذلك زر الانتقال من قائمه لاخرى..لو لم يجد عنصر في القائمه يكون البوتون غير مفعل
وكذلك الحال مع بوتون المسح.(كما هو الحال في قائمتي السماح والمنع الموجوده بالمسن)
\
لي ساعتين احااول فيها..ساعدوني جزآكم المولى خير الجزاء

[محمد أسامة جندية]

انقري نقرة مزدوجة على مربع النص فيتم تفعيل حدث TextChainged لمربع النص ومهمته تنفيذ الكود ضمنه عند تعديل نص مربع النص ، ضعي ضمنه الكود التالي:

Button1.Enable = (TextBox1.Text.Trim.Length > 0)

بالنسبة للقائمة فهناك حدث SelectionChanged ومهمته تنفذ الكود ضمنه عند تغيير العنصر المحدد ويمكنك وضع الكود التالي ضمنه لتفعيل الزر عند إختيار عنصر:

Button1.Enable = (List.SelectedItems.Count > 0)

[رااجية الجنة]

آخوي محمد..الله يفتحها بوجهك..ويفرج كربك.
عن جد ساعدتني كثير..الله يوفقك.
\
بوركت

[رااجية الجنة]

استآذ محمد ..ضبط معي الكوود..لكن لدي اضافة اريد ان اضعها..واحتاج للكود المنآسب
\
في التكست بوكس يكتب الاسماء فقط..اي انه عندما يبدآ بكتابة رقم لايكتب..
مثلا: Ali2 ..هنا يكتب الاسم وعندما يضغط على الرقم 2 لايكتب في التكست بوكس.
\
احترآمي لك

[محمد أسامة جندية]

في نافذة الفورم حددي الـ TextBox الذي تتكلمي عنه ثم من نافذة الخصائص إضغطي على رابع زر من اليسار في الأزرار أعلى نافذة خصائص العناصر والتي تكون موجودة أسفل يمين الشاشة ستظهر Events أحداث الكائن TextBox إبحث عن أي أحداث قمت بكتابة كود ضمنها وأرسليها لي.

أتوقع أن يكون مربع النص قد تم عمل حدث يمنع إدخال الأرقام.

حل سريع: إحذفي مربع النص وأضيفي مربع نص جديد بنفس الاسم وأضيفي حدث TextBox_Changed وضعي فيه الكود الذي ذكرناه سابقا فقط.

[The X man]

لكن لدي اضافة اريد ان اضعها

أعتقد قصدها إنو فعلاً بدها تمنع المستخدم من كتابة الأرقام !
فإذا كان كذلك :
http://www.vb4arab.com/vb/showthread.php?t=44316
انظري المشاركة رقم 12 ( ويمكنك الاستفادة من المشاركات 6 و 7 و 13 )

[عبدالله الدوسري]

يؤسفنا أن نخبرك أنه تم اغلاق موضوعك لمخالفته قواعد المشاركة في المنتدى .
مخالفتك هي : كتابة عنوان غير واضح لا يدّل على محتوى الموضوع.

العنوان المقترح هو : كيف اجعل زر الإضافه غير مفعل لحين يبدآ المستخدم بالكتابه


نأمل أن تلتزم بقوانين الكتابة و أهلا بك معنا

بالتوفيق