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

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



ربط تكست بوكس بي كومبو بوكس - mawadaalmogrbi - 04-04-18

السلام عليكم اخواتي عندي منظومة يوجد بها الرقم الوظيفي واسم الموظف بنسال ع طريقة بمجرد ادخال الرقم الوظيقي يظهر اسمه تلقائيا في الكومبو يااريت تساعدوني ضروري وشكرا مقدما


RE: ربط تكست بوكس بي كومبو بوكس - سعود الشامان - 04-04-18

وعليكم السلام ورحمة الله وبركاته

هنالك عدة طرق لذالككك


[صورة مرفقة: 1522863633352.png]



رابط المثال :

http://sr83a.com/up/Sr/1522863633351.zip



الكود بالكامل :


كود :
Public Class Form1


   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

       Dim saud As String

       saud = ComboBox1.SelectedIndex

       Select Case ComboBox1.Text

           Case "احمد"

               TextBox1.Text = "احمد"
               TextBox2.Text = "11223"
               TextBox3.Text = "3000"

           Case "محمد"

               TextBox1.Text = "محمد"
               TextBox2.Text = "11222"
               TextBox3.Text = "5000"

       End Select

   End Sub

End Class

للإكمال التلقائي إجعل إعدادات الكومبو بوكس بهذا الشكل

[صورة مرفقة: 1522864418981.png]