PDA

View Full Version : سوال: گرفتن تایید برای خروج از برنامه



maminb
یک شنبه 20 بهمن 1387, 17:36 عصر
سلام دوستان. می‏خوام برنامه‏ای بنویسم که وقتی به هر شکل که می‏خواهیم آن را ببندیم، با یک Msgbox از ما تاییدیه بگیره. فکر کنم باید در رویداد Form Closing بنویسم. شاید هم اشتباه می‏کنم. ممنون می‏شم نحوه این کار و کدشو برام بذارید.




با تشکر.

sari-1369
یک شنبه 20 بهمن 1387, 22:59 عصر
درست دوسته من تو فرم کلوزینگ کد زیر رو بنویس .




e.Cancel = True

If MsgBox("mikhad az barname kharej shavid ?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

End

End If

maminb
دوشنبه 21 بهمن 1387, 14:53 عصر
یه دنیا ممنونم. مرسی دوست من!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:قلب:

nokhodsiah2001
دوشنبه 21 بهمن 1387, 15:13 عصر
سلام

از این متد هم میتونی استفاده کنی البته بسته به نیازت باید تغییرش بدی




Private _closeClick As Boolean
Public Const SC_CLOSE As Integer = 61536
Public Const WM_SYSCOMMAND As Integer = 274




Protected Overloads Overrides Sub WndProc(ByRef m As Message)
Dim mas As New CMessageBox
' Dim intreturnvalue As Integer

If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then

Msgbox(" برای خروج اطمینان دارید")

Me._closeClick = True
End If
' End If
MyBase.WndProc(m)
End Sub

maminb
دوشنبه 21 بهمن 1387, 17:22 عصر
سلام

از این متد هم میتونی استفاده کنی البته بسته به نیازت باید تغییرش بدی




Private _closeClick As Boolean
Public Const SC_CLOSE As Integer = 61536
Public Const WM_SYSCOMMAND As Integer = 274




Protected Overloads Overrides Sub WndProc(ByRef m As Message)
Dim mas As New CMessageBox
' Dim intreturnvalue As Integer

If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then

Msgbox(" برای خروج اطمینان دارید")

Me._closeClick = True
End If
' End If
MyBase.WndProc(m)
End Sub


ممنون. ولی میشه یه ذره بیشتر توضیح بدید؟