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