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

Министерство образования Республики Таджикистан

Таджикский Технический Университет им. ак. М. С. Осими

кафедра АСОИиУ

Лабораторная работа №1

«Использование элементов управления: 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)

ElseIf op4.Value = True Then Добавление значений в элемент ListBox

rez.AddItem (op4.Caption)

ElseIf op5.Value = True Then

rez.AddItem (op5.Caption)

Else

End If

End Sub

Private Sub load1_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 Sub sp_Change()

If sp.Value < 1 Then

sp.Value = 1

Exit Sub

Else Контроль за изменением значения Масштаба

End If

Text1.Text = sp.Value

End Sub

Private Sub ms_Change()

On Error Resume Next

mage1.Picture = VB.LoadPicture(cd.FileName) Изменение масштаба картинки

Image1.Width = Image1.Picture.Width / ms.Text

Image1.Height = Image1.Picture.Height / ms.Text

End Sub

Private Sub Form_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 Sub SpinButton1_Change()

ms.Text = SpinButton1.Value Совместная работа SpinButton и TextBox

End Sub

Private Sub Text1_Change()

On Error Resume Next

sp.Value = Text1.Text Изменение масштаба надписи (Label)

Label4.FontSize = Text1.Text

End Sub

Private Sub Text2_Change()

Label4.Caption = Text2.Text Изменение текста элемента Label

End Sub

Private Sub mp_Change()

Select Case mp.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