[Kasper]

مرحبا اخواني الكرام قمت بتصميم واجهة لبرنامج على الفيجوال بيسك 

ولاكن الان انا احتاج الي كود لربط صندوق " ComboBox " باي صندوق اخر لعرض محتوي نصي عندما اختار اي اختيار من " ComboBox " 

مثال قمت بوضع عدة خيارات بصندوق " ComboBox " واريد عندما اختار خيار معين يظهر لي بالصندوق الاخر محتوي نصي 

وهذه صورة للبرنامج توضيح

[abomo3ath]

(03-07-17, 12:10 AM)Kasper كتب :

مرحبا اخواني الكرام قمت بتصميم واجهة لبرنامج على الفيجوال بيسك 

ولاكن الان انا احتاج الي كود لربط صندوق " ComboBox " باي صندوق اخر لعرض محتوي نصي عندما اختار اي اختيار من " ComboBox " 

مثال قمت بوضع عدة خيارات بصندوق " ComboBox " واريد عندما اختار خيار معين يظهر لي بالصندوق الاخر محتوي نصي 

وهذه صورة للبرنامج توضيح

الحل يكون بإنشاء قاعدة بيانات وفيها ثلاث حقول 

الحقل الأول ترقيم تلقائي

الثاني العناوين التي تريدها أن تكون في combobox

الثالث الأكواد أو النص الذي ترغب أن يظهر في textbox   أو label أو ماتشاء

ويكون الكود هو عبارة عن استعلام من خلال تغيير القيمة في الـ combobox في قاعدة البيانات والناتج يظهره لك في المكان الذي ترغب أن يظهر فيه الناتج


أتمنى أن تكون فهمت الفكرة 

[سعود]

PHP كود :

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
    Dim con As New OleDb.OleDbConnection(str)
    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter("select * from tb", con)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        da.Fill(dt)
        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "tn"
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = dt(sender.selectedindex)(2)
    End Sub
End Class