Пример использования 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, которое инициируется при выборе меню мышью или клавиатурой.