MsgBox Statement

рд╕рдиреНрджреЗрд╢ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд┐рдПрдХреЛ рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрджрдЫ ред

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


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

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

рдкрд╛рда: рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕рдорд╛ рд╕рдиреНрджреЗрд╢рдХреЛ рд░реВрдкрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдкреНрд░рд░реНрджрд╢рд┐рдд ред рд▓рд╛рдЗрди рд╡рд┐рдЪреНрдЫреЗрджрд▓рд╛рдИ 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

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


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

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

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


Sub ExampleMsgBox
 Const sText1 = "рдЕрдирдкреЗрдХреНрд╖рд┐рдд рддреНрд░реБрдЯрд┐ рд░рд╣рди рдЧрдпреЛ ред"
 Const sText2 = "рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рд╕реБрдЪрд╛рд░реВ рд░рд╣рдиреЗрдЫ, рдпрдзрдкреА ред"
 Const sText3 ="рддреНрд░реБрдЯрд┐"
 MsgBox(sText1 + Chr(13) + sText2,16,sText3)
 MsgBox(sText1 + Chr(13) + sText2, MB_ICONSTOP, sText3)
End Sub

Please support us!