يه مشكل خيلي ساده توي وي‍ژوال بيسيك دارم كمكم كنيد!!!
سلام دوستان من يه مشكل خيلي ساده توي وي‍ژوال بيسيك دارم ميشه كمكم كنيد...
دوستان همه شما مي دونيد كه رويداد Unload در هر فرم در وي بي به معناي اين است كه زماني كه ما فرم را مي بنديم تابعي كه در اين رويداد باشد فراخواني گردد.
حالا من يه مشكل دارم اونم اينكه مثلا من مي خوام يه پيغام تائيد خروج از برنامه رو بسازم و كد اون رو داخل رويداد Unload فرم قرار بدم بدين صورت:
Dim Msg As String
Msg = MsgBox("Are You Sure", vbQuestion + vbYesNo + vbDefaultButton1) 'exit message
If Msg = vbYes Then
End
Else
Form1.Show
End If
حالا من زماني كه برنامه رو اجرا مي كنم چه روي دكمه ي Yes بزنم چه روي دكمه ي No در هر دو حالت برنامه ي من بسته ميشه.در حالي كه من مي خوام فقط زماني كه روي دكمه ي Yes مي زنم بسته بشه...
خواهش مي كنم كمكم كنيد...
ههههههههههههههههههههههۀ!ۀ! !ؤ!ۀ!ؤ
نقل قول:
سلام!
مشکلت اینه:
Form1.Show
بجاش بنویس:
Cancel = 1
---------------------------------------
توصیه: به جای استفاده از دستور End از دستور Unload Me استفاده کنید!
--------------------------------------
یعنی کلا اینجوری میشه:
کد:
Dim Msg As String
Msg = MsgBox("Are You Sure", vbQuestion + vbYesNo + vbDefaultButton1) 'exit message
If Msg = vbYes Then
Unload Me
Else
Cancel = 1
End If
به همین سادگی! :11:
بابا اينقدر كفونديمون كه نفهمديم چي نوشتم.!.!.!:18:
دوست عزيز به خاطر هر سه سوالي كه امروز جواب دادين ازتون متشكرم...
اميدوارم كه موفق باشي!!!:46:
