كيف اجعل امر على امرين( يختص ب Unload )

علشان حدث الـ Unload_Form بيتنفذ فى عند أغلاق الفورم , و بعدين أنت مش محتاج End أساسا لأن الـ Form2 متفتحتش قبل كده و بالتالى أغلاق الـ Form1 لوحدها هيقفل البرنامج كله.

فكرة حلوة بس Form1 مهي الديفولت

يعني ما رح يخرج على طول

حط متغير من نوع Boolean , لو الشفرة صح أضبطة على True

و فى حدث الـ Unload لو المتغير قيمته False أعمل End مع العلم انى لا أنحص بعمل End على الأطلاق.

ماشى يا عم الاند سرقت الفكرة الى كنت عاوز اقولها اوك ماشى

طب انا هسرق منك فكرتك

private sub EndProject
Dim Frm As Form
for Each Frm In Form
Unload frm
next
set frm = Nothing
end sub

حط السب ده بدل الاند

بالنسبة لمحمد انا اخذت الفكرة منه رخامة يعنى (غصم واقتدار)

وربنا على المفترى

شكرا و براحتك , على العموم مش أنا اللى كاتبه أساسا , دى فكرة من منتدى vbForums لقيتها حل أفضل لـ End

اقتباس

حط متغير من نوع Boolean , لو الشفرة صح أضبطة على True

و فى حدث الـ Unload لو المتغير قيمته False أعمل End مع العلم انى لا أنحص بعمل End على الأطلاق.

لم افهم شي و ما هو Boolean

الرجاء شرح Boolean اذا امكن

و ارفق لي مثال عليه

او اعطني الكود

يبدو أنك لسه جديد , الـ Boolean هو نوع من المتغيرات , فقط يقبل True أو False

ضع مثلا :

Dim bCorrect As Boolean

فى بداية الكود و فى حدث الضغط على التنفيذ أضبطها لـ False أو True على حسب الشفرة و أكمل ما قد ذكرته بالمشاركة 4

أو أستعمل :

If Text1.Text = "123"  Then
		Form2.Show
		Unload Me
	Else
		Dim Frm As Form
		For Each Frm In Form
			Unload Frm
			Set Frm = Nothing
		Next
End If

و أزل End من حدث الـ Unload

ايه يا دكتر محمد الحلاوة دى شرح البوولين

البوليين ياتى من العالم بوليين مكتشف الجبر البولينى وهو يختص بعمليات المنطقية على الاعداد الثنائية

or

AND

NOR

XOR

XNOR

لمحة تاريخية مش اكتر ملهاش دعوة بالموضوع

ياعم أنا بتكلم فى VB6 و متغييراته , أهتماماتك الجديدة بلغات أخرى خلتك فى الـ ..... ( هقلك بعدين ) , ربنا معاك فى أمتحاناتك.

مشكور جميعا على الموضوع و لقد استفدت منه و الطريقة التي اعتمدت عليها هي :

في التصريح

اقتباس

Dim bCorrect As Boolean

في زر الدخول

اقتباس

If Text1.Text = "123" Then

bCorrect = True

Unload Me

Form2.Show

End If

في الفورم ان لود

اقتباس

If bCorrect = False Then

End

End If

و لقد تم فعل الذي اريده بفضل الله اولا ثم بفضلكم و جميلكم هذا ما رح انساه

شكرا