Custom MsgBox VBA

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

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