📄 ba44.htm
字号:
<HTML>
<HEAD>
<TITLE>用VB6.0制作多媒体影集</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><big>用VB6.0制作多媒体影集</big></strong><big>
</font></big></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"><big> </font></big></p>
<p><br>
<font face="宋体" size="-1">当好友相聚时,如果你能够拿出亲手制作的一本多媒体影集,相信那优美的背景音乐和让人眼花缭乱的特技效果一定会令他们赞叹不已!<br>
<br>
其实,这并不复杂,只要肯花些功夫,相信你一定可以制作出很好的作品!下面让我们用VB开始工作吧!<br>
<br>
<br>
一、创建运行界面<br>
<br>
<br>
在Form1窗口添加以下主要控件:<br>
<br>
图片框PictureBox(picdest,picsource):用以演示图片素材。<br>
<br>
定时器 (Timer1):控制音乐的循环播放。<br>
<br>
定时器 (Timer2):控制图片的循环播放。<br>
<br>
媒体控制对象Microsoft Multimedia Control(mciwave):用以播放音乐。<br>
<br>
<br>
二、编写相片演示程序代码<br>
<br>
<br>
常见的特技图像显示方式主要有扫描、移动、百叶窗、马赛克等。在这里,我们只示范二个常用的绘图方式,如果有兴趣,完全可以在此基础上加以改动,得到更多的花样。本文主要是用VB中的paintpicture方法来实现。<br>
<br>
1) 扫描显示方式<br>
<br>
扫描显示是动态绘图技巧的最基本形式,其原理是将源图像一行一行或一列一列地复制到目标区域,配合稍许的时间延迟及数据复制的方向,从屏幕上看就像是向下或向右依次将图形扫描出来。<br>
<br>
由上至下扫描显示的实现方法是:从图像的顶部向下一行一行地从源对象中将位图复制到目标对象中,每复制一行后都加上一定的延时。下面的代码将实现向下扫描显示。(代码中dest为目标对象,source为源对象,dtime为延迟时间。显示图像已装入source。)<br>
<br>
For j = 1 To 100<br>
<br>
dest.PaintPicture source.Picture, 0, 0, picwidth, j
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -