VisualBasic5.0 становится все более популярным среди программистов благодаря своему методу визуального программирования. Мы можем использовать VisualBasic5.0 для написания мультимедийного программного обеспечения с красивыми интерфейсами и красивой музыкой. Однако вы можете столкнуться с некоторыми проблемами, которые трудно решить в процессе программирования. Ниже приводится опыт автора в создании мультимедиа, который может обогатить ваш набор мультимедийных аксессуаров.
1. Фоновая музыка
При использовании Visual Basic 5.0 для компиляции приложений мы можем использовать метод вложения OLE, чтобы легко добавлять фоновую музыку в приложение.
Войдите в системную среду VisualBasic5.0 и создайте новую форму. Нажмите «OLE-контейнер» в «Управлении формой» и перетащите его в любое место ФОРМЫ. Выберите «Медиа-клип» в окне «Вставить объект», выберите столбец «Показать как значок» (этот столбец должен быть выбран, иначе его невозможно скрыть) и нажмите клавишу «Подтвердить», чтобы выйти.
В окне «Медиаплеер» выберите «Файл», «Открыть» и выберите из списка файлов звуковой файл, который вы хотите использовать в качестве фоновой музыки. Поскольку музыкальные файлы, как правило, не очень длинные, они требуют циклического воспроизведения, чего можно добиться, настроив «медиаплеер» на повторное воспроизведение. Затем выберите «Параметры» в меню «Правка», выберите «Повторное воспроизведение» в окне параметров и снимите флажок перед «Панель управления воспроизведением», подтвердите и выйдите.
Вернитесь в системную среду Visual Basic 5.0, нажмите правую кнопку мыши и щелкните столбец «Свойства» во всплывающем меню, чтобы открыть окно свойств. Выберите объект «Ole1» и установите для его свойства «Visible» значение .F, а для свойства «Autosize» — значение .F.. Снова нажмите правую кнопку мыши, щелкните столбец «Код» во всплывающем меню, чтобы войти в окно записи процесса, и напишите процесс «Загрузка» объекта «Форма1»:
PRivateSubForm_Load()
OLE1.DoVerb(0)
EndSub
4. Нажмите клавишу «F5» для запуска.
2. Трехмерная кнопка с прозрачным эффектом
При создании мультимедийного программного обеспечения нам иногда нужны трехмерные кнопки с прозрачными эффектами. Для завершения этого дизайна мы можем использовать комбинацию метки (LABEL) и формы (SHAPE).
Войдите в системную среду Visual Basic 5.0, создайте новую форму (FORM1) и задайте для свойства Picture формы FORM1 файл растрового изображения WINDOWS (.BMP).
Нажмите «Форма» на «Панели управления формой» и вытащите прямоугольную рамку (SHAPE1) на FORM1. Создайте SHAPE2, SHAPE3 и SHAPE4 таким же образом. Установите свойства этих четырех SHAPE в окне свойств следующим образом:
ФОРМА1:
BorderColor=&HFFFFFF
BorderWidth=3Left=2160
Верх=2040Ширина=1100
ФОРМА2:
BorderColor=&H80000008
BorderWidth=3Left=2160
Верх=2520Ширина=1100
ФОРМА3:
BorderColor=&HFFFFFF
BorderWidth=3Left=2160
Верх=2040Высота=500
ФОРМА4:
BorderColor=&H80000008
BorderWidth=3Left=3240
Верх=2040Высота=500
Нажмите «Ярлык» на «Панели управления формой» с помощью мыши, вытащите прямоугольную рамку (LABEL1) на FORM1 и отрегулируйте ее размер, чтобы он вписывался в четыре ФОРМЫ. Установите для свойства Caption заголовок настроенной кнопки, Alignment — 2, а Backstyle — 0.
Дважды щелкните LABEL1 и напишите процессы MouseDown и MouseUp для LABEL1 следующим образом:
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&H80000008
Shape3.BorderColor=&H80000008
Shape2.BorderColor=&HFFFFFF
Shape4.BorderColor=&HFFFFFF
Label1.Top=Label1.Top 10
EndSub
PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&HFFFFFF
Shape3.BorderColor=&HFFFFFF
Shape2.BorderColor=&H80000008
Shape4.BorderColor=&H80000008
Метка1.Топ=Метка1.Топ-10
EndSub
Просто нажмите клавишу «F5», чтобы запустить его.
3. Мобильные субтитры
По телевизору мы часто видим строку текста подсказки или рекламной информации, движущуюся справа налево внизу экрана, которая не только служит подсказкой, но и не повреждает весь экран. Мы также можем завершить этот проект в VisualBasic5.0.
Войдите в системную среду Visual Basic 5.0, создайте новую форму (FORM1) и задайте для свойства Backcolor формы FORM1 значение RGB (192 192 192).
Нажмите «Ярлык» на «Панели управления формой» и вытащите прямоугольное поле (LABEL1) на FORM1. Установите для его свойств «Заголовок» значение «Демонстрация активных субтитров», «Авторазмер» — «.T.», «Backstyle» — значение «0», «Передний цвет» — значение «RGB» (128, 128, 128), «Название шрифта» — «официальный сценарий», «Шрифт» — значение «.T.» и «Размер шрифта» — значение 36.
Щелкните мышью LABEL1, нажмите клавишу CTRL C (копировать), а затем нажмите клавишу CTRL V (вставить), чтобы создать еще одну метку (LABEL2) с тем же заголовком, что и LABEL1 в FORM1, и установите для ее атрибута Forecolor значение RGB (255). , 255, 0 ). Отрегулируйте положение LABEL2 так, чтобы оно было чуть выше LABEL1, чтобы LABEL1 выглядело как тень LABEL2.
Нажмите «Таймер» на «Панели управления формой» с помощью мыши, а затем один раз щелкните FORM1, чтобы создать таймер (TIMER1) в FORM1. Установите для его свойства Interval значение 200.
Дважды щелкните FORM1 и напишите процесс загрузки FORM1 следующим образом:
PrivateSubForm_Load()
Label1.Left=Ширина 50
Label2.Left=Ширина
EndSub
6. Дважды щелкните TIMER1 и напишите процесс таймера TIMER1 следующим образом:
PrivateSubTimer1_Timer()
ЕслиLabel1.Left<0-Label1.WidthThen
Label1.Left=Ширина 50
Label2.Left=Ширина
КонецЕсли
Метка1.Слева=Метка1.Слева-500
Метка2.Слева=Метка2.Слева-500
EndSub
7. Нажмите клавишу «F5», чтобы запустить, и вы увидите, что субтитры появляются в правой части экрана и исчезают при перемещении в крайний левый угол экрана.
4. Постепенное появление и исчезновение текста
Субтитры с комментариями в начале многих игр и творческие титры после взрыва используют метод постепенного появления и исчезновения символов. Текст с эффектами появления и исчезновения также можно создать в Visual Basic 5.0.
Войдите в системную среду Visual Basic5.0 и создайте новую форму (FORM1).
Нажмите «Ярлык» на «Панели управления формой» и вытащите прямоугольное поле (LABEL1) на FORM1. Установите для атрибута Caption значение «Появление и исчезновение текста», Autosize — .T., Backstyle — 0, цвет текста — RGB (0,128,128), шрифт — «official script», Fontbold — .T. и размер шрифта — 36. .
Нажмите «Таймер» на «Панели управления формой» с помощью мыши, а затем один раз щелкните FORM1, чтобы создать таймер (TIMER1) в FORM1. Установите для свойства Interval значение 100, а для свойства Enabled — значение .F..
Нажмите «Командную кнопку» на «Панели управления формой» и вытащите прямоугольное поле (COMMAND1) на FORM1. Установите для свойства Caption значение «Пуск».
Дважды щелкните COMMAND1 и запишите процесс Click COMMAND1 следующим образом:
PrivateSubCommand1_Click()
IfTimer1.Enabled=FalseThen
Таймер1.Включено=Истина
КонецЕсли
EndSub
Дважды щелкните FORM1 и напишите процесс активации FORM1 следующим образом:
Цвет фона=RGB(0,128,128)
я=0
7. Дважды щелкните TIMER1 и напишите процесс таймера TIMER1 следующим образом:
PrivateSubTimer1_Timer()
я=я 10
ЕслиI>=255*2Тогда
Таймер1.Включено=Ложь
я=0
КонецЕсли
ЕслиI>=255Тогда
Label1.ForeColor=RGB(255*2-I,128,128)
Еще
Label1.ForeColor=RGB(I,128,128)
КонецЕсли
EndSub
Нажмите клавишу «F5», чтобы запустить. Нажмите кнопку «Пуск» мышкой, и вы увидите, что заголовок постепенно меняется с цвета фона на красный, а затем с красного на цвет фона.
Все вышеперечисленные программы успешно работают в Visual Basic 5.0 и WINDOWS95. ->