MsgBox Function

рдПрдЙрдЯрд╛ рд╕рдиреНрджреЗрд╢ рд╕рдорд╛рд╡реЗрд╢ рднрдПрдХреЛ рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрджрдЫ рд░ рдПрдЙрдЯрд╛ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда [,рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рдкреНрд░рдХрд╛рд░ [,рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рд╕рдВрд╡рд╛рдж рд╢реАрд░реНрд╖рдХ ]])

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐:

рдкрд╛рда: рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕рдорд╛ рд╕рдиреНрджреЗрд╢рдХреЛ рд░реВрдкрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдкреНрд░рд░реНрджрд╢рд┐рдд ред рд▓рд╛рдЗрди рд╡рд┐рдЪреНрдЫреЗрджрд▓рд╛рдИ Chr$(13) рд╕рдБрдЧ рдШреБрд╕рд╛рдЙрди рд╕рдХрд┐рдиреНрдЫ ред

рд╕рдВрд╡рд╛рдж рд╢реАрд░реНрд╖рдХ:рд╕рдВрд╡рд╛рджрдХреЛ рд╢реАрд░реНрд╖рдХрдкрдЯреНрдЯреАрдорд╛ рдкреНрд░рджрд░реНрд╢рди рднрдПрдХрд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ ред рдпрджрд┐ рд╣рдЯрд╛рдЗрдПрдХреЛ рдЦрдгреНрдбрдорд╛, рд╕рдореНрдмрдиреНрдзрд┐рдд рдЕрдиреБрдкреНрд░рдпреЛрдЧрд╣рд░реВрдХреЛ рдирд╛рдо рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреЗрдЫ ред

рдкреНрд░рдХрд╛рд░: рдкреНрд░рддреНрдпреЗрдХ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рддрд┐ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рд╕рдВрд╡рд╛рдж рдкреНрд░рдХрд╛рд░ рд░ рдкрд░рд┐рдЪрд┐рдд рдирдореНрдмрд░ рд░ рдмрдЯрдирдХреЛ рдкреНрд░рдХрд╛рд░ рд╡рд╛ рдкреНрд░рддрд┐рдорд╛рд╣рд░реВ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрджрдЫ редрдкреНрд░рдХрд╛рд░рд▓реЗ рдмрд┐рдЯ рдмрд╛рдиреНрдХрд┐рд╣рд░реВрдХреЛ рд╕рдВрдпреЛрдЬрди рдкреБрди: рдкреНрд░рд╕реНрддреБрдд рдЫ( рдердкрд┐рдПрдХрд╛ рд╕рдореНрдмрдиреНрдзрд┐рдд рдорд╛рдирд╣рд░реВрджреНрд╡рд╛рд░рд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рд╕рдВрд╡рд╛рдж рддрддреНрд╡рд╣рд░реВ):

рдорд╛рдирд╣рд░реВ

рдирд╛рдорд╛рдЩреНрдХрд┐рдд рдЕрдЪрд▓

рдЗрдиреНрдЯрд┐рдЬрд░ рдорд╛рди

рдкрд░рд┐рднрд╛рд╖рд╛

MB_OK

0

'рдареАрдХ рдЫ' рдмрдЯрди рдорд╛рддреНрд░ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреБрд╣реЛрд╕реНред

MB_OKCANCEL

1

'рдареАрдХ рдЫ' рд░ 'рд░рджреНрдж рдЧрд░реНрдиреБрд╣реЛрд╕реН' рдмрдЯрдирд╣рд░реВ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреБрд╣реЛрд╕реНред

MB_ABORTRETRYCANCEL

2

Display Abort, Retry, and Ignore buttons.

MB_YESNOCANCEL

3

'рд╣реЛ', 'рд╣реЛрдЗрди' рд░ 'рд░рджреНрдж рдЧрд░реНрдиреБрд╣реЛрд╕реН' рдмрдЯрдирд╣рд░реВ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреБрд╣реЛрд╕реНред

MB_YESNO

4

'рд╣реЛ' рд░ 'рд╣реЛрдЗрди' рдмрдЯрдирд╣рд░реВ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреБрд╣реЛрд╕реНред

MB_RETRYCANCEL

5

'рдкреБрди: рдкреНрд░рдпрд╛рд╕ рдЧрд░реНрдиреБрд╣реЛрд╕реН' рд░ 'рд░рджреНрдж рдЧрд░реНрдиреБрд╣реЛрд╕реН ' рдмрдЯрдирд╣рд░реВ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреБрд╣реЛрд╕реНред

MB_ICONSTOP

16

Add the Stop icon to the dialog.

MB_ICONQUESTION

32

рд╕рдВрд╡рд╛рджрдорд╛ рдкреНрд░рд╢реНрди рдкреНрд░рддрд┐рдорд╛ рдердкреНрдиреБрд╣реЛрд╕реНред

MB_ICONEXCLAMATION

48

Add the Exclamation Point icon to the dialog.

MB_ICONINFORMATION

64

рд╕рдВрд╡рд╛рджрдорд╛ рд╕реВрдЪрдирд╛ рдкреНрд░рддрд┐рдорд╛ рдердкреНрдиреБрд╣реЛрд╕реНред

128

рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдмрдЯрдирдХреЛ рд░реВрдкрдорд╛ рд╕рдВрд╡рд╛рджрдорд╛ рдкрд╣рд┐рд▓реЛ рдмрдЯрдиред

MB_DEFBUTTON2

256

рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдмрдЯрдирдХреЛ рд░реВрдкрдорд╛ рд╕рдВрд╡рд╛рджрдорд╛ рджреЛрд╕реНрд░реЛ рдмрдЯрдиред

MB_DEFBUTTON3

512

рд╕рдВрд╡рд╛рджрдорд╛ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдмрдЯрдирдХреЛ рд░реВрдкрдорд╛ рддреЗрд╕реНрд░реЛ рдмрдЯрдиред


рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдирд╛рдорд╛рдЩреНрдХрд┐рдд рдЕрдЪрд▓

рдЗрдиреНрдЯрд┐рдЬрд░ рдорд╛рди

рдкрд░рд┐рднрд╛рд╖рд╛

IDOK

1

рдареАрдХ рдЫ

IDCANCEL

2

рд░рджреНрдж рдЧрд░реНрдиреБрд╣реЛрд╕реН

IDABORT

3

рдкрд░рд┐рддреНрдпрд╛рдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН

IDRETRY

4

рдлреЗрд░рд┐ рдкреНрд░рдпрд╛рд╕ рдЧрд░реНрдиреБрд╣реЛрд╕реН

IDIGNORE

5

рдЙрдкреЗрдХреНрд╖рд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН

IDYES

6

рд╣реЛ

IDNO

7

рд╣реЛрдЗрди


рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleMsgBox
Dim sVar As Integer
 sVar = ("рд▓рд╛рд╕ рднреЗрдЧрд╛рдЬ")
 sVar =MsgBox("рд▓рд╛рд╕ рднреЗрдЧрд╛рдЬ",рез)
 sVar = MsgBox( "рд▓рд╛рд╕ рднреЗрдЧрд╛рдЬ",реирелрем + резрем + реи,"рд╕рдВрд╡рд╛рдж рд╢реАрд░реНрд╖рдХ")
 sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Dialog title")
End Sub

Please support us!