12.3.2. Визуализация на форме клипов.

Чтобы на форме после запуска приложения на выполнение проигрывался клип, нужно воспользоваться элементом управления Windows Media Player. На панели элементов управления его нет. Для расположения его на панель нужно, как обычно, выполнить: “Проект \ Компоненты”. В раскрывшемся списке компонентов есть 2 компонента с одинаковыми именами: Windows Media Player. Нужно пометить второй из них и нажать “Применить”, после чего закрыть окно компонентов. Теперь можно поместить элемент на форму. Он получает имя MediaPlayer1.

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

Private Sub Form_Loud()

MediaPlayer1.FileName = “movie.avi”

End Sub

Если же скопировать несколько файлов клипов и нужно, чтобы все они были последовательно проиграны, то в окне свойств элемента MediaPlayer нужно свойству WindowlessVideo задать значение True и на форму поместить элемент Timer.

После запуска приложения на выполнение клипы будут поочередно проигрываться в течение отрезков времени, задаваемых значениями свойства Interval элемента Timer. В качестве примера ниже приводится возможный в этом случае код и вид самой формы.

Private n%

Private Sub Form_Loud()

n = 1

End Sub

Private Sub Timer1_Timer()

Select Case n

Case 1

Timer1.Interval = 21000

MediaPlayer1.FileName = “movie.avi”

Case 2

Timer1.Interval = 9000

MediaPlayer1.FileName = “Logo.avi”

Case 3

Timer1.Interval = 20000

MediaPlayer1.FileName = “robot.avi”

Case 4

Timer1.Interval = 5000

MediaPlayer1.FileName = “fox.avi”

End Select

If n < 5 Then n = n+1 Else End

End Sub

Рис.12.3. Вид формы с элементом Windows Media Player.

Файлы клипов требуют много дискового пространства, поэтому на дискете такой проект вряд ли поместится. Тем более, что из папки проекта скопированный туда файл клипа удалять нельзя.

12.4. Рисунки на графических объектах.

В VB существуют два графических элемента управления, которые позволяют создавать рисунки на графических объектах (форме или элементе PictureBox). Это элементы управления Shape и Line. Они, в отличие от других элементов управления, не имеют событий и отсутствуют в списке элементов в разделе “Declaration” окна кодов. Располагаются оба элемента на форму или элемент PictureBox аналогично любым другим элементам управления.

12.4.1. Элемент Shape.

Основные свойства элемента Shape перечислены в таблице:

Таб.12. 4.1.1.

Свойство	Значение
Name	Имя элемента
Shape	Вид элемента
BackColor	Цвет поля элемента
BackStyle	Прозрачность поля элемента
BorderColor	Цвет границы
BorderStyle	Тип линии границы
BorderWidth	Толщина линии границы
FillColor	Цвет заливки
FillStyle	Тип заливки

Задавая в окне свойств разные значения его свойства Shape, можно изменить его вид в соответствии с таблицей:

Таб. 12.4.1.2.

Значение	Вид элемента
0	прямоугольник
1	квадрат
2	овал
3	окружность
4	скругленный прямоугольник
5	Скругленный квадрат

Цвет поля, занимаемого элементом, виден только, если значение свойства BackStyle задать равным “Непрозрачно”.

Свойств BorderStyle определяет тип ограничивающей элемент линии в соответствии с таблицей:

Таб. 12.4.1.3.

Значение	Тип линии, ограничивающей элемент
0	Прозрачность граничных линий
1	Заливка (сплошные линии)
2	Штриховые линии границ
3	Пунктирные линии границ
4	Штрих-пунктир
5	Штрих-пунктир-пунктир
6	Внутренняя заливка

Чем отличается “Заливка” от “Внутренней заливки”? У элемента Shape есть свойство BorderWidth, определяющее толщину линий границ элемента. При значении “Внутренняя заливка” свойства BorderStyle элемент будет точно вписан в отведенное для него поле. При значении “Заливка” он будет выступать за границы отведенного для него поля на половину толщины линии границы.

Свойство FillStyle определяет тип линий заливки элемента в соответствии с таблицей:

Таб.12. 4.1.4.

Значение свойства	Вид линии границ элемента
0, vbSolid	Заливка
1, vbTransparant	Прозрачность заливки
2, vbHorizontalLine	Штриховка горизонтальными линиями
3, vbVerticalLine	Штриховка вертикальными линиями
4, vbUpwardDiagonal	Штриховка линиями вида \ \ \ \ \
5, vbDownwardDiagonal	Штриховка линиями вида / / / / /
6, vb Cross	Штриховка прямоугольной решеткой
7, vbDiagonalCross	Штриховка диагональной решеткой

Смысл остальных свойств элемента ясен из их названий.