Главная Учебники - Разные Лекции (разные) - часть 32
Министерство образования Республики Таджикистан Таджикский Технический Университет им. ак. М. С. Осими кафедра АСОИиУ Лабораторная работа №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) ElseIfop4.Value = TrueThenДобавление значений в элемент 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 ExitSub 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
|