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