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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : احتاج مساعدة في الكومبو بوكس (/showthread.php?tid=28040)



احتاج مساعدة في الكومبو بوكس - scsi7000 - 26-12-18

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


RE: احتاج مساعدة في الكومبو بوكس - scsi7000 - 26-12-18

ارجوا من هو مختص بالثريد اضافته للمثال الذي ارفقته وشكرا


RE: احتاج مساعدة في الكومبو بوكس - ناجح احمد - 26-12-18

استخدم datacombo بدل combobox فهي اسرع 
كود :
Private Sub DataCombo1_GotFocus()
If rs2.State = 1 Then rs2.Close
rs2.Open "select * from drug", conn2, adOpenStatic, adLockPessimistic
Set DataCombo1.RowSource = rs2
DataCombo1.ListField = "drug_t"

End Sub



RE: احتاج مساعدة في الكومبو بوكس - scsi7000 - 28-12-18

شكرا اخي لقد استخدمت الادات وكانت نتائجها ممتازه