MsgBox Statement

ΠžΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅Ρ‚ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, содСрТащСС сообщСниС.

Бинтаксис

MsgBox ВСкст As String [,Π’ΠΈΠΏ As Integer [,Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ As String]] (As Statement) ΠΈΠ»ΠΈ MsgBox (ВСкст As String [,Π’ΠΈΠΏ As Integer [,Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ As String]]) (As Function)

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€:

ВСкст. Π‘Ρ‚Ρ€ΠΎΠΊΠΎΠ²ΠΎΠ΅ Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΠΎΠ΅ ΠΊΠ°ΠΊ сообщСниС Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅. ΠŸΠ΅Ρ€Π΅Π½ΠΎΡΡ‹ строк ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Chr$(13).

Π—Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ. Π‘Ρ‚Ρ€ΠΎΠΊΠΎΠ²ΠΎΠ΅ Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΠΎΠ΅ Π² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°. Если ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ ΠΏΡ€ΠΎΠΏΡƒΡ‰Π΅Π½, Π² строкС Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ° отобраТаСтся имя ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰Π΅Π³ΠΎ прилоТСния.

Π’ΠΈΠΏ. Π’Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ ΠΈΠ· Ρ†Π΅Π»Ρ‹Ρ… чисСл, ΡƒΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‰Π΅Π΅ Ρ‚ΠΈΠΏ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°, Π° Ρ‚Π°ΠΊΠΆΠ΅ число ΠΈ Ρ‚ΠΈΠΏ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅ΠΌΡ‹Ρ… ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΈ Ρ‚ΠΈΠΏ Π·Π½Π°Ρ‡ΠΊΠΎΠ². Π’ΠΈΠΏ прСдставляСт ΠΊΠΎΠΌΠ±ΠΈΠ½Π°Ρ†ΠΈΡŽ Π±ΠΈΡ‚ΠΎΠ²Ρ‹Ρ… масок, Ρ‚ΠΎ Π΅ΡΡ‚ΡŒ комбинация элСмСнтов ΠΌΠΎΠΆΠ΅Ρ‚ ΠΎΠΏΡ€Π΅Π΄Π΅Π»ΡΡ‚ΡŒΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΡ… Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ:

Named constant

Integer value

Definition

MB_OK

0

Display OK button only.

MB_OKCANCEL

1

Display OK and Cancel buttons.

MB_ABORTRETRYCANCEL

2

Display Abort, Retry, and Ignore buttons.

MB_YESNOCANCEL

3

Display Yes, No, and Cancel buttons.

MB_YESNO

4

Display Yes and No buttons.

MB_RETRYCANCEL

5

Display Retry and Cancel buttons.

MB_ICONSTOP

16

Add the Stop icon to the dialog.

MB_ICONQUESTION

32

Add the Question icon to the dialog.

MB_ICONEXCLAMATION

48

Add the Exclamation Point icon to the dialog.

MB_ICONINFORMATION

64

Add the Information icon to the dialog.

128

First button in the dialog as default button.

MB_DEFBUTTON2

256

Second button in the dialog as default button.

MB_DEFBUTTON3

512

Third button in the dialog as default button.


Error codes:

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