السلام عليكم أخواني....
المشكلة عند الضغط على yes ينفذ unload ونفس الشي عند الضغط على no ..ممكن توضيح
ولكم الشكر
MsgBox "", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "" If vbYes Then Unload Me Else Exit Sub End If
ماهو الخطأ في هذا الكود؟؟؟
مغلق
استخدم التالي:
dim M as string M=MsgBox( "", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "") If M= vbYes Then Unload Me Else Exit Sub End If
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
if msgbox =vbyes then
dosomthing
else
doothersomthing
endif
اسف mujaini لان الرد كان بنفس الوقت تقريبا. لم اشاهد ردك
تم تعديل هذه المشاركة بواسطة pc.2058 في 4 أبريل 2007 في 21:19
الأخ الفاضل ...
كما ذكر الأخ omani ولكن من الأفضل تعريف المتغير m على انه VbMsgBoxResult بدلاً من String بالشكل التالى:
Dim m As VbMsgBoxResult
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
شكرا لكم على الرد ...
كل مبرمج وطريقته .. انا استخدم هذه الطريقة:
Dim M As String
M = MsgBox("", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "")
Select Case M
Case 6
Unload Me
Case 7
End Selectألف شكر للجميع ..
Eng. Usama El-Mokadem كتب:الأخ الفاضل ...كما ذكر الأخ omani ولكن من الأفضل تعريف المتغير m على انه VbMsgBoxResult بدلاً من String بالشكل التالى:
Dim m As VbMsgBoxResultشكراً
أشكرك جدا أستاذي الكريم على التوضيح
تقبل تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
أسهل من كذا
if MsgBox( "", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "") = vbYes Then Unload Me Else Exit Sub End If
هذا الموضوع مغلق.