+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب كود تحديث او ريفرش كومبو بوكس (/showthread.php?tid=6748)
طلب كود تحديث او ريفرش كومبو بوكس - nablion - 28-10-12
السلام عليكم
لو سمحتم ممكن كود تحديث الكومبو بوكس
لكي يتم التعرف على النوافذ التي انفتحت بعد تشغيل البرنامج
هذه صورة البرنامج
البرنامج يحتوي على موديل 1 فورم 1
مهمه الموديل التعرف على النوافذ المفتوحه بالجهاز
ولكن يجب ان تكون مفتوحه قبل ان تفتح البرنامج
اريد كود يحدث يعمل ريفرش الى الكومبو بوكس
لكي يتعرف على النوافذ المفتوحه بعد فتح البرنامج
صورة البرنامج
[ATTACH=CONFIG]1143[/ATTACH]
وايضا ساضع البرنامج بالمرفقات
طلب كود تحديث او ريفرش كومبو بوكس - 3amo - 29-10-12
nablion كتب :السلام عليكمالسلام عليكم ورحمة الله وبركاته
لو سمحتم ممكن كود تحديث الكومبو بوكس
لكي يتم التعرف على النوافذ التي انفتحت بعد تشغيل البرنامج
البرنامج يحتوي على موديل 1 فورم 1
مهمه الموديل التعرف على النوافذ المفتوحه بالجهاز
ولكن يجب ان تكون مفتوحه قبل ان تفتح البرنامج
اريد كود يحدث يعمل ريفرش الى الكومبو بوكس
لكي يتعرف على النوافذ المفتوحه بعد فتح البرنامج
قم باضافة تايمر الى المشروع وغير خاصية الانترفال الى500
ثم ادرج هذا الكود
كود :
Private Sub Timer1_Timer()
Combo1.Clear
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
Combo1.Text = "اختيار النافذة المفتوحة"
Combo1.Refresh
End Subوننتظر من الاساتذة الكود الصحيح
طلب كود تحديث او ريفرش كومبو بوكس - eng - 29-10-12
إذا اردت داخل الكوماند فقط بدون التايمر
كود :
Combo1.Clear
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
Combo1.Text = "اختيار النافذة المفتوحة"طلب كود تحديث او ريفرش كومبو بوكس - nablion - 29-10-12
شكرا لكم اخوتي
بصراحه شيئ جميل
الكود الاول يعمل ريفرش تلقائي
والكود الثاني يعمل ريفرش بالزر وهو المطلوب
الله يعطيكم العافيه
تم الحل