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
相關文章
-
Windows Vista安裝Windows XP教程
由於Windows Vista和windows xp的'系統引導方式不同,當在WindowsVista上安裝WindowsXP後,會破壞WindowsVista的系統啟動文件,無法進入Windows啟動管理器窗口,造成WindowsVista系統不能使用。因此,在安裝好WindowsXP後,還要 -
惠普(康柏) HP Mini 2140(Windows Vista)筆記本電腦説
轉載,製作詳細主要材料:絲綢紗所需工具:水消筆縫紉機針線剪刀魔術貼製作步驟:第1步:第2步:第3步:第4步:第5步:第6步:第7步:第8步:第9步:第10步:第11步:第12步:第13步:第14步:第15步:第16步:第17步:第18步:第19步:第20步:第21步:第22步:第23步:第2 -
64位Vista、Windows7系統IIS連接數據庫故障完美解決方法
問題1.An error occurred on the server when processing the se contact the system administrator 解決方法:打開IIS7的asp設置,展開“調試屬性”選項,“將錯誤發送到瀏覽器”這項默認的是False,改為True,然後會出 -
Mac U盤安裝windows7windows8詳細教程
工具/原料Mac一個超過4G的U盤或移動磁盤(不包括讀卡器與SD卡)介紹/系統要求1、有關係統要求(windows8能裝的8.1也能裝):(5表示bootCamp版本為5或以上,4表示bootCamp版本為4以上)查看bootCamp版本請看“開始安裝”中第二步 -
Windows8的nvidia 630顯卡驅動安裝步驟
以下以nvidia 630顯卡驅動安裝為例,以Windows 8系統為例,該操作方法同樣適用於Windows 7系統。1. 進入設備管理器,在歎號的.顯卡上點擊鼠標右鍵選擇更新驅動程序;2. 瀏覽計算機以查找驅動程序軟件;3. 從計算機的設備驅動 -
MacBook Pro with Retina display 不適合做網頁設計嗎?
新買的MBPR 15‘ ,樂了兩天,亂七八糟軟件裝好,win7裝好(為了做web設計看兼容性)開始幹活的時候。。。。傻眼了1,看一般的網站,上面的圖片根本沒法直視啊啊啊,各種虛各種朦朧,本人偏執狂,看東西和做圖都以像素為單位的,以前做的一 -
Win10創意者“Wireless Display Media Viewer”如何卸載?
1、正月裏來正月正,正月裏來鬧花燈。花燈裏面藏謎念,開啟智慧把它想。小小謎念學問大,大千世界樣樣有。祝你元宵節聰明賽一休,做個狀元郎!2、這條短信有魔力,閲讀後一切的煩惱都“宵”去,所有的黴運都“宵”去,全部的苦難都 -
HR working opportunity-based in(東北-盤錦)-25W/year
MISION1. Desing and implement the recruitment strategy, exteal selection and inteal mobility of professionals to respond to Company needs in time and quality.2. Define the processes and tools necessar -
WinNTsetup安裝windows8系統圖文使用教程
使用系統安裝器WinNTSetup漢化版工具軟件安裝,對於WinNTsetup如何使用不熟悉,結果在網上搜索了很久還是沒有搜索到WinNTsetup如何使用的教程,小編特地整理了WinNTsetup安裝Win8系統教程,希望對安裝Win8系統的朋友有幫 -
會計電算化學習教程:[5]WindowsXP程序
輸入法列表管理使用中文輸入法使用文字處理程序[寫字板]與[記事本]都是一種使用簡單但功能強大的'文字處理程序,用户可以利用它們進行日常工作中文件的編輯。不僅可以進行中英文文檔的編輯,而且還可以圖文混排,插入圖片