خارج شدن کامل از برنامه

[mahdi.fa]

با سلام خدمت دوستان:
میخوستم بدانم که چگونه می تونم روی دکمه ی ضربدر که روی خود ویندوز قرار دارد پیغام بگذارم که موقع بست آن پیغام بدهد و درضمن موقعی که دکمه ضربدر را کلیک میکنم از برنامه خارج نمی شود و فقط فرم hiden میشود ؟

[محسن واژدی]

سلام
دستور زیر را بررسی کنید:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Exit?", 52) = 6 Then
Dim cfrm
For Each cfrm In Forms
Unload cfrm
Next
End
Else
Cancel = 1
End If
End Sub


موفق باشید

[Veteran]

سلام
اقا محسن میشه در مورد For Each یک توضیحی بدین ؟ چه فرقی با For next میکنه ؟

[محسن واژدی]

سلام
حلقه For دستوراتی را به تعداد بار مشخص شده تکرار و اجرا میکند همچنین متغیر قرار گرفته در For فقط تعداد تکرار را برمیگرداند
اما در دستور For-Each یک مجموعه که میتونه Collection یا Array باشه مرور میشود (که در کد بالا مجموعه فرم ها مرور میشه)، همینطور متغیری که در این حلقه مقداری را برمیگرداند از نوع Variant است

موفق باشید