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

Министерствообразования Республики Таджикистан
ТаджикскийТехнический Университет им. ак. М. С. Осими
кафедра АСОИиУ
Лабораторнаяработа №1
 
«Использованиеэлементов управления: Label, TextBox, Image,
OptionButton,ListBox, SpinButton, ComboBox, CommandButton»
Выполнил:
Приняла:
-Душанбе 2009-

Программа«Labs»
Private Subcmb_Click()
Select Casecmb.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 SubCommand2_Click()
rez.Clear Очистка содержимого ListBox
End Sub
Private SubCommand1_Click()
If op1.Value =True Then
rez.AddItem(op1.Caption)
ElseIfop2.Value = True Then
rez.AddItem(op2.Caption)
ElseIfop3.Value = True Then
rez.AddItem(op3.Caption)
ElseIf op4.Value = True Then Добавление значений в элемент ListBox
rez.AddItem(op4.Caption)
ElseIfop5.Value = True Then
rez.AddItem(op5.Caption)
Else
End If
End Sub
/>
Private Subload1_Click()
cd.ShowOpen
Image1.Picture= VB.LoadPicture(cd.FileName)
Image1.Width =Image1.Picture.Width / Val(ms.Text) Загрузка картинки в элемент Image
Image1.Height= Image1.Picture.Height / Val(ms.Text)
End Sub

/>
Private Subsp_Change()
If sp.Value
sp.Value = 1
Exit Sub
Else Контроль за изменением значенияМасштаба
End If
Text1.Text =sp.Value
End Sub
Private Subms_Change()
On ErrorResume Next
mage1.Picture= VB.LoadPicture(cd.FileName) Изменение масштаба картинки
Image1.Width =Image1.Picture.Width / ms.Text
Image1.Height= Image1.Picture.Height / ms.Text
End Sub
/>
Private SubForm_Load()
Label4.Font =«Times New Roman»
Frame1.Visible= True
Frame3.Visible= False
Frame2.Visible= False
cmb.AddItem(«Times New Roman»)
cmb.AddItem(«Tahoma») Инициализация формы
cmb.AddItem(«Arial»)
cmb.AddItem(«MS Sans Serif»)
cmb.AddItem(«Lucida Console»)
sp.Value = 6
cmb.Text =cmb.List(0)
ms.Text =«1»
End Sub
Private SubSpinButton1_Change()
ms.Text =SpinButton1.Value Совместная работа SpinButton иTextBox
End Sub
Private SubText1_Change()
On ErrorResume Next
sp.Value =Text1.Text Изменение масштаба надписи (Label)
Label4.FontSize= Text1.Text
End Sub
Private SubText2_Change()
Label4.Caption= Text2.Text Изменение текстаэлемента Label
End Sub
/>
Private Submp_Change()
Select Casemp.Value
Case 0
Frame1.Visible= True
Frame2.Visible= False
Frame3.Visible= False
Case 1
Frame1.Visible = False Контрольпереключения вкладок
Frame2.Visible= True
Frame3.Visible= False
Case 2
Frame2.Visible= False
Frame1.Visible= False
Frame3.Visible= True
End Select
End Sub