MsgBox Statement

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

Syntax:


   MsgBox prompt As String [,buttons = MB_OK [,title As String]]
   response = MsgBox( prompt As String [,buttons = MB_OK [,title As String]])

Parameters:

prompt: String expression displayed as a message in the dialog box. Line breaks can be inserted with Chr$(13).

title: String expression displayed in the title bar of the dialog. If omitted, the title bar displays the name of the respective application.

buttons: Any integer expression that specifies the dialog type, as well as the number and type of buttons to display, and the icon type. buttons represents a combination of bit patterns, that is, a combination of elements can be defined by adding their respective values:

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

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

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

MB_OK

0

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

MB_OKCANCEL

1

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

MB_ABORTRETRYIGNORE

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 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

Example:


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!