كيف اجعل الكامبو يقوم بكتابة الرقم المناسب

الرفع

اخي لم افهم ماذا تريد ياريت توضح الغرض من البرنامج ايش :

هناك ملاحضة سريعة على الإجراء يمكنك تغيرة من :

Sub rabet()
   Combo15.AddItem ""
   Combo15.ItemData(0) = 0
   Combo15.ItemData(1) = 1
   Combo15.ItemData(2) = 2
   Combo15.ItemData(3) = 3
   Combo15.ItemData(4) = 4
   Combo15.ItemData(5) = 5
   Combo15.ItemData(6) = 6
   Combo15.ItemData(7) = 7
   Combo15.ItemData(8) = 8
   Combo15.ItemData(9) = 9
   Combo15.ListIndex = 0
End Sub

إلى :

Sub rabet()
   Dim i As Integer
   Combo15.AddItem ""
   For i = 0 To 9
         Combo15.ItemData(i) = i
   Next i
   Combo15.ListIndex = 0
End Sub

هذا عبارة عن كود صغير عند كتابة الرقم في اليسار يعطي القيمة المناسبة من الكامبو بوكس

اريد العكس

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

اخي المهنا يعني تريد ان تضهر الأرقام في نهاية النص :

جرب التالي : في حدث Click للـ Combo

Text1.Text = Text1.Text  & Combo15.ItemData(Combo15.ListIndex)

أخبرني بالنتيجة :rolleyes:

عدل الإجراء الي اخبرتك بتعديلة إلى:

Sub rabet()
  Dim i As Integer
   For i = 0 To 9
        Combo15.AddItem ""
        Combo15.ItemData(i) = i
  Next i
  Combo15.ListIndex = 0
End Sub

المطلوب

للرفع