【正文】 39。如果出錯，跳轉(zhuǎn)到trip語句 Case 4 On Error GoTo trip = End SelectEnd Sub2 播放器 ： 該窗體中用到“Windows Media Player”控件，添加方法：從“部件”對話框中添加“Windows Media Player”列表項(xiàng)，該控件是利用操作系統(tǒng)自帶的一種播放器。 變量聲明如下：Dim strlen As IntegerDim str As String 39。完整文件路徑Dim filestr As String 39。\Option Base 1 39。 數(shù)組基數(shù)從1開始Dim mp3list() As String 39。列表框數(shù)組Dim strnext As StringDim ml As BooleanDim i As IntegerDim uj As IntegerDim j As Integer 39。 存放數(shù)組長度 部分代碼如下：列表框的Dbllick事件代碼如下： Private Sub List1_DblClick()For i = 1 To UBound(mp3list) If mp3list(i) Like * + + * Then = mp3list(i) Exit For End IfNext i End Sub窗體裝載過程中，將播放文件夾中自帶的音樂文件 Private Sub Form_Load() = ReDim mp3list(1) As String 39。 = 0 = 0 = 0 = = = = = full 39。隱藏mp3播放器控制面板 = 打 開 = 下一首 = 上一首 = 退 出 = E:\OA辦公自動化系統(tǒng)\mp3\ 39。加載媒體 = False = True 39。允許右鍵菜單 = False = False = False 39。禁止全屏End Sub 按鈕“打開”“下一首”“上一首”代碼如下：Private Sub Command1_Click()On Error GoTo mp3 = True 39。 設(shè)置標(biāo)志，標(biāo)題欄 = cdlOFNHideReadOnly = 所有文件 (*.*)|*.*|Mp3格式 文件 (*.mp3)|*.mp3|WMA格式 文件(*.wma)|*.wma 39。 指定缺省的過濾器 = 2 str = filestr = \ = str strlen = InStr(StrReverse(str), \) ml = False 39。判斷文件是否已經(jīng)存在 For i = 1 To UBound(mp3list) If mp3list(i) = str Then ml = True Exit For Else j = UBound(mp3list) + 1 End If Next i If ml = False Then 39。不存在則存放到數(shù)組中加入到列表框中 39。將打開的文件名放到列表框中 mp3list(j 1) = str 39。重新定義數(shù)組的長度 ReDim Preserve mp3list(j) As String Mid(str, Len(str) strlen + 2) 39。字符串運(yùn)算！ Else 39。**播放路徑都是當(dāng)前的 39。測試用的語句： MsgBox 當(dāng)前播放列表已經(jīng)存在, vbInformation, 提示： End If Exit Submp3: Exit SubEnd SubPrivate Sub Command2_Click()strnext = For i = 1 To UBound(mp3list) If strnext = mp3list(i) Then uj = i Exit For End If Next i On Error GoTo nexturl If mp3list(uj + 1) Then = mp3list(uj + 1) Elsenexturl: = mp3list(1) End If End SubPrivate Sub Command3_Click()39。 找出播放文件在數(shù)組中的位置 strnext = For i = 1 To UBound(mp3list) If strnext = mp3list(i) Then uj = i Exit For End If Next i 39。上一首歌的url On Error GoTo nexturl If mp3list(uj 1) Then = mp3list(uj 1) Elsenexturl: = mp3list(1) End If End Sub3 幫助 “幫助”窗體是在新建一個窗體時選擇新建一個“幫助”窗體，：第五章 問題分析與解決 由于“ADO”屬性中記錄源命令類型設(shè)置不同出現(xiàn)的問題在設(shè)置“ADO”屬性時，如果在“記錄源”選項(xiàng)卡的“命令類型”下拉列表框中選擇“2adCmdTable”：、。此時可以將“ADO”屬性中的記錄源的命令類型設(shè)置為“1adCmdText”,并在下面的命令文本中添加相應(yīng)的SQL 語句即可。 如何利用CommonDialog 控件 一些應(yīng)用程序中常常需要進(jìn)行打開和文件、選擇顏色和字體、等操作，這就需要應(yīng)用程序提供相應(yīng)的對話框以方便使用。這些對話框作為Windows的資源，在VB中已被做成“公共對話框”控件?！肮矊υ捒颉保–ommon Dialog）控件為用戶提供了一組標(biāo)準(zhǔn)的系統(tǒng)對話框，通過在“部件”對話框中，選定所需的文件，按“確定”按鈕即可將“公共對話框”控件添加到控件工具箱中，： ComboBox 控件設(shè)置為只讀屬性后，如何添加列表 在窗體設(shè)計(jì)中用到“CommboBox”控件，若將其“Style”屬性設(shè)置為“2Dropdown List”時（），“CommboBox”控件的“Text”屬性設(shè)置為只讀，將無法再為控件的“Text”屬性賦值。解決的方法是在“CommboBox”控件的屬性窗口中將其“Style”屬性設(shè)置為“0Dropdown”。 如何將多種格式的文件保存到數(shù)據(jù)庫中在設(shè)計(jì)過程中遇到將各種文件存儲到數(shù)據(jù)中，存儲的過程主要是通過數(shù)據(jù)庫流對象()的“LoadFromFile”方法實(shí)現(xiàn)的。主要代碼如下：Dim As , rs As , st As StreamSet = New = pstrSet rs = New select * from tboa_file, , adOpenStatic, adLockOptimisticSet st = New = adTypeBinary 39。以二進(jìn)制流形式存儲到數(shù)據(jù)庫中 39。打開Stream來操作二進(jìn)制或文本數(shù)據(jù)的流 39。裝載文件(1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = Now(7).Value = (8).Value = 39。只顯示文件名結(jié)論本次設(shè)計(jì)讓我從中嘗到很多知識，設(shè)計(jì)中用到的很多控件在平常學(xué)習(xí)中從來沒有用過的，所以在做的過程中碰到了許多的問題，有的一個問題困繞著我好幾天；有時明明覺得程序語法沒有錯誤可是就是運(yùn)行不起來；有時因“隱蔽”的拼寫的錯誤耽誤畢業(yè)設(shè)計(jì)的進(jìn)度……各種各樣的困難，不像實(shí)訓(xùn)時做的課程設(shè)計(jì)，畢業(yè)設(shè)計(jì)比平時做的東西要多得多，各種資料都是通過自己查閱、收集，功能的設(shè)計(jì)需要通過調(diào)查分析……雖然出現(xiàn)許多困難，但是通過網(wǎng)上查閱資料、圖書館查閱書籍、尋求老師的幫助，最終完成了任務(wù)。通過本次設(shè)計(jì)，我提高了快速學(xué)習(xí)新知識的能力、分析解決問題的能力、排版文檔的能力。學(xué)習(xí)的耐心和解決問題的決心得到了考驗(yàn)，同時動手能力也被大大的提高。我體會到：在想一個問題時，如果從某方面想不通或者說想不出結(jié)果，我們不防使用其他方法，從另一方面著想，會發(fā)現(xiàn)問題會很快被解決而且很簡單。這對于我以后做人做事都有一個很大的啟發(fā)。遇到問題不要鉆牛角尖，要學(xué)會變通的繞開，重新尋找思考的角度。致謝五個月的精心準(zhǔn)備，畢業(yè)論文終于到了劃句號的時候了。論文寫作的過程并不輕松，知識的積累尚欠火候，于是，我只能一次次埋頭于書本中，一次次在深夜奮筆疾書。第一次花費(fèi)如此長的時間和如此多的精力來完成一篇論文，其中的艱辛與困難難以訴說，敲完最后一個字符，重新從頭細(xì)細(xì)閱讀早已不陌生的文字，我感觸頗多。雖然其中沒有什么值得特別炫耀的成果，但對我而言，是寶貴的。它是無數(shù)教誨、關(guān)愛和幫助的結(jié)果。首先，我要感謝我的指導(dǎo)教師**老師。**老師雖身負(fù)教學(xué)、科研重任，但仍能抽出時間，不時召集我和同組的同學(xué)以督責(zé)課業(yè)，耳提面命，殷殷之情盡在諄諄教誨中。這篇論文更傾注了她的大量的心血。從初稿到定稿，**老師不厭其煩，一審再審，大到篇章布局的偏頗，小到語句格式的瑕疵，都一一予以指出。同時，衷心感謝實(shí)習(xí)單位——******的領(lǐng)導(dǎo)和同事。他們從多方面給予我畢業(yè)設(shè)計(jì)大量的支持，讓我能夠全身心地投入到論文的寫作中。本論文的完成遠(yuǎn)非終點(diǎn)，文中的不足和淺顯之處則是我新的征程上一個個新的起點(diǎn)。我將繼續(xù)前行！參考文獻(xiàn)1劉瑞新,，李樹東，萬朝陽. Visual Basic 程序設(shè)計(jì)教程. 電子工業(yè)出版社,20002周穎 Visual Basic ，2000:55~743高春艷， Basic數(shù)據(jù)庫系統(tǒng)開發(fā)案例精選，4宋昆、李嚴(yán). SQL 5賽奎春、高春艷Visual 2003 Basic數(shù)據(jù)庫開發(fā)及工程實(shí)例 人民郵電出版社 20037高春艷、李俊民等 Visual Basic工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社200王建國等 數(shù)據(jù)庫程序設(shè)計(jì)——SQL Server 2000 人民郵電出版社200高春艷等 Visual Basic數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 2003 ：人民郵電出版社，2002 Basic ：電子工業(yè)出版社，1999， Basic ：中國民航出版社，2000 Basic ：電子工業(yè)出版社，1998 59