Контрольная работа по предмету "Информатика, программирование"


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


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


End Sub



Не сдавайте скачаную работу преподавателю!
Данную контрольную работу Вы можете использовать для выполнения своих заданий.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :