Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
68
Добавлен:
02.05.2014
Размер:
400.9 Кб
Скачать

Объекты управления: 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)

Перед именем элемента, принадлежащего к другой форме, нужно ставить имя формы-хозяина с точкой. Так можно обращаться не только к свойствам, объектам и методам, принадлежащим другим методам, но и к переменным, процедурам и другим элементам.

Если возникает необходимость вводить данные с помощью одной формы, а использовать результаты в другой, то их необходимо описать в так называемом модуле кода. Его можно открыть, используя команду меню:

ProjectAdd ModuleNewModuleOpen

Модуль не имеет элементов управления, у него нет так сказать «тела». В модуле глобально описываются переменные, которые используются в программных кодах нескольких форм, создаются глобальные процедуры (процедуры доступные всем программным кодам). Причем и переменные и процедуры объявляются оператором 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"