Custom MsgBox VBA

[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 יהיה מימין לשמאל?!

[WWW]

@חנון-המרבה אמר בCustom MsgBox VBA:

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

לא יודע על דרך כזו.

[חנון המרבה]

@www רעיונית אפשר לקחת את הפונקציה של MsgBox ולהתאימו לinputbox או שזה בכלל לא שייך?!

[חנון המרבה]

@yits אמר בCustom MsgBox VBA:

עשיתי שם טלאי עבור RTL

אתה יכול לעשות טלאי גם לinputbox ?