Объекты управления: CommonDialog, Shape (Фигура),
Timer, ProgressBar, Slider (Движок), CheckBox (Флажок),
OptionButton (Переключатель), Меню
Объект управления: CommonDialog
Этот элемент управления позволяет использовать стандартные диалоговые окна Windows:
Для вызова стандартного диалогового окна Windows в VB используется специальный элемент управления CommonDialog . Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Common Dialog Control 6.0. Объект общего диалога невидим для пользователя при работе программы.
|
Окна общего диалога
Диалоговое окно |
Назначение |
Метод |
Open (Открытие файла) |
Получить имена диска, папки и файла для существующего файла |
ShowOpen |
SaveAs (Сохранение) |
Получить имена диска, папки и файла для нового файла |
ShowSave |
Print (Печать) |
Позволить пользователю установить опции для печати |
ShowPrinter |
Font (Выбор шрифта) |
Позволить пользователю выбрать новый шрифт и стиль |
ShowFont |
Color (Цвет) |
Позволить пользователю выбрать цвет из палитры |
ShowColor |
При открытии файла необходимо задать его полное имя.
pathfile = "C:\WINDOWS\Рабочий стол\primer\primer.txt"
Пример использования CommonDialog для задания полного имени файла.
Методы объекта:
ShowOpen – открывает диалоговое окно загрузки файла с диска;
ShowSave – открывает диалоговое окно сохранения файла на диске.
Свойства объекта:
CancelError – если пользователь закрыл окно, нажав кнопку Отмена, имеет значение True;
DialogTitle – заголовок диалогового окна. По умолчанию –«Открыть»;
FileName –имя файла, которое появляется в поле Имя файла;
Filter – фильтр, используемый для ограничения списка видимых файлов;
FilterIndex – определяет номер файла, используемый по умолчанию;
Flags – значение, которое позволяет использовать в диалоговом окне дополнительные возможности.
Итак, диалоговое окно открытия файлов предоставляет пользователю механизм определения имени открываемого файла.
Пример кода программы на открытие файла с помощью окна диалога:
Private Sub Command2_Click() CommonDialog1.ShowOpen ‘ применения метода для отображения окна на экране pathfile = CommonDialog1.FileName ‘запомнить имя выбранного файла в ‘переменной Open pathfile For Input As #1 'открытие файла на чтение
Do While Not EOF(1) 'организация цикла на чтение файла до конца Line Input #1, strfile 'построчное чтение записей из файла в переменную Text1.Text = Text1.Text + strfile + Chr(13) + Chr(10) 'формирование очередной ‘строки TextBox
Loop
Close #1
End Sub
Объект управления Shape (Фигура)
Позволяет создать фигуру.
Свойства
Важнейшими являются:
Shape |
Задает форму фигуры (круг, квадрат и т.п.) |
Height |
Высота фигуры |
Width |
Ширина фигуры |
Left |
Расстояние до фигуры слева (левый верхний угол) |
Top |
Расстояние до фигуры сверху (левый верхний угол) |
BorderColor |
Цвет окантовки фигуры |
BorderStyle |
Стиль окантовки фигуры |
FillStyle |
Стиль заливки фигуры |
FillColor |
Цвет заливки фигуры |
Объект управления Timer
Использование таймера является хорошим способом управления программой. С помощью таймера можно запускать или завершать процессы приложения в определенные моменты времени. Во время проектирования таймер размещается на форме, во время выполнения программы его на форме не видно.
События
Таймер имеет единственное событие - Timer, которое вызывается по истечении установленного временного интервала.
Свойства
Для установки интервала времени служит свойство Interval, значение которого устанавливается в миллисекундах. Например, задание значения 250 вызывает событие Timer через каждые 250 миллисекунд независимо от того, какое приложение активно. Для отключения таймера следует присвоить свойству Interval значение 0 или свойству Enabled значение False.
Максимально допустимый интервал составляет 64757 миллисекунд. Но ОС может обрабатывать только 18,2 прерывания таймера в секунду, поэтому точность задания интервала составляет максимум одну восемнадцатую секунду. В Windows можно использовать не более 32 таймеров.
Пример использования таймера для перемещения объекта Shape (красного круга) в графическом окне 3000х4000.
Код программы |
Свойства объектов Shape1 и Timer1 |
Dim x As Integer Dim y As Integer Dim r As Integer Dim h As Integer Dim h1 As Integer Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() x = Shape1.Left y = Shape1.Top r = 200 h = r h1 = r End Sub Private Sub Timer1_Timer() If (x + 200) > Picture1.Width Then h = -r end if If (x - 200) < 0 Then h = r If (y + 200) > Picture1.Height Then h1 = -r end if If y - 200 < 0 Then h1 = r 'Установка координат левого верхнего 'угла объекта-окружности x = x + h y = y + h1 Shape1.Left = x Shape1.Top = y End Sub |
|
Объект управления ProgressBar
Отображение процесса выполнения операций. В Windows этот элемент отображает течение процесса копирования, перемещения, загрузки и т.п. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Windows Common Control 6.0.
Свойства
Важнейшими являются:
Min |
Нижняя граница |
Max |
Верхняя граница |
Value |
Текущее значение |
Дополнительные свойства
Orientation |
Ориентация элемента : - вертикальная (ccOrientationVertical) - горизонтальная (ccOrientationHorizontal) |
Scrolling |
Способ отображения процесса: - непрерывный (ccScrollingSmooth) - сегментарный (ccScrollingStandard) |
Метод
Refresh |
Позволяет принудительно вызвать перерисовку элемента управления. |
Пример
progressBar1.Min=0 progressBar1.Max=80 For j=0 To 80 ProgressBar1.Value=j Next
Объект управления Slider (Движок)
С помощью движка можно задавать значения переменных из диапазона значений. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Windows Common Control 6.0.
Свойства
Важнейшими являются:
Min |
Минимальное значение для движка, когда он находится на левом краю. |
Max |
Максимальное значение для движка, когда он находится на правом краю. |
Value |
Текущее положение движка. |
SmallChange |
Малое изменение. Сдвиг движка на одну позицию. Шаг движка. |
LargeChange |
Большое изменение. Сдвиг движка при двойном нажатии на нем. |
Пример
a=Slider1.value
b=Slider2.value
For j=a to b
x=j*x
Print x; “ “;
Next
Результат 1 2 6 24 120, если значение первого 1, а значение второго 5.
Объект управления CheckBox (Флажок)
Флажки – это элементы управления, которые можно отмечать (ставить галочку), выбирая из ряда опций одну или несколько. CheckBox может иметь два различных состояния – отмеченное и не отмеченное.
Он может иметь и третье состояние. В этом случае элемент управления отображается как отмеченный, но недоступный. Установить такое состояние можно только программно.
События
Важнейшим для флажка является событие Click.
Свойства
Единственно важным свойством является Value (значение):
Величина |
Значение |
0 |
Не отмечен |
1 |
Отмечен |
2 |
Отмечен, но недоступен |
Пример
If Check2.Value Then Picture1.Cls
If Check1.Value Then
Picture1.Print Round(x)
Else Picture1.Print x
End if
Объект управления OptionButton (Переключатель)
Переключатели предназначены для установки только одной опции (одного действия) из группы.
События
Важнейшим как и для флажка является событие Click.
Свойства
Важнейшим свойством является Value (значение). С его помощью можно определить состояние переключателя. Это свойство может принимать значение True или False.
Пример
If Option1.Value Then x = Val(Text1) + Val(Text2) If Option2.Value Then x = Val(Text1) - Val(Text2) If Option3.Value Then x = Val(Text1) * Val(Text2) If Option4.Value Then x = Val(Text1) / Val(Text2)
Меню
Обычно меню состоят из нескольких уровней. Верхний уровень – это строка меню, в которой находятся элементы главного меню. Они обозначают главные группы команд, например Файл или Правка.
При выборе элемента меню первого уровня автоматически открывается меню второго уровня, если оно имеется. В большинстве случаев меню заканчивается на этом уровне. Но можно создать и больше уровней – максимум шесть.
Меню – это объект и также имеет свойства, которые можно использовать для определения представления и поведения меню. Можно использовать Caption, Enabled, Visible, Checked и другие, в режиме разработки и во время исполнения приложения. Меню имеет только одно событие – Click, которое инициируется при выборе меню мышью или клавиатурой.
Создание меню
Меню создается при помощи редактора Menu Editor, который позволяет создавать строку меню, добавлять и удалять меню и команды меню.
Чтобы отобразить окно редактора, надо выполнить команду меню VB Tools → Menu Editor или щелкнуть на соответствующей кнопке на панели Standard.
Для создания меню нескольких уровней существуют кнопки со стрелками. Кнопка смещает элемент меню на уровень ниже, а кнопка - на уровень выше. Кнопки изменяют позицию отдельных элементов меню, т.е. перемещают их в списке вверх или вниз.
Большая часть свойств меню может быть установлена в этом окне. В то же время все свойства доступны в окнах Properties, причем отдельного для каждого пункта меню.
Свойства
Имя |
Смысл |
Caption |
Задает текст, который будет виден в строке меню. |
Name |
Под этим именем будет создана процедура для кода обработки данной команды меню |
Shortcut |
Позволяет определить комбинации клавиш для быстрого доступа к отдельным элементам |
Enabled |
Если значение этого свойства False, то этот пункт недоступен пользователю, текст надписи пункта будет серым. |
Visible |
Позволяет отображать или скрывать отдельные элементы меню. |
Checked |
Позволяет пометить выбранный элемент меню галочкой. |
Свойства элементов меню можно изменять и во время выполнения. При этом синтаксис такой:
Name_значение.Caption=”&Name” Name_значение.Enabled=False Name_значение.Visible=False Open.Checked=true
Для создания процедуры выполнения команды меню следует во время проектирования выбрать среди объектов формы соответствующее имя меню. При этом создастся процедура обработки события Click.
Работа с несколькими формами
Все проекты, которые были рассмотрены до сих пор, работали только в одном окне. Окном этим служила форма, на которой и собирался весь проект. Однако можно создавать проект, который работает в нескольких окнах.
Чтобы добавить в проект еще одну форму, нужно выбрать команду меню vb Project → Add Form → New → Form → Open.
Откроется форма Form2, а при ней свое окно кода.
Если необходимо программно поменять какое-то свойство объекта другой формы из текущей формы, то перед имением объекта добавляется имя формы, его содержащей, и точка.
Например Form2.Text1.Text = Str(a+b)
Перед именем элемента, принадлежащего к другой форме, нужно ставить имя формы-хозяина с точкой. Так можно обращаться не только к свойствам, объектам и методам, принадлежащим другим методам, но и к переменным, процедурам и другим элементам.
Если возникает необходимость вводить данные с помощью одной формы, а использовать результаты в другой, то их необходимо описать в так называемом модуле кода. Его можно открыть, используя команду меню:
Project → Add Module → New → Module → Open
Модуль не имеет элементов управления, у него нет так сказать «тела». В модуле глобально описываются переменные, которые используются в программных кодах нескольких форм, создаются глобальные процедуры (процедуры доступные всем программным кодам). Причем и переменные и процедуры объявляются оператором Public.
Повтор для Dummies
Объект управления CommonDialog
Этот элемент управления позволяет использовать стандартные диалоговые окна Windows:
Для вызова стандартного диалогового окна Windows в VB используется специальный элемент управления CommonDialog . Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Common Dialog Control 6.0. Объект общего диалога невидим для пользователя при работе программы.
|
Окна общего диалога
Диалоговое окно |
Назначение |
Метод |
Open (Открытие файла) |
Получить имена диска, папки и файла для существующего файла |
ShowOpen |
SaveAs (Сохранение) |
Получить имена диска, папки и файла для нового файла |
ShowSave |
Print (Печать) |
Позволить пользователю установить опции для печати |
ShowPrinter |
Font (Выбор шрифта) |
Позволить пользователю выбрать новый шрифт и стиль |
ShowFont |
Color (Цвет) |
Позволить пользователю выбрать цвет из палитры |
ShowColor |
При открытии файла необходимо задать его полное имя.
pathfile = "C:\WINDOWS\Рабочий стол\primer\primer.txt"