Выполнил:
Приняла:
-Душанбе 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
Очень интересно - Контрольная работа: Исследование возможностей операционной системы Windows
End Sub
Private Sub Command2_Click()
rez.ClearОчистка содержимого ListBox
End Sub
Вам будет интересно - Дипломная работа: Исследование возможностей проектирования, создания и использования компьютерного тестирования в системе дистанционного обучения Moodle
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)