اريد الخروج من البرنامج عند الظغط على الزر annuler لل inpotbox
اعتقد اننا نستعمل vbCancel لكن لا اعرف اين توضع
pass = InputBox("message")
If pass = vbCancel Then
Unload Me
Else
MsgBox "message"
End If
______________________________________________
" حَافِظُوا عَلَى الصَّلَوَاتِ وَالصَّلاةِ الْوُسْطَى وَقُومُوا لِلَّهِ قَانِتِينَ "
______________________________________________
تحرير بواسطة 'بنهاشم منصوري'
أخي ضعها في مكان كود ظهور الرسالة
فلسطين .. سوريا ..بورما ......وماذا بعد ؟!
سابقا
medo_programming
موقعي : www.alkhayat-it.com
مواضيع مهمه
-----------------------------------------------:
لم تشتغل هناك
______________________________________________
" حَافِظُوا عَلَى الصَّلَوَاتِ وَالصَّلاةِ الْوُسْطَى وَقُومُوا لِلَّهِ قَانِتِينَ "
______________________________________________
تحرير بواسطة 'بنهاشم منصوري'
أخي انت الان تريد أن تتحكم في Msgbox ولا Inputbox؟؟؟
فلسطين .. سوريا ..بورما ......وماذا بعد ؟!
سابقا
medo_programming
موقعي : www.alkhayat-it.com
مواضيع مهمه
-----------------------------------------------:
هذا كود اذا تريد ان تتحك بالmsgbox
W = MsgBox(" test", vbOKCancel)
If W = vbCancel Then
Unload Me
End Ifفلسطين .. سوريا ..بورما ......وماذا بعد ؟!
سابقا
medo_programming
موقعي : www.alkhayat-it.com
مواضيع مهمه
-----------------------------------------------:
شكرا اخي على تجاوبك مع الموضوع
عند بداية تشغيل البرنامج تظهر inputbox تطلب منك ادخال الرقم السري للبرنامج
المهم البرنامج مكتوب كما ينبغي
المشكل في 'الغاء الامر' ''annuler'
اي اذا اردت انت ان تخرج فعليك ان تظغط 'الغاء الامر' ''annuler' وتخرج وهنا المشكل
______________________________________________
" حَافِظُوا عَلَى الصَّلَوَاتِ وَالصَّلاةِ الْوُسْطَى وَقُومُوا لِلَّهِ قَانِتِينَ "
______________________________________________
تحرير بواسطة 'بنهاشم منصوري'
الكود السابق جعلته هكذا
W = InputBox(" test", vbOKCancel)
If W = vbCancel Then
Unload Me
End Ifو لم اتمكن من الخروج من البرنامج
______________________________________________
" حَافِظُوا عَلَى الصَّلَوَاتِ وَالصَّلاةِ الْوُسْطَى وَقُومُوا لِلَّهِ قَانِتِينَ "
______________________________________________
تحرير بواسطة 'بنهاشم منصوري'
أخي الكريم جوابك هو
Dim strInput As String
strInput = InputBox("Enter something:")
If StrPtr(strInput) = 0 Then
Exit Sub
Else
'افعل ما تريد
End Ifوهو هنا
هذا ما كنت اريده تماما
شكرا جزيلا لك
______________________________________________
" حَافِظُوا عَلَى الصَّلَوَاتِ وَالصَّلاةِ الْوُسْطَى وَقُومُوا لِلَّهِ قَانِتِينَ "
______________________________________________
تحرير بواسطة 'بنهاشم منصوري'
السلام عليكم لا شكر على واجب أخي
مبرمج مبتدأ لم تفهم الجواب أو السؤال
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
