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 |
рд╣реЛрдЗрди |
рдЙрджрд╛рд╣рд░рдг:
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