VB4.0与Windows 95 API接口的多媒体应用程序设计的实例
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
-
数学教案设计:分析图形特征
活动名称:分析图形特征活动目的:1、能尝试分析和标出图形的各项特征,并能按标出的特征选取图形。2、发展幼儿的逻辑分析判断能力。活动准备:1、教具:课件图形特征表格,几何图形若干。(附后)2、学具:每人一张记录表格。每人一个普通几何图形、一个背后贴有半个心形的.几...
-
多媒体工作计划九篇
时光在流逝,从不停歇,我们的工作同时也在不断更新迭代中,现在就让我们好好地规划一下吧。好的计划是什么样的呢?下面是小编为大家收集的多媒体工作计划9篇,欢迎阅读与收藏。多媒体工作计划篇1一、制定制度,加强管理①本学期管理多媒体教室以后,结合学校的《多媒体教室...
-
多媒体工作计划合集五篇
时间过得可真快,从来都不等人,又迎来了一个全新的起点,是时候开始写计划了。我们该怎么拟定计划呢?下面是小编整理的多媒体工作计划5篇,仅供参考,欢迎大家阅读。多媒体工作计划篇1一、制定制度加强管理①本学期管理多媒体教室以后,本人结合县教育局的规章制度及学校的...
-
多媒体技术在技校专业教学中的应用
技校专业教学中多媒体应用创新策略研究。摘要:指出传统电气自动化设备安装与维修专业教学中的局限性,从利用多媒体技术打造探究式虚拟实验课堂、实现对于理论知识纵向或是横向的整合两个方面,论述多媒体应用与创新的策略,并分析应注意的问题。关键词:技校;电气自动化...
相关文章
- Windows Vista安装Windows XP教程
- HR working opportunity-based in(东北-盘锦)-25W/year
- 64位Vista、Windows7系统IIS连接数据库故障完美解决方法
- Mac U盘安装windows7windows8详细教程
- Windows8的nvidia 630显卡驱动安装步骤
- WinNTsetup安装windows8系统图文使用教程
- 惠普(康柏) HP Mini 2140(Windows Vista)笔记本电脑说
- Win10创意者“Wireless Display Media Viewer”如何卸载?
- MacBook Pro with Retina display 不适合做网页设计吗?
- 会计电算化学习教程:[5]WindowsXP程序