vb教程-制作多媒体界面

《vb教程-制作多媒体界面》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB教程-制作多媒体界面小蘑菇：叮当姐姐，我明年就要毕业了，听说现在用人单位都很挑剔的，以前的师兄就说过要把自己的简历制作的与众不同，最好还能够做成多媒体格式的文档，这样别人对你的印象就会好很多。那么用VB能不能实现呢？　　小叮当：只有你想不到的，没有VB做不到的，你的意思是不是要我教你怎么做多媒体简历呢？　　小蘑菇：其实不需要完整的简历，只要你教我怎样做出一个多媒体界面就可以了。　　　　小叮当：呵呵，原来如此呀，那好，进行就来制作一个多媒体简历。　　小蘑菇：不过我还有要求的，就是能够把我的相片放上去，同时还要能够显示一段文字，最好还要能够显示出动画，你看这

2、些可以实现吗？　　小叮当：你这个家伙，就会给我出难题，这有什么难的？看好了，俗话说人有多大胆，地有多大产，我怎么着也要给你折腾出来。　　小蘑菇：嘿嘿，叮当姐姐看起来蛮机灵的，实际上也会中我的圈套，哈哈。　　……（叮当思考中）　　小叮当：好了，基本上搞定了，先来添加所需要的控件。　　1、新建一个工程，将Form1窗口的BorderStyle属性设置为“0-None”，这样可以不显示边框和相关的元素，接着将WindowState属性设置为“2-Maximized”，这样程序在运行的时候能够将窗口最大化显示。　　2、添加2个Picture控件，它们分别用于显示你的

3、相片和一段动画。其中显示相片的Picture控件Appearance属性要设置为“0-Flat”，这样将控件的显示风格为平面视觉效果，接着把AutoRedraw属性设置为“True”，它可以允许自动重绘控件上的图象和文字将其设为False能够避免屏幕显示文字时候的闪烁感。同时，AutoSize属性也要设置为“True”，这样可以自动调整控件大小以显示全部要显示内容。对于另外一个用于显示动画的Picture控件，只需要将AutoSize属性设置为True，让它能够自动调整控件大小来显示全部内容即可。　　3、在Form1窗口中添加两个MicrosoftMedia

4、Control控件，它们分别用于连续播放背景音乐和连续播放动画。这两个控件的名称分别设置为MCI1和MCI2，Visible属性全部设置为“False”，这样将控件隐藏起来由程序去控制播放。　　4、在窗口中添加一个Timer控件，利用这个控件显示滚动的文字信息，并控制动画、声音的重放，需要将它的Interval属性设置为“200”。　　所有的控件添加完成之后如图所示。　　小蘑菇：OK，下面再来看看源代码部分吧。　　小叮当：这个程序的工作原理是先对读取文件的盘符路径进行处理，并控制多媒体控件MCI1、MCI2分别播放背景音乐和动画。Timer1控件用来完成背景

5、音乐和动画的连续循环重放，并控制要显示的文字信息向上滚动显示。然后由Picture1_MouseUp事件来完成关闭程序的任务，也就是说当鼠标处于画面Picture1范围内时按鼠标左键，则关闭多媒体控件MCI1、MCI2，并退出程序。　　程序的代码分别如下：　　1、双击Form1窗口并选择“通用”对象，输入下列代码：　　OptionExplicit　　DimCurY,CurY1,TempAsSingle,s1(1To3),s2(1To3)AsString　　2、双击Form1窗口，选择“Load”事件并输入下列代码：　　PrivateSubForm_Load(

6、)　　　　DimDiskPathNameAsString,x,yAsSingle　　/变量DiskPathName用于存放应用程序所在的盘符和路径　　Move0,0,Screen.Width,Screen.Height　　　　/根据屏幕分辨率重新调整各窗口和控件的位置　　x=(ScaleWidth-Picture1.Width)/2:　　y=(ScaleHeight-Picture1.Height)/2　　Picture1.Movex,y　　Picture2.MovePicture2.Left+x,Picture2.Top+y　　s1(3)="程序功能:":

7、s2(3)="小蘑菇的多媒体简历"/要滚动显示的文字信息　　S1(2)="设计单位:":s2(2)="xxx大学计算机系"　　s1(1)="设计者:":s2(1)="小蘑菇"　　CurY=Picture1.CurrentY:CurY1=CurY:Temp=8000-Picture1.CurrentY　　　　/保存Picture1画面的起始坐标　　DiskPathName=App.Path　　IfRight(DiskPathName,1)=""Then　　DiskPathName=Left(DiskPathName,Len(DiskPathName)-1)　

8、　/判断应用程序所在路径是否为根目录，若为根目录则去