+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] طلب كود (/showthread.php?tid=20904)
طلب كود - Kasper - 03-07-17
مرحبا اخواني الكرام قمت بتصميم واجهة لبرنامج على الفيجوال بيسك
ولاكن الان انا احتاج الي كود لربط صندوق " ComboBox " باي صندوق اخر لعرض محتوي نصي عندما اختار اي اختيار من " ComboBox "
مثال قمت بوضع عدة خيارات بصندوق " ComboBox " واريد عندما اختار خيار معين يظهر لي بالصندوق الاخر محتوي نصي
وهذه صورة للبرنامج توضيح
RE: طلب كود - abomo3ath - 29-08-17
(03-07-17, 12:10 AM)Kasper كتب :مرحبا اخواني الكرام قمت بتصميم واجهة لبرنامج على الفيجوال بيسك
ولاكن الان انا احتاج الي كود لربط صندوق " ComboBox " باي صندوق اخر لعرض محتوي نصي عندما اختار اي اختيار من " ComboBox "
مثال قمت بوضع عدة خيارات بصندوق " ComboBox " واريد عندما اختار خيار معين يظهر لي بالصندوق الاخر محتوي نصي
وهذه صورة للبرنامج توضيح
الحل يكون بإنشاء قاعدة بيانات وفيها ثلاث حقول
الحقل الأول ترقيم تلقائي
الثاني العناوين التي تريدها أن تكون في combobox
الثالث الأكواد أو النص الذي ترغب أن يظهر في textbox أو label أو ماتشاء
ويكون الكود هو عبارة عن استعلام من خلال تغيير القيمة في الـ combobox في قاعدة البيانات والناتج يظهره لك في المكان الذي ترغب أن يظهر فيه الناتج
أتمنى أن تكون فهمت الفكرة
RE: طلب كود - سعود - 29-08-17
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