Лабораторная работа: Использование элементов управления: Label, TextBox, Image, OptionButton, ListBox, SpinButton, ComboBox, CommandButton

Выполнил:

Приняла:

-Душанбе 2009-

Программа «Labs»

Private Sub cmb_Click()

Select Case cmb.ListIndex

Case 0

Label4.Font = "Times New Roman"

Case 1

Label4.Font = "Tahoma"

Case 2 Выбор шрифта с помощью элемента ComboBox

Label4.Font = "Arial"

Case 3

Label4.Font = "MS Sans Serif"

Case 4

Label4.Font = "Lucida Console"

End Select

End Sub

Private Sub Command2_Click()

rez.ClearОчистка содержимого ListBox

End Sub

Private Sub Command1_Click()

If op1.Value = True Then

rez.AddItem (op1.Caption)

ElseIf op2.Value = True Then

rez.AddItem (op2.Caption)

ElseIf op3.Value = True Then

rez.AddItem (op3.Caption)

ElseIfop4.Value = TrueThenДобавление значений в элемент ListBox

rez.AddItem (op4.Caption)

--> ЧИТАТЬ ПОЛНОСТЬЮ <--