غلق النوافذ المفتوحة في حالتها show 1?

لقد حللت لك المشكلة

وادرجت لك الكود

الفكرة تعتمد على وضع رقم عداد على خاصية tag لكل فورم جديد يفتح بحيث تأخذ أول فورمة تفتح رقم و احد و الثانية تأخذ رقم اثنين و هكذا و عند الضغط على زر القفل يتم عمل loop يقفل الفورمة التى تحتوى على أقص رقم للعداد و اذا قفلت ننقص العداد بواحد و هكذا المرة القادمة سيمسح الفورمة التى تليها حتى يصبح العداد صفر و بذلك سيتوقف عمل ال loop بعد ان ينتهى من قفل كا الفورمات B) :)

ولكن هذا العداد لابد ان يوضع فى module حتى تستطيع قرائته كل الفورمات التى تفتح

Public C as integer

لا تنسى وضع هذا الكود فى module

و الكود الباقى كالتالى

Private Sub Command1_Click()
Dim f As New Form1
C = C + 1
Load f
f.Tag = C
f.Show 1

End Sub

Private Sub Command2_Click()
CloseAll
End Sub
Sub CloseAll()
Dim f As Form
While C <> 0
For Each f In Forms
DoEvents
If f.Name <> "min" And f.Tag = Trim(Str(C)) Then
Unload f
C = C - 1
End If
Next f
Wend
End Sub

مع خالص تحياتى

تحية كبيرة لك أخيـ VB6-Rocket

قبل كل شيء انا فعلا اشكرك واتمنا لك التوفيق من الله عز وجل

امممـ بالنسبة للكود :unsure:

انا فهمت عمل الكود ومواضعه ..بس

Command1 اين يوضع هل على زر فتح النوافذ !

لكن بهذا الشكل لم تعمل لدي .. :blink:

اقتباس

Private Sub Command1_Click()

Dim f As New Form1

C = C + 1

Load f

f.Tag = C

f.Show 1

End Sub

استبدلت هذا الجزء بهذا الكود

FORM1.Show 1
C = C + 1
FORM1.Tag = C

على كل زر يعض فورم ولكن لم تظهر اي نتائج

وايضا كود

Sub CloseAll()
Dim f As Form
While C <> 0
For Each f In Forms
DoEvents
If f.Name <> "min" And f.Tag = Trim(Str(C)) Then
Unload f
C = C - 1
End If
Next f
Wend


If f.Name <> "min" And f.Tag = Trim(Str(C)) Then

End Sub

اعتقد ان عمل هذا الكود يقول لو ماكان رقم TAG الفورم=رقم المتغبر لاتغلقه ... بمعنى انها تظل مفتوحه

لكني لم افهم عمل Wend ..

مازالت المشكلة موجودة (.'') ما الحل برأيك؟

تحية مع إعتذاري

:blink: لم ألاحظ هذا السطر

والذي هوا رد لسؤالي ..

While C <> 0

النقطة الثانية تم قلب كودي(الترتيب)على مبدأ كودك والحمدلله :lol: المطلوب بالضبط

C = C + 1
FORM1.Tag = C 
FORM1.Show 1

اخيرا وليس بالاخير :wacko: فدا ئما مدام في PwerGirl دايما في أسإله وطالما في A.VB6-Rocket في دائما إجابات B) والخير والبركه فالمبرمجين والمبرمجات الي فالمنتدى :unsure: ..

نفسي يجي يوم وأطرح مواضيع بدل الاسئلة :lol:

وسؤالي عن Wend انا ما اعرفه ان While تاتي معها Do!

دعائي لك بالتوفيق :lol: A.VB6-Rocket فيما تحب ويرضي الله

بالنسبة ل wend

فهه هى احدى صور While loop

حيث تكتب كالتالى

الشرط while

بعض الكود

wend

و معنى wend تابع الدوران أو أكمل الدوران

أشكرك أخيـ A.VB6-Rocket

بالتوفيق :lol:

واجهتني مشكلة فهذا الكود

ارجوا المساعدة.. فهيا فالمره الاولى تعمل بشكل جيد بعد ذلك تبدأ الاخطاء؟ :unsure:

show_pg.rar

up