Custom MsgBox VBA

[zvinissim]

@yits שאלונת
לא יותר פשוט לבנות טופס קטן מוקפץ עם כמה כפתורים ולהקפיץ אותו בכל פעם ולשנות את הכיתובים?

אני עשיתי כך מספר פעמים ואז לשלוט על אירועי הכפתורים

[yits]

@zvinissim אמר בCustom MsgBox VBA:

@yits שאלונת
לא יותר פשוט לבנות טופס קטן מוקפץ עם כמה כפתורים ולהקפיץ אותו בכל פעם ולשנות את הכיתובים?

אני עשיתי כך מספר פעמים ואז לשלוט על אירועי הכפתורים

גם אני עשיתי כך בעבר אבל רק להודעה מסויימת.

אם אתה רוצה לעשות משהו שיהיה דינאמי זה נראה לי קצת מסובך:

1. איך אתה מקבל תשובה מה המשתמש בחר?
   בשביל זה אתה משתמש במשתנים גלובליים?.
2. אם תרצה לקרוא לזה כפונקציה תצטרך ליצור משתנים גלובליים מכיוון שטופס לא יודע לקבל פרמטרים בצורה נורמלית.
   או שתשתמש ב OpenArgs ותשרשר מחרוזת ארוכה עם הפרדה של ; (או משהו כזה) ואח"כ תפענח את זה.
3. ואם תרצה שיהיו רק 2 כפתורים במקום 3 או להיפך
   אתה צריך לעשות טופס דינאמי או להגדיר Visable לכל אחד ואז לסדר את המיקומים.

אם יש לך משהו כזה דינאמי נשמח לקבל אותו.

[חייםיודלביץ]

@yits תודה על השיתוף, אני חפשתי הרבה זמן כזה דבר ולא מצאתי משהו נורמלי, תודה!

אני מסתבך עם הקוד הוא כותב לי שגיאה כזאת

זה משה שעשיתי באקסס
העתעקתי למודול חדש
שמתי את הקוד הזה

MsgBoxCB("Message","Button1","Button2","Button3",vbMsgBoxRight or vbMsgBoxRtlReading, vbInformation, "Title")

בלחצן ואז הוא כתב לי את השגיאה הנ"ל

אשמח לעזרה
תודה

[zvinissim]

@yits אמר בCustom MsgBox VBA:

אם יש לך משהו כזה דינאמי נשמח לקבל אותו.

זכור לי שפעם עשיתי משהו
אני צריך לחפש

אולי @clickone יודע

[yits]

@חייםיודלביץ אמר בCustom MsgBox VBA:

@yits תודה על השיתוף, אני חפשתי הרבה זמן כזה דבר ולא מצאתי משהו נורמלי, תודה!

אני מסתבך עם הקוד הוא כותב לי שגיאה כזאת

זה משה שעשיתי באקסס
העתעקתי למודול חדש
שמתי את הקוד הזה

MsgBoxCB("Message","Button1","Button2","Button3",vbMsgBoxRight or vbMsgBoxRtlReading, vbInformation, "Title")

בלחצן ואז הוא כתב לי את השגיאה הנ"ל

אשמח לעזרה
תודה

איך קראת ל MsgBoxCB?
אתה צריך גם לקבל תשובה מה המשתמש בחר,
תעשה משתנה מסוג Long שמקבל את התשובה.

[WWW]

@yits אמר בCustom MsgBox VBA:

@חייםיודלביץ אמר בCustom MsgBox VBA:

@yits תודה על השיתוף, אני חפשתי הרבה זמן כזה דבר ולא מצאתי משהו נורמלי, תודה!

אני מסתבך עם הקוד הוא כותב לי שגיאה כזאת

זה משה שעשיתי באקסס
העתעקתי למודול חדש
שמתי את הקוד הזה

MsgBoxCB("Message","Button1","Button2","Button3",vbMsgBoxRight or vbMsgBoxRtlReading, vbInformation, "Title")

בלחצן ואז הוא כתב לי את השגיאה הנ"ל

אשמח לעזרה
תודה

איך קראת ל MsgBoxCB?
אתה צריך גם לקבל תשובה מה המשתמש בחר,
תעשה משתנה מסוג Long שמקבל את התשובה.

ואם אתה רוצה בלי קלט.
אז תכתוב בלי סוגריים, כי אז זה יהיה פונקציה שלא מחזירה כלום.

[חייםיודלביץ]

@yits אמר בCustom MsgBox VBA:

@חייםיודלביץ אמר בCustom MsgBox VBA:

@yits תודה על השיתוף, אני חפשתי הרבה זמן כזה דבר ולא מצאתי משהו נורמלי, תודה!

אני מסתבך עם הקוד הוא כותב לי שגיאה כזאת

זה משה שעשיתי באקסס
העתעקתי למודול חדש
שמתי את הקוד הזה

MsgBoxCB("Message","Button1","Button2","Button3",vbMsgBoxRight or vbMsgBoxRtlReading, vbInformation, "Title")

בלחצן ואז הוא כתב לי את השגיאה הנ"ל

אשמח לעזרה
תודה

איך קראת ל MsgBoxCB?
אתה צריך גם לקבל תשובה מה המשתמש בחר,
תעשה משתנה מסוג Long שמקבל את התשובה.

אכן חשבתי שלא צריך לרשום גם את MsgBox, עכשיו עובד, תודה זה מאד יעזור לי.

@yits אמר בCustom MsgBox VBA:

תעשה משתנה מסוג Long שמקבל את התשובה

אשמח לדעת איך' אני אני לא יודע איך לעשות זאת
תודה

[yits]

@חייםיודלביץ אמר ב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 תוך כדי שאני מנסה את זה בקוד ולא הולך לי אני רואה שכבר ערכת את ההודעה כדי שאני יבין יותר

תודה

[WWW]

@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]

@WWW @חייםיודלביץ
שים לב אני שיניתי את שם הפונציה מ MsgBoxCB ל cMsgBox

[חייםיודלביץ]

@yits הקוד חופשי לגמרי?

תודה

[yits]

@חייםיודלביץ אמר בCustom MsgBox VBA:

@yits הקוד חופשי לגמרי?

תודה

כן

אני העתקתי אותו מכאן וקצת שיפרתי אותו.

ויש גם קלאסס מודול אחר, למי שמעוניין.

[חנון המרבה]

@yits איך אני משתמש למעשה עם התשובה של ה msgbox ?

ברגיל אני כותב

If משתנה = vbYes Then

מה אני אמור לכתוב בmsgbox שלך ?!

[WWW]

@חנון-המרבה

If משתנה = 1 Then

[חנון המרבה]

@www מעולה.
האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!

[מלא]

@חנון-המרבה
לא

[חנון המרבה]

@מלא מידיעה?!
@WWW?
@yits ?

[WWW]

@חנון-המרבה ?

[חנון המרבה]

@www האם יש אפשרות שגם inputbox יהיה מימין לשמאל?!