منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب توضيح في أداة combobox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب توضيح في أداة combobox (/showthread.php?tid=7161)

طلب توضيح في أداة combobox - تركي قرمزلي - 28-11-12

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

طلب توضيح في أداة combobox - amgadtamer - 28-11-12

في اي حدث وضعت الكود

طلب توضيح في أداة combobox - kslawy - 28-11-12

يجب أن يتطابق النصان في أداتي الـ Textbox و Combobox حتى يتم الاختيار التلقائي
جرب وضع الكود أعلاه في حدث الخروج من الـ Textbox

طلب توضيح في أداة combobox - تركي قرمزلي - 28-11-12

kslawy كتب :يجب أن يتطابق النصان في أداتي الـ textbox و combobox حتى يتم الاختيار التلقائي
جرب وضع الكود أعلاه في حدث الخروج من الـ textbox
جربت في حدث الخروج من text و لكن دون فائدة ، النصان متطابقان بكل تاكيد

طلب توضيح في أداة combobox - سيف الدين عزيز - 28-11-12

اخي قم بالضغط مرتين على combobox وقم بوضع الكود هنالك

طلب توضيح في أداة combobox - kslawy - 28-11-12

أبو أسامة تركي كتب :جربت في حدث الخروج من 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 - amgadtamer - 28-11-12

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

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

Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
        TextBox1.Text = Me.ComboBox1.SelectedValue.ToString
    End Sub 


طلب توضيح في أداة combobox - تركي قرمزلي - 28-11-12

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


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

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