26-01-25, 03:35 AM
السلام عليكم ورحمة الله وبركاته
أخي العيدروس
ما فهمته من رد حضرتك الثاني
انك تريد ربط الارقام في الكمبوبوكس 1 وكومبو بوكس 2
حتى وإن قمت بتغييرهم في المستقبل
إذا ما فهمته صحيح
يمكنك تجربة الكود التالي
وفكرته هي دمج ما هو موجود فقط في الاثنين كومبوبكس بنفس الصيغة التي تريدها ظهورها كنتيجة
أما في حالة أني فهمت كلامك خطأ
فأرجو التوضيح أكثر لكي نستطيع مساعدتك
أخي العيدروس
ما فهمته من رد حضرتك الثاني
انك تريد ربط الارقام في الكمبوبوكس 1 وكومبو بوكس 2
حتى وإن قمت بتغييرهم في المستقبل
إذا ما فهمته صحيح
يمكنك تجربة الكود التالي
وفكرته هي دمج ما هو موجود فقط في الاثنين كومبوبكس بنفس الصيغة التي تريدها ظهورها كنتيجة
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
TextBox1.Text = "100"
Case 1
TextBox1.Text = "200"
Case 2
TextBox1.Text = "300"
Case 3
TextBox1.Text = "400"
Case 4
TextBox1.Text = "500"
End Select
ComboBox2_SelectedIndexChanged(sender, e)
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.SelectedIndex
Case 0
TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text
Case 1
TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text
Case 2
TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text
End Select
End Subأما في حالة أني فهمت كلامك خطأ
فأرجو التوضيح أكثر لكي نستطيع مساعدتك
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي

