منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب توضيح في أداة combobox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله و بركاته
إخواني عندي أداة combobox مرتبطة بقاعدة بيانات و أريد أن يكون العنصر المختار هو الموجود في textbox فكتبت الكود التالي :
combo1.selecteditem=text1.text
و لكن لم يتحرك ، على الرغم من وجود العنصر المكتوب في التيكست في قائمة الكومبو
جربت نفس الكود على combobox غير مرتبط بقاعدة بيانات فاشتغل بكفاءة
السؤال كيف يمكن عمل ذلك (على كومبو مرتبط بقاعدة بيانات)
و شكرا للجميع
في اي حدث وضعت الكود
يجب أن يتطابق النصان في أداتي الـ Textbox و Combobox حتى يتم الاختيار التلقائي
جرب وضع الكود أعلاه في حدث الخروج من الـ Textbox
kslawy كتب :يجب أن يتطابق النصان في أداتي الـ textbox و combobox حتى يتم الاختيار التلقائي
جرب وضع الكود أعلاه في حدث الخروج من الـ textbox
جربت في حدث الخروج من text و لكن دون فائدة ، النصان متطابقان بكل تاكيد
اخي قم بالضغط مرتين على combobox وقم بوضع الكود هنالك
أبو أسامة تركي كتب :جربت في حدث الخروج من text و لكن دون فائدة ، النصان متطابقان بكل تاكيد

نعم صحيح ولكن عند استبدال Selecteditem بـ text يتم اختيار النص . عدل كودك ليصبح :

كود :
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If TextBox1.Text <> "" Then
            If ComboBox1.Items.Count > 0 Then
                ComboBox1.Text = TextBox1.Text.Trim
            End If
        End If
    End Sub


*****
****
***
**
*
الموضوع ببساطة عند قيامك بربط ال combobox قم باسناد ال value member الى الحقل المراد عرضه فى ال textbox
بمعنى
PHP كود :
combobox1.datasource =dataset
combobox1
.displaymember="name"
combobox1.valuememeber="name"

ثم قم قم بكتابة هذا الكود

Private Sub ComboBox1_SelectionChangeCommitted(sender As ObjectAs EventArgsHandles ComboBox1.SelectionChangeCommitted
        TextBox1
.Text Me.ComboBox1.SelectedValue.ToString
    End Sub 
kslawy كتب :نعم صحيح ولكن عند استبدال Selecteditem بـ text يتم اختيار النص . عدل كودك ليصبح :

كود :
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If TextBox1.Text <> "" Then
            If ComboBox1.Items.Count > 0 Then
                ComboBox1.Text = TextBox1.Text.Trim
            End If
        End If
    End Sub


*****
****
***
**
*

شكرا لك اخي تمت التجربة بنجاح
شكرا للجميع على التفاعل