PDA

View Full Version : آیا امکان نوشتن برنامه برای خروج هست ؟



Juventus FC
سه شنبه 28 مرداد 1393, 20:26 عصر
درود بر اساتید گرامی

یک سوال :

برای این Close خارج شدن از فرم زمانی که برنامه اجرا است چه طور میشه برنامه نوشت ؟ (به عکس توجه کنید).

http://www.shiaupload.ir/images/15694339646526884942.jpg

مثلا من میخواهم وقتی کاربر روی این کلیک کرد و از برنامه خارج شد ، DataGrid اطلاعات موجود در خودش و Delete بکنه !

Mr.305
سه شنبه 28 مرداد 1393, 21:05 عصر
تو رویداد Form_Unload کدت رو بنویس

Juventus FC
جمعه 31 مرداد 1393, 20:11 عصر
form1_Terminate()


تو رویداد Form_Unload کدت رو بنویس

فکر کنم نفهمیدید منظورم چیه ! یک نگاه به عکس بندازید من میخوام رو اون ضرب در Close پنچره ویندوز که کلیک کردم اینطور بشه !
Form_Unload که قضیش جداست ! اون
form1_Terminate() هم تاثیری نداشت

ahmad abdoli
جمعه 31 مرداد 1393, 21:18 عصر
خوب شما می خواد چطور بشه؟
مگه نمی خواهید وقتی روی اون ضرب در کلیک شد یه کاری انجام بده خوب باید توی رویداد Unload فرم کد مربوط رو بنویس.

Juventus FC
یک شنبه 02 شهریور 1393, 15:18 عصر
خوب شما می خواد چطور بشه؟
مگه نمی خواهید وقتی روی اون ضرب در کلیک شد یه کاری انجام بده خوب باید توی رویداد Unload فرم کد مربوط رو بنویس.

چرا میخوام همینطور بشه ! ولی من کدش و نوشتم ولی وقتی روی ضرب در کلیک میشه صرفا پنجره بسته میشه و هیچ تراکنش دیگه ای انجام نمیشه !

Mr.305
یک شنبه 02 شهریور 1393, 15:41 عصر
خب اول خاصیت cancel رویداد unload رو صفر بکنی(یا یک ,دقیقا یادم نیست)بعد کدت رو بنویسی بعد
unload me

just4froum
دوشنبه 03 شهریور 1393, 00:45 صبح
با اجازه آقای Mr.305 این هم یک نمونه کد ساده :

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Exit ?", vbQuestion + vbYesNo) = vbYes Then
Cancel = 0
Else
Cancel = 1
End If
End Sub

vbhamed
دوشنبه 03 شهریور 1393, 08:11 صبح
سلام
كدهايي كه دوستان گفتن درسته اما از متد Form_QueryUnload هم مي‌تونيد استفاده كنيد
اين متد يك پارامتر UnloadMode داره كه مي‌تونه نوع خارج شدن رو هم بهتون بگه
0 : دكمه ضربدر رو زديم
1 : داخل كد خودمون دستور Unload Me رو داديم
2 : ويندوز دستور خروج به برنامه داده، براي تست فايل exe درست كنيد، همه برنامه هاي باز ويندوز رو ببنديد و فايل exe رو اجراش كنيد سپس دكمه پاور روي كيس رو بزنيد


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

MsgBox UnloadMode

End Sub

Juventus FC
دوشنبه 03 شهریور 1393, 17:55 عصر
آهان آقا مرسی اینکه دوست آخریمون گفت خیلی به کارم اومد ممنون ! مشکلم حل شد !