[mohamedallams]

(20-07-22, 08:25 PM)أبو خالد الشكري كتب : بعد إذن الأستاذ سعود
أحب أن أشارككما في الموضوع
أنا أعتقد بأن الكود خاطئ
والصواب هو الكود التالي ، والله أعلم

كود :

   Dim X = CMbPORTSCAN

       If X.Items.Count = 0 Then
           SerialPort1.Close()
       End If

.الف شكر للاستاذ سعود ولك استاذي الفاضل حاولت البحث جيدا ووصلت للحل 
الكود الصحيح وهو التالي 

كود :

If combo1.Empty = true then
Msgbox("")
End If

---

الكود الذي وضعته استاذي خالد يعني لو كان عدد الايتم صفر يقوم بأغلاق البورت لاكن سؤالي كان ان لم يقم باختيار الكوم يعني انه يوجد عدد من الايتم انما اذا كان الاختيار فارغ فلم يعمل الكود الذي ترحطه يا استاذ خالد
ووضعت اعلاه الكود الذي ساعدتني باتمام المشكله التي واجهتني واشكرك واشكر استاذ سعود