MsgBox() .
1. -
MsgBox ("_")
, .., .
19.37.
| Option Explicit Sub Msg_Priim() Dim a As Single Randomize a=rnd MsgBox " " & Str(a) End Sub |
(. 19.23).
. 19.23. -
2. -
:
Msg("_"[, <>] [, "_"] [, <->, <>])
<_> - 1024 ;
<> - ,
, ;
<_> - ;
<-> - - -
, ;
<> - , .
MsgBox() . 19.7. MsgBox() (), .
19.7.
| vbOKOnly | OK | |
| vbOKCancel | OK, | |
| vbAbortRetryIgnore | , , | |
| vbYesNoCancel | , , | |
| vbYesNo | , | |
| vbRetryCancel | , |
19.38.
| Option Explicit Sub Msg_Priim() Dim Response As Integer Dim Msg As String Dim Title As String Dim Help As String Dim Style As Integer Dim Ctxt As Integer Msg = " ?" Style = 35 Title = " -" Help = "DEMO.HLP" Ctxt = 0 Response = MsgBox(Msg; Style; Title; Help; Ctxt) End Sub | (vbYesNoCancel + + vbDefaultButtonH vbQuestion) - - |
(. 19.24).
. 19.24. -
