28-01-2012, 10:26 PM
السلام عليكم
قديماً في في بي 6 كنت أكتب هذا الإجراء لتأكيد إغلاق برنامج
و لكني أقوم بترجمة هذا الكود إلى باسكال بدون الأمر الذي يساوي الأمر exit sub و الذي يعني إنهاء الإجراء كأنه لم ينفذ
و فعلاً لا يتم إغلاق البرنامج و لكن الذي يحدث أنه يظل محجوز في الذاكرة و لا تظهر النوافذ
جربت الأمر .refresh; للنوافذ لم يفلح فما هو الحل ؟
و شكراً
قديماً في في بي 6 كنت أكتب هذا الإجراء لتأكيد إغلاق برنامج
كود :
dim x
x = msgbox(" Do YOU Want To Close?","End",vbyesno)
if x = vbyes then
end
else
exit subو فعلاً لا يتم إغلاق البرنامج و لكن الذي يحدث أنه يظل محجوز في الذاكرة و لا تظهر النوافذ
جربت الأمر .refresh; للنوافذ لم يفلح فما هو الحل ؟
و شكراً