ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 06.06.2021
Просмотров: 3224
Скачиваний: 5
606
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.
InputBox()
.
:
Input
(<
> [,<
>][.<
>]
[,
][,Y
][, <
>, <
>])
<
> -
,
(
);
, Y
-
.
19.39.
Option Explicit
Sub Msg_Inp()
Dim Response As String
Dim Message As String
Dim Default As String
Dim Title As String
Dim Help As String
Dim Style As Integer
Dim Ctxt As Integer
Message = "
,
607
"
Title = "
"
Default = "
"
Response
=
InputBox(Message; Title; Default;
100; 100)
End Sub
(
. 19.25).
. 19.25.
.
,
–
.
,
(
. 19.26)
(
)
.
. 19.26.
19.8.
,
.
–
.
,
Caption
Labels().
608
19.40.
Sheets("<
>"). Labels ("<
>")
.Caption="c po a
"
,
,
.
EditBoxes(),
.
19.41.
Sheets("<
>"). ditBoxes("<
>").
t="
"
,
:
MultyLine
= True –
;
InputType -
,
(xlFormula, xlInteger, xllNumber,
xlReference, xlText).
.
,
.
–
Caption.
,
Value (
True,
,
False
–
).
CheckBoxes().
.
,
,
;
.
OptionButtons().
Value
True,
,
False
–
.
,
.
.
:
ListFillRange
–
,
;
List() -
,
.
,
DropDowns().
.
,
.
.
,
.
.
Value
,
,
ScrollBars().
Min
,
,
.
LargeChange
SmallChange
Value.
,
LargeChange.
. 19.27
.
:
(
,
,
.);
–
,
,
.
;
(
,
,
),
(
,
,
,
,
),
609
;
(
,
,
),
,
;
(<
>, <
>, <
>, <
>).
. 19.27.
«
»
.
19.3.
SQL
SQL
),
.
. 15),
,
,
.
,
,
("
") (
. 19.28):
1
2
...
n
1
2
…
m
. 19.28.
.
,
.
,
.
,
.
,
,
:
610
1,
2,....
n)
19.42.
:
,
,
,
,...).
(
. 19.29).
.
.
12.12.80
123245
1.1.80
233244
. 19.29.
,
.
,
,
,
.
(
. 19.29).
.
,
,
:
–
,
–
.
–
,
(
).
,
.
,
).
.
(
).
19.43.
;
.
:
.
;
]+[
]+[
].
,
,
,
.
,
. 19.30).
,
1
2
3
.
2
10
1
. 19.30.
,
–
(
);
,
.
,
,
.
,
(
)
,
.
,
,