PDA

View Full Version : سوال: مشکلی عجیب در msgbox


ali-software
سه شنبه 31 شهریور 1388, 16:57 عصر
سلام من یک مشکل عجیب در msgbox دارم.لطفا کمک کنید.ممنون
آدرس:
http://uplud.co.cc/23/1314442235.rar
Tasiyan
سه شنبه 31 شهریور 1388, 16:59 عصر
بهتر نیست مشکلت رو بگی !!!
ali-software
سه شنبه 31 شهریور 1388, 17:06 عصر
دوست عزیز حجم این فایل 1 کیلوبایت هستش و فقط کافیه که دانلود کنی.بازم ممنون
saman9999
سه شنبه 31 شهریور 1388, 18:18 عصر
خوب دوست عزيز مشکلتون کجاست
xxxxx_xxxxx
سه شنبه 31 شهریور 1388, 20:57 عصر
ما که تو این چهار خط کد چیز عجیبی ندیدیم!


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
چهارشنبه 01 مهر 1388, 14:22 عصر
با سلام
منم مشكلي نديدم احتمالا مشكل اينه كه مشكلي نيست:قهقهه::قهقهه:

دوست عزيز سوالت رو درست مطرح كن تا
1- تايپيك الكي ايجاد نكردهباشي
2- به جواب خودت برسي
3- نتيجه مفيد در تايپكت جهت مشاهده كاربران ديگر ايجاد شود
ali-software
چهارشنبه 01 مهر 1388, 14:35 عصر
دوستان مشکل داشت که یکی از دوستام این مشکل رو برام حل کرد.بازم از لطفتون ممنون
reza_ak
چهارشنبه 01 مهر 1388, 14:56 عصر
واقعا متعسفم شما تو این مشکل نمی بینین...
اگه نگاه کنین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
ایمان اختیاری
چهارشنبه 01 مهر 1388, 17:18 عصر
رضا جان .. اون کدی که گذاشته که case نداره ؟؟؟
reza_ak
چهارشنبه 01 مهر 1388, 17:28 عصر
من میگم طرز تعریفifغلط یه چیز خیلی سادس
xxxxx_xxxxx
چهارشنبه 01 مهر 1388, 17:37 عصر
واقعا متعسفم شما تو این مشکل نمی بینین...
اگه نگاه کنین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
چهارشنبه 01 مهر 1388, 17:59 عصر
عزیزم شما برنامه رو بگیر بعد اجرا خط به خط کن می فهمی اگه ما کد رو به صورت
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

به من سر بزن:http://barnamenevis.org/forum/showthread.php?p=811239#post811239
xxxxx_xxxxx
چهارشنبه 01 مهر 1388, 21:50 عصر
متوجه شدم :لبخند:

دقت نکرده بودم که تو elseif ها msg= رو نزاشته!
متشکرم
sh2007
پنج شنبه 02 مهر 1388, 12:41 عصر
تايپيك جالبي بود از اين جهت كه با دقت به كدها نگاه كنيم نه سرسري
بازم ممنون
ali-software
پنج شنبه 02 مهر 1388, 15:18 عصر
بهتره که یکم تفکر کنید.ممنون