As MSForms.ReturnBoolean)
End Sub
, , , , , , . :
Label2.Visible=False
CommandButton1 :
Private Sub CommandButton1_DblClick (ByVal Cancel
As MSForms.ReturnBoolean)
Label2.Visible=False
End Sub
CommandButton1 .
, View → Object.
15. CommandButton2. , , , :
Private Sub CommandButton2_Click()
End Sub
, . , CommandButton2. :
End
:
Private Sub CommandButton2_Click()
End
End Sub
. :
Private Sub CommandButton1_Click()
Label2.Visible = True
End Sub
Private Sub CommandButton1_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
Label2.Visible = False
End Sub
Private Sub CommandButton2_Click()
End
End Sub
16. , . Run → Run .
, . 2.
. 2
. , , .
17. . :
a. , .
b. , .
c. .
. - , . , : Compile error ( ). , , . , , , , , . .
|
|
18. , , . Visual Basic , ( File ), .doc .
.
1. VBA?
3. ?
4. ?
5. ?
6. ?
7. , ?
8. ?
9. ?
10. CommandButton?
/
1. VBA , : http://www.lessons-tva.info/edu/e-inf2/m2t3_7.html
2. VBA MS Office, : http://www.libray.narod.ru/rapid/vba_programmirovanie_office.htm
3. VBA , :
http://www.proklondike.com/books/vb/vb_Cummings_VBA_Dummies.html
13.