VB4.0与Windows 95 API接口的多媒体应用程序设计的实例
来源:学问馆 本文已影响2.15W人
来源:学问馆 本文已影响2.15W人
Visual Basic以其简单、快捷的特点深受广大多媒体开发者的喜爱,VB4.0与Windows 95 API接口的多媒体应用程序设计实例。用Visual Basicfor Windows 95(以下简称VB4.0)可以迅速地编写出真正的Windows 95应用软件,尤其是在VB4.0中通过调用Windows 95 API函数,一方面可以灵活地利用Windows 95提供的系统资源,另一方面无需调用VB的MCI(多媒体控制接口),使多媒体软件编写更方便。
本文所提供的'源程序,具有简单、方便操作和易于移植使用的特点。
该程序可以使用户选择播放*文件,如稍加改动即可播放其他格式的多媒体文件。本程序经VB4.0编译通过。
调用*文件源程序如下:
源程序清单:
’窗体的特性表
VERSION 4.00
Begin files01
Caption="Files"
ClientHeight=4365
ClientLeft=1095
ClientTop=1515
ClientWidth=7230
Height=4770
Left=1035
LinkTopic="files"
ScaleHeight=4365
ScaleWidth=7230
Top=1170
Width=7350
Begin andButton Command1
Caption="Ok"
Height=735
Left=5880
TabIndex=4
Top=1800
Width=615
End
Begin Box text1
Height=375
Left=600
TabIndex=3
Top=360
Width=5415
End
Begin ListBox File1
Height=2760
Left=2760
TabIndex=2
Top=1080
Width=2175
End
Begin istBox Dir1
Height=2280
Left=600
TabIndex=1
Top=1560
Width=1815
End
Begin eListBox Drive1
Height=315
Left=720
TabIndex=0
Top=1080
Width=1695
End
End
’窗体代码
Attribute VB-Name="files01"
Attribute VB-Creatable=False
Attribute VB-Exposed=False
Private Sub Command1-Click
Load file02
End Sub
Private Sub Dir1-Change
=
End Sub
Private Sub Drive1-Change
=e
End Sub
Private Sub File1-Click
=
End Sub
Private Sub File1-DblClick
pth$=
If Right$(pth$,1)=""Then
=pth$ Name
Else
=pth$ "" Name
End If
End Sub
’窗体特性表
VERSION 4.00
Begin file02
Caption="file02"
ClientHeight=4230
ClientLeft=1095
ClientTop=1515
关于哪一种职业加班的情况比较多? What Kind of Jobs use to Work Overtime?英语作文
会计电算化学习教程:[5]WindowsXP程序
MacBook Pro with Retina display 不适合做网页设计吗?
Windows Vista/7延长试用期方法
HR working opportunity-based in(东北-盘锦)-25W/year
WinNTsetup安装windows8系统图文使用教程
通过WIMBoot方式全新安装Win8.1 Update教程
会计电算化学习教程:[4]WindowsXP设置
Windows8的nvidia 630显卡驱动安装步骤
Win10创意者“Wireless Display Media Viewer”如何卸载?
Windows Vista中如何设置键盘和鼠标
Windows XP怎样关闭华医生Dr.Watson
WINDOWSXP下IIS的安装详细教程
中班英语sing dance paint swim 的教学设计
六年级英语It`s going to snow in Harbin教程设计
Working English Job Advertisement英文求职
Windows7如何设置拨号连接
用PowerPoint制作多媒体作品教学设计
冀教版英语《Tomorrow We Will Work and Play》教学设计范文
Windows7如何防范以及查杀ARP病毒?
教学设计——多媒体的使用
Windows下Redis安装配置的教程方法
如何对Windows Server 2008上的ARP缓存进行管理
working &happiness的关系
语文多媒体课件设计与制作例谈
iphone4s连不上wifi-怎么解决iPhone4s连不上wifi的问题
教学案例与反思:WINDOWS画图“设计一个小闹钟”
程序设计的意思解释
win7按Win+Tab键不能3d切换窗口是为什么?
《Mad World》Jasmine Thompson/Eden Prince歌词
关于高考英语作文的范文:Newspapers and Websites
请问Works Applications是一个怎样的公司?
多媒体设计与制作专业简历模板
windows phone系统介绍 诺基亚lumia手机介绍
win10的SolidWorks安装不了怎么办?
电子计算机与多媒体课程教学设计示例
windows update更新失败解决办法
Mac安装Windows2000教程
BIOS关闭显卡切换功能就可安装Windows7
Lesson 18《Jenny Writes a Postcard》英语教学设计范文
Android应用开发者必看的9个Tips