مشکلی عجیب در msgbox

[ali-software]

سلام من یک مشکل عجیب در msgbox دارم.لطفا کمک کنید.ممنون
آدرس:
http://uplud.co.cc/23/1314442235.rar

[Tasiyan]

بهتر نیست مشکلت رو بگی !!!

[ali-software]

دوست عزیز حجم این فایل 1 کیلوبایت هستش و فقط کافیه که دانلود کنی.بازم ممنون

[saman9999]

خوب دوست عزيز مشکلتون کجاست

[xxxxx_xxxxx]

ما که تو این چهار خط کد چیز عجیبی ندیدیم!

Private Sub Form_Unload(Cancel As Integer)

Dim msg

msg = MsgBox("exit?", vbYesNoCancel)

If msg = vbYes Then

   Me.Caption = ""

ElseIf vbCancel Then

   Cancel = True

ElseIf vbNo Then

   Cancel = False

End If

End Sub

کپی و پیست کردن این چهار خط سخت تر است یا آپلود کردن یک فایل؟
حداقل میگفتید هدفتون چی هست!

[sh2007]

با سلام
منم مشكلي نديدم احتمالا مشكل اينه كه مشكلي نيست

دوست عزيز سوالت رو درست مطرح كن تا
1- تايپيك الكي ايجاد نكردهباشي
2- به جواب خودت برسي
3- نتيجه مفيد در تايپكت جهت مشاهده كاربران ديگر ايجاد شود

[ali-software]

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

[reza_ak]

واقعا متعسفم شما تو این مشکل نمی بینین...
اگه نگاه کنینelse ifها رو باcase مخلوط کرده و بجایه اینکه دونه دونه بسنجه بطور کلی نوشته


Private Sub Form_Unload(Cancel As Integer)
Dim msg
msg = MsgBox("exit?", vbYesNoCancel)
If msg = vbYes Then
Me.Caption = ""
ElseIf msg=vbCancel Then
Cancel = True
ElseIf msg=vbNo Then
Cancel = False
End If
End Sub

[ایمان اختیاری]

رضا جان .. اون کدی که گذاشته که case نداره ؟؟؟

[reza_ak]

من میگم طرز تعریفifغلط یه چیز خیلی سادس

[xxxxx_xxxxx]

واقعا متعسفم شما تو این مشکل نمی بینین...
اگه نگاه کنینelse ifها رو باcase مخلوط کرده و بجایه اینکه دونه دونه بسنجه بطور کلی نوشته


Private Sub Form_Unload(Cancel As Integer)
Dim msg
msg = MsgBox("exit?", vbYesNoCancel)
If msg = vbYes Then
Me.Caption = ""
ElseIf msg=vbCancel Then
Cancel = True
ElseIf msg=vbNo Then
Cancel = False
End If
End Sub

شما الان این تو Case می بینید؟
اگر دونه دونه بسنجه (!) سه دستور شرطی بیخود چک میشن در حالی نیاز نیست.

[reza_ak]

عزیزم شما برنامه رو بگیر بعد اجرا خط به خط کن می فهمی اگه ما کد رو به صورت
Private Sub Form_Unload(Cancel As Integer)
Dim msg
msg = MsgBox("exit?", vbYesNoCancel)
If msg = vbYes Then
Me.Caption = ""
ElseIf vbCancel Then
Cancel = True
ElseIf vbNo Then
Cancel = False
End If
End Sub
بنویسیم برنامه دو else if مارو رد می کنه چون اصلا شرط ها درس نیستن
چون درselect case هست که ما شرط هامونو با یه متغیر می سنجیم.
Private Sub Form_Unload(Cancel As Integer)
Dim msg
msg = MsgBox("exit?", vbYesNoCancel)
If msg = vbYes Then
Me.Caption = ""
ElseIf msg=vbCancel Then
Cancel = True
ElseIf msg=vbNo Then
Cancel = False
End If
End Sub

امید وارم بفهمی چی میگم.
این یه چیز ساده و پایه اییه
پس کد زیر درسته
Private Sub Form_Unload(Cancel As Integer)
Dim msg
msg = MsgBox("exit?", vbYesNoCancel)
If msg = vbYes Then
Me.Caption = ""
ElseIf msg=vbCancel Then
Cancel = True
ElseIf msg=vbNo Then
Cancel = False
End If
End Sub

به من سر بزن:https://barnamenevis.org/showthread.php?p=811239#post811239

[xxxxx_xxxxx]

متوجه شدم

دقت نکرده بودم که تو elseif ها msg= رو نزاشته!
متشکرم

[sh2007]

تايپيك جالبي بود از اين جهت كه با دقت به كدها نگاه كنيم نه سرسري
بازم ممنون

[ali-software]

بهتره که یکم تفکر کنید.ممنون