-
@חייםיודלביץ אמר בCustom MsgBox VBA:
@yits אמר בCustom MsgBox VBA:
תעשה משתנה מסוג Long שמקבל את התשובה
אשמח לדעת איך' אני אני לא יודע איך לעשות זאת
תודהזה דוגמא שאני עשיתי Select Case
Select Case cMsgBox(cMsg.message, "נסה שנית", "חיבור מקומי", "יציאה", cMsg.ButtonsStyle, vbQuestion, cMsg.Title) Case 1 Resume InternetConnection Case 2 bLocalPc = True Resume ReLink Case 3 Resume AutoExec1_Exit End Select
-
@yits @חייםיודלביץ
עדיף עם משתנה.msg = cMsgBox(cMsg.message, "נסה שנית", "חיבור מקומי", "יציאה", cMsg.ButtonsStyle, vbQuestion, cMsg.Title) Select Case msg Case 1 Resume InternetConnection Case 2 bLocalPc = True Resume ReLink Case 3 Resume AutoExec1_Exit End Select
-
@yits הקוד חופשי לגמרי?
תודה
-
@חייםיודלביץ אמר בCustom MsgBox VBA:
@yits הקוד חופשי לגמרי?
תודה
כן
אני העתקתי אותו מכאן וקצת שיפרתי אותו.
ויש גם קלאסס מודול אחר, למי שמעוניין.
-
If משתנה = 1 Then
-
@חנון-המרבה
לא -
-
@חנון-המרבה אמר בCustom MsgBox VBA:
@www האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!
לא יודע על דרך כזו.
-
-