【導讀】向也是極其多樣化，所以在人們的日常生活中，幾乎隨處可見其身影。訪問與傳播，同時利用軟件工程的相關理論知識，了解軟件開發(fā)的方法與步驟。技術發(fā)展和競爭的焦點。多媒體技術融計算機、聲音、文本、圖像、動畫、視頻。融、醫(yī)療等諸多行業(yè)，并正潛移默化地改變著我們生活的面貌。多媒體技術還將改變未來的家庭生活，多媒體技術在家庭中的應用。將使人們在家中上班成為現(xiàn)實。系統(tǒng)組成和技術支撐.......

　　

【正文】 ， Web 頁面代碼也顯得有條有理了。 5. 已經(jīng)成為完全的面向?qū)ο蟮木幊陶Z言。 第 3 章 播放器所用的資源 窗體 在 Visual Basic . 中，窗體就使應用程序中的一個窗體。當新建一個“ windows 應用程序”類型的程序時，會自動創(chuàng)建一個 iesheji 窗口，該設計窗口包含一個缺省的窗體。 窗體的結(jié)構(gòu) 窗體對象是 Visual Basic . 應用程序的基本構(gòu)造模塊，是運行應用程序是于用戶交互操作的實際窗口。窗體有自己的屬性、事件和方法用于控制其外觀和行為。窗體是 抱恨所有組成程序的用戶界面的其他控件的對象。 Visual Basic 的多媒體控件 windows media player 控件 是 中 的多媒體控件 windows media player 控件在我們編程時經(jīng)常要用到，但是有很多屬性及方法卻不知道該怎么使用。 基本屬性 ] 26 URL:String。 指定媒體位置，本機或網(wǎng)絡地址 uiMode:String。 播放器界面模式，可為 Full, Mini, None, Invisible playState:integer。 播放狀態(tài)， 1=停止， 2=暫停， 3=播放，6=正在緩沖， 9=正在連接， 10=準備就緒 enableContextMenu:Boolean。 啟用 /禁用右鍵菜單 fullScreen:boolean。 是否全屏顯示 [controls] //播放器基本控制 。 播放 。 暫停 。 停止 :double。 當前進度 :string。 當前進度，字符串格式。如 “00:23” 。 快進 。 快退 。 下一曲 。 上一曲 [settings] //播放器基本設置 :integer。 音量， 0100 27 :Boolean。 是否自動播放 :Boolean。 是否靜音 :integer。 播放次數(shù) [currentMedia] //當前媒體屬性 :double。 媒體總長度 :string。 媒體總長度，字符串格式。如“03:24” (const string)。 獲取當前媒體信息 Title=媒體標題， Author=藝術家， Copyright=版權信息， Description=媒體內(nèi)容描述， Duration=持續(xù)時間（秒），F(xiàn)ileSize=文件大小， FileType=文件類型， sourceURL=原始地址 (const string)。 通過屬性名設置媒體信息 :string。 同 (Title) [currentPlaylist] //當前播放列表屬性 :integer。 當前播放列表所包含媒體數(shù) [integer]。 獲取或設置指定項目媒體信息，其子屬性同 28 定時器控件 Timer 控件用來產(chǎn)生一定的時間間隔，在每個時間間隔中都可根據(jù)應用程序的要求有相同過不同的時間或過程發(fā)生。 菜單 菜單是用戶界面中的重要組成部分，用戶對文檔的許多操作命令都是或者都可以從菜單出發(fā)，現(xiàn)在菜單的形式越來越豐富、漂亮，功能也越來越強大，用戶可以根據(jù)自己的需要定制各種風格的菜單。菜單按實用型形式下拉式菜單和彈出式菜單兩種。下拉式菜單位于窗口的頂部，彈出式菜單是獨立于窗體菜單欄而現(xiàn)實在窗體內(nèi)的浮動菜單。 文本框 文本框（ TextBox）是程序界面上的主要輸入對象，但是 有時也用于輸入，其主要功能是接受用戶數(shù)日的信息，或顯示系統(tǒng)提供隊的文本信息。用戶可以在文本框中編輯文本。 列表框 列表框 （ listBox）用來顯示可滾動的項目列表，在項目列表中用戶可以選在一個或者多個項目，但不能直接對這些項目進行修改。在列表框中的項目列表是items 屬性的值，可使用方法對列表框中的項目進行增加、刪除和插入操作。 組合框 組合框 (boBox) 相當于將文本框和 列表框的功能結(jié)合在一起。這個控件可以實現(xiàn)輸入文本來選定項目，也可以 實現(xiàn)從列表中選定項目這種選擇項目的方法。如果項目數(shù)超過了組合框能夠顯示的項目數(shù)，控件上將自動出現(xiàn)滾動條。用戶即可上下滾動列表。 第 4 章 播放器的具體實現(xiàn) 建立窗體 建立一個窗體窗體的名字 為 Form1 并且更改窗體的 text 屬性為 我的播放器 在窗體中加入如下代碼： 29 Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles = = True Dim i As Integer Try = True Catch ex As Exception (本版本需要 Windows MediaPlay的支持版本至少在 WinXP中的版本 ,請升級 Windows MediaPlay, 提示 , , ) () End Try If PrevInstance() = True Then 39。Dim getcd As New If = Then 39。//判斷是運行文件還是實例 Dim dialog As Integer dialog = (你已經(jīng)啟動了一個實例 ,是否再次啟動一個 , 紅葉解霸 , , , ) If dialog = Then = False = 0% () Exit Sub 30 39。//退出 Else 39。//啟動 End If Else writetempfile( amp。 \~, , ()) 39。doevents() = False = 0% 39。 = () Exit Sub End If End If If = Then 39。//不打開文件直接運行 .exe文件 39。// Dim fileinfo As New ( amp。 \ amp。 ) If = True Then Dim filename As String = amp。 \ amp。 Try readfile(filename) Isplay = False 31 Catch ex As Exception 39。// End Try cmbAdd() If 0 Then (0, True) = 第 1 首 39。 = ((0)) = ((intcount)) End If 39。 = True 39。 = True Else 39。//初始化列表框 = = False = False End If Else Try 39。MsgBox() Dim str As String = () Dim file As String = 32 If str = m3u Then Try readm3u(file) Isplay = False Catch ex As Exception 39。// End Try cmbAdd() = 第 1 首 39。 = ((0)) = ((intcount)) ElseIf str = pls Then Try readfile(file) Isplay = False Catch ex As Exception 39。// End Try cmbAdd() = 第 1 首 39。 = ((0)) = ((intcount)) Else 33 () (1 amp。 . amp。 ((intcount))) intcount = 0 = (intcount) = 第 1 首 (第 1 首 ) = ((intcount)) = True = True End If Catch End Try IsChange = False End If 39。 Try 39。strCDROM = 39。 Catch ex As Exception 39。// 39。strCDROM = 39。 () 39。End Try = True 39。 = False End Sub 34 建立定時器控件 本設計一共用到 3 個 Timer 控件 Timer1 的代碼如下： Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles 39。On Error Resume Next Try Dir(strCDROM, ) Catch ex As Exception IsRead = False End Try Try If = 已停止 Then Try If = True Then