ايران ويج

يك سوال خيلي مبتدي از شما استادن عزيز
من يك برنامه دارم وقتي ميخوام از اين برنامه خارج شم (close) نميشه
شكل زبر


تنها راه بستنش هم اينه كهminimaiz كنم و اروور زير را بده و بسته بشه
در سروسس چه كار بايد بكنم



Else
Dim iw As Long
While Height > 405
Height = Height - 50
DoEvents
Wend
While Width > 1650

علت خطا دادنش که معلومه ولی علت بسته نشدنش تو سورس معلوم میشه شما که سورس نذاشتی. اما این کد بسته نشدن یا تو رویداد Form_Unload نوشته شده یا توی یک تایمر

دقیقا تو دلفی دستوری بنام application.run هست که برنامه رواجرا میکنه وقتی اونو تو رویدادForm_Unload مینویسیم هر وقت فورم میخواهد بسته بشه این کداجرا شده و برنامه دوباره اجرا میشه حالا شما کد برابر application.run رو تو vb پیدا کن و بنویس

سلام
اگه تو Form_Unload بنویسی Cancel = 1 برنامه بسته نمیشه

موفق باشی

از همه دوستان متشكرم
مشكلم حل شد