مطلوب كود يحدد رقم الأسطوانة

Private Sub Combo1_Click()
Dim Disk#
Disk# = Mid(Combo1.Text, 1, 1)
MsgBox "الرجاء ادخال القرص رقم " & Disk#
End Sub

تحتاج: اداة combo تقوم بادخال اسماء الدول فيها بالترتيب الذي تريد وسيكون رقم القرص المطلوب هو الرقم الموجود قبل اسم الدولة

او يمكنك استخدام

Private Sub Combo1_Click()
Dim Disk#
Disk# = Combo1.ListIndex + 1
MsgBox "الرجاء ادخال القرص رقم " & Disk#
End Sub

وذلك في حال لم تكن تريد وضع ارقام قبل اسماء الدول

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

اخى العزيز...

كل ما فى الامر ان يكون لديك عدة اسطوانات كل اسطوانه بداخلها ملف موجود به رقم الاسطوانه ويقوم برنامجك بالبحث عن هذا الملف وفتحه ويبحث بداخله عن الرقم لو كان صحيح يقوم بأكمال باقى كود التحميل وان كان غير صحيح يعطى المستخدم رساله بأن الاسطوانه الموجوده غير صحيحة مع العلم بأن البرنامج لابد وأن يعمل من على الهاردديسك يعنى لابد عند تثبيته ان يقوم بنسخ نفسه على الهاردديسك فى أى مكان حتى لا يسبب مشاكل اُثناء تغيير الاسطوانات...

ارجوا ان أكون قمت بالتوضيح

ولك منى جزيل الشكر...

شريف،،،

;) ;) :rolleyes:

ألف ألف شكر

مشكوووووووووووووووووورين وما قصرتم

وكل عام وأنتم بخير