يه مشكل خيلي ساده توي وي‍وژال بيسيك دارم كمكم كنيد!!!

[tarfand4u]

سلام دوستان من يه مشكل خيلي ساده توي وي‍ژوال بيسيك دارم ميشه كمكم كنيد...

دوستان همه شما مي دونيد كه رويداد 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 مي زنم بسته بشه...

خواهش مي كنم كمكم كنيد...

[n.s]

شما می تونید این دستورات رو توی یه command button بنویسید ...اینجوری جواب می ده ...

[tarfand4u]

اي بابا عزيز من منظورم اين بود كه چي كار كنيم توي رويداد Unload فرم استفاده كنيم نه اينكه بيايم و توي رويداد كليك CommandButton استفاده كنيم.

وگرنه اينو كه هر كسي مي دونه!!

ولي بازم به خاطر توجه تون ممنون

[tarfand4u]

كسي نيست كمك كنه!؟!؟

[Smafias]

سلام!

مشکلت اینه:

Form1.Show

بجاش بنویس:

Cancel = 1

---------------------------------------

توصیه: به جای استفاده از دستور End از دستور Unload Me استفاده کنید!

--------------------------------------

یعنی کلا اینجوری میشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

به همین سادگی!

[tarfand4u]

سلام!

مشکلت اینه:

Form1.Show

بجاش بنویس:

Cancel = 1

---------------------------------------

توصیه: به جای استفاده از دستور End از دستور Unload Me استفاده کنید!

--------------------------------------

یعنی کلا اینجوری میشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

به همین سادگی!

بابا اينقدر كفونديمون كه نفهمديم چي نوشتم.!.!.!

دوست عزيز به خاطر هر سه سوالي كه امروز جواب دادين ازتون متشكرم...

اميدوارم كه موفق باشي!!!

[tkd]

برای اینکه بتونی فقط وقتی روی دکمه Yes کلیک میشه ، برنامه بسته بشه باید از شرط استفاده کنید .

if msg=yes then unload me else
.
.
. بقیه دستورات

End IF

[Smafias]

بابا اينقدر كفونديمون كه نفهمديم چي نوشتم.!.!.!

دوست عزيز به خاطر هر سه سوالي كه امروز جواب دادين ازتون متشكرم...

اميدوارم كه موفق باشي!!!

خواهش میکنم! وظیفم بود

برای اینکه بتونی فقط وقتی روی دکمه Yes کلیک میشه ، برنامه بسته بشه باید از شرط استفاده کنید .

if msg=yes then unload me else
.
.
. بقیه دستورات

End IF

دوست عزیز این مسئله کاملا حل شده و نیازی به پاسخ دوباره نداشت!
برای اطلاعتون عرض کنم که پاسختون هم اشتباه به نظر میرسه!
اگه دقت میکردید ایشون فرمودن که در رویداد Form_Unload این شرط رو قرار دادن و این رویداد هر کدی که داخلش
باشه اجرا میکنه و بعد فرم Unload میشه -- مگر اینکه -- شما مقدار Cancel رو برابر 1 قرار بدی که در اینصورت
از Unload شدن فرم صرف نظر میشه.

موفق باشید

[tarfand4u]

خواهش میکنم! وظیفم بود




دوست عزیز این مسئله کاملا حل شده و نیازی به پاسخ دوباره نداشت!
برای اطلاعتون عرض کنم که پاسختون هم اشتباه به نظر میرسه!
اگه دقت میکردید ایشون فرمودن که در رویداد Form_Unload این شرط رو قرار دادن و این رویداد هر کدی که داخلش
باشه اجرا میکنه و بعد فرم Unload میشه -- مگر اینکه -- شما مقدار Cancel رو برابر 1 قرار بدی که در اینصورت
از Unload شدن فرم صرف نظر میشه.

موفق باشید

ای بابا شما بزرگ ما کوچیک...

خیلی ممنون شما اختیار دارین!!!

از توجه شما (tdk) هم ممنونم دوست عزیز...

مشکل من رو دوستمون آقای Smafias حل کردن...

قربان شما Tarfand4u

[MrJamshidy]

Dim Msg As String
Dim Msg As VbMsgBoxResult


Msg = MsgBox("Are You Sure", vbQuestion + vbYesNo + vbDefaultButton1) 'exit message

If Msg = vbYesvbNo Then

End

Else

Form1.Show
Cancel = 1

End If

درسته مشکل حل شده بود اما اشتباهات کدتون رو نوشتم تا بقیه بتونن استفاده کنن