عبد العزيز اليوسفي

صرح عنه في أول الكود Dim i As Integer

طيب لماذا لا تستخدم إجراء sub في القوائم وتستعمله في البرنامج أيضاً

Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 List1.ListIndex = i If List1.Text = Text1 Then MsgBox "موجود": Exit Sub Next MsgBox "غير موجود" End Sub

أخي أسامة بارك الله بك وبعلمك الخطأ المقصود هو أن البرنامج يجمد ويعطي خطأ في الوندوز وأنا قلت ذلك قبل ما أدرس الكود فوضعت التعليمة DoEvents قبل اللوب ، فما عاد يعطي رسالة الخطأ البرنامج يدخل في دوامة الLoop في الكود التالي وذلك عند فتح نافذة جديدة أي يصبح المت…

لوبحثت في محرك البحث لوجدت الجواب /index.php?showtopic=64527

هناك خطأ في كلامي السابق نتج عن السرعة في الرد المجموعة 40106 هي التي تحوي 6 قوادح شميت بينما المجموعة 4069 تحوي 6 عواكس بدون قادح شميت وهي التي تستخدم في عملية التكبير وليس هناك دخل للعواكس بالتكبير الإشارة وإستعمال العواكس هو في قسم إعطاء الصفير ويمكن الإستع…

هذا مثال يفيدك وهوليس لي PrintScreen.zip

شيىء جميل موضوع من سنة وصاحبه موجود وقام بالرد السريع :D

على كل حال أرجو أن يكون التالي هو المطلوب: Private Sub List1_Click() If List1.Text = "message" Then menu2_Click End Sub

لم أنتبه على ملف الصورة في مرفقك ، كنت حطها من الاول

وأنا تظهر أيضاً وأعتقد أن الرسالة تظهر عندما تكون الإدارة تحدث المنتدى

لا تستطيع التحكم بمخرج USB إلا بدارة خارجية ، أو تقوم بتصنيع كارت يركب على PCI عوضاً عن الكرت السابق ،ثم تتجه إلى الفيجوال بيزك او الدوت نت

إفحص الذواكر

تشكر أخي hossam4all وهناك أمثله أيضاً في المنتدى لذلك

end تقوم بنفس عمل : Dim Frm As Form For Each Frm In Forms Unload Frm Set Frm = Nothing Next فكيف ستعطي مشاكل ، ممكن تنورنا بها أخي msayed2004 قد تكون لديك معلومة لا نعرفها

/index.ph...3&st=0&

أيضاً سؤالك غير مفهوم وملخبط على كل حال يمكن تقصد هل الكود: Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1 = List1.Text For i = 0 To List1.ListCount - 1 List1.ListIndex = i If List1.Text = Text1 Then MsgBox Lis…

مشكور أخ حريف برمجة الظاهر سبقتني بقليل

Dim retval As Long retval = Shell("C:\WINDOWS\CALC.EXE", vbNormalFocus) End