А.В.Гаврилов НГТУ, кафедра АППМ 1 Информатика семестр 2 Лекция 2 (Продолжение)

А.В.Гаврилов НГТУ, кафедра АППМ 2 Работа с объектом ComboBox Private Sub Form_Load() заголовок подпрограммы, указывающий, что она выполняется при загрузке формы Combo1.AddItem Я знаю, что VB хорошо добавление в список элементов Combo1.AddItem Я знаю, что VB плохо" Combo1.AddItem я понимаю только английский язык Combo1.Text = Combo1.List(0) при запуске программы на экран выводится значение первого элемента из списка End Sub Private Sub Command1_Click() заголовок подрограммы, указывающий, что она выполнятся при нажатии кнопки Label1.Caption = Combo1.List(Combo1.ListIndex) вывод выбранного из списка элемента Label2.Caption = Combo1.ListIndex вывод номера выбранного из списка элемента End Sub

А.В.Гаврилов НГТУ, кафедра АППМ 3

4 Запущенное приложение

А.В.Гаврилов НГТУ, кафедра АППМ 5 Объект «Полоса прокрутки» HScrollBar (горизонтальная) в связи с TextBox Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 1000 HScroll1.LargeChange = 100 HScroll1.SmallChange = 1 End Sub Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub Вторая подпрограмма обрабатывает событие Change – изменение, возникающее при изменении значения, сопоставленного элементу управления. Для элемента Hscroll это событие произойдет при перемещении движка.

А.В.Гаврилов НГТУ, кафедра АППМ 6

7 Запущенное приложение

А.В.Гаврилов НГТУ, кафедра АППМ 8 Работа с таймером Private Sub Form_Load() установим начальное значение интервала Timer1.Interval = 900 параметр – минимальное значение HScroll1.Min = 100 HScroll1.Max = 900 End Sub Private Sub HScroll1_Change() установка интервала согласно местоположению бегунка Timer1.Interval = HScroll1.Value End Sub Private Sub Timer1_Timer() переключение цвета фона между красным и синим If Picture1.BackColor = RGB(255, 0, 0) Then Picture1.BackColor = RGB(0, 0, 255) Else Picture1.BackColor = RGB(255, 0, 0) End If End Sub

А.В.Гаврилов НГТУ, кафедра АППМ 9

10 Запущенное приложение

А.В.Гаврилов НГТУ, кафедра АППМ 11 Работа с графическими объектами. Цвет Цвет в VB описывается числовым значением типа Long. Для задания цвета объекта в VB используются несколько способов: функция QBColor используется для совместимости со старыми версиями языка Basic (Qbasic), например QBColor(3); непосредственное задание числа с типом Long, например &HFF& (шестнадцатеричное число FF) задание с помощью тройки чисел – цветовых компонент и функции RGB. RGB(red, green, blue) Каждое целое может принимать значение от 0 до 255, например красный цвет задается RGB(255,0,0). (255 – максимальная интенсивность)

А.В.Гаврилов НГТУ, кафедра АППМ 12 Свойства и методы группы Scale Эта группа позволяет работать с координатами на объекте. Объектом может являться форма или графическое поле. Свойства позволяют задавать координатную систему на объекте, получать данные о размере объекта в различной системе координат. Метод Scale позволяет установить координатную систему. [Объект.]Scale (x1,y1)-(x2,y2) Если имя объекта не указано, предполагается, что работа производится с активной формой. (x1, y1) - (x2, y2) – координаты (внутри объекта) верхнего левого и нижнего правого углов объекта.

А.В.Гаврилов НГТУ, кафедра АППМ 13 Свойства и методы группы Scale (2) Свойство ScaleMode позволяет устанавливать или получать значение, определяющее меру, в которой измеряются координаты на объекте [Объект.]ScaleMode [= value] Значения, которые может принимать свойство, следующие: 0 показывает, что установлена координатная система пользователя (использован метод Scale); 1 – (по умолчанию) единица измерения – твип (Twip, 1440 единиц на логический дюйм); 2 – точка (Point, 72 на логический дюйм); 3 – пиксель (Pixel) – наименьшая единица, выводимая не экран; 4 – символ (Character) (горизонтально = 120 твип на знак; вертикально = 240 твип на знак); 5 – Дюйм (Inch); 6 – милиметр (Millimeter); 7 – сантиметр (Centimeter). Свойства ScaleHeight è ScaleWidth позволяют установить или прочитать внутренний размер объекта в установленных ScaleMode единицах.

А.В.Гаврилов НГТУ, кафедра АППМ 14 Пример работы с графикой: рисование графика функции Private Sub Command1_Click() Pi = Picture1.Scale (0, -1.1)-(2 * Pi, 1.1) задает размер поля st = 0.01 Picture1.CurrentX = 0 начальное значение Х Picture1.CurrentY = Sin(Picture1.CurrentX) то же для Y For i = 0 To 10 - st Step st Picture1.Line -(i, Sin(i)), &HFF& Next i End Sub

А.В.Гаврилов НГТУ, кафедра АППМ 15

А.В.Гаврилов НГТУ, кафедра АППМ 16 Запущенное приложение после нажатия кнопки