Windows , . ( !?). , , Visual Basic, .
Visual Basic : . ³ (MsgBox) , (InputBox), .
³ . ( ):
MsgBox (, , ),
, ; ; , . , .
| vbOKOnly | ³ | |
| vbOKCancel | ³ Cancel | |
| vbAbortRetryIgnore | ³ Abort, Retry Ignore | |
| vbYesNoCancel | ³ Yes, No Cancel | |
| vbYesNo | ³ Yes No | |
| vbRetryCancel | ³ Retry Cancel | |
| vbCritical | ³ | |
| vbQuestion | ³ () | |
| vbExclamation | ³ (-) | |
| vblnformation | ³ |
, . , Cancel, - :
DlgDef = vbOKCancel
DlgDef = 1 + 64
DlgDef MsgBox.
MsgBox :
Dim r As Integer
rc= Msg(, , )
³ , , . :
Dim r As String
rc = Input(, , )
, . , . , ( r). Cancel, . InputBox , MsgBox .
, InputBox:
Private Sub Command1_Click()
Dim r As String
r = InputBox(" :")
MsgBox ", " & r & "!"
End Sub
Run - Start. , InputBox. . , MsgBox InputBox. , , Visual Basic , ! (, , ).
