學生管理系統(tǒng)畢業(yè)論文含代碼

1、學生管理系統(tǒng)畢業(yè)論文(含代碼)學生管理系統(tǒng)畢業(yè)論文(含代碼)目錄摘要abstract 前言第一章 為什么要開發(fā)一個學生檔案管理系統(tǒng)？第二章 機已經成為我們和工作的得力助手11 在中小學中用計算機管生檔案的意義12 為將來學校上網做好準備14 學生檔案的設計第三章 怎樣開發(fā)一個學生檔案管理系統(tǒng)？21 編程環(huán)境的選擇22 關系型數據庫的實現23 二者的結合（dba）第四章 windows下的visual basic 編程環(huán)境簡介31 告別“hello world”的年代32 面對對象的編程33 實現菜單選項34 實現工具欄35 幫助36關于系統(tǒng)第五章 使用access20xx 實現關系型數據庫41

2、 數據庫的概念42 新建一個數據庫43 修改已建的數據庫44 實現數據庫之間的聯(lián)系第五章 系統(tǒng)總體規(guī)劃51 系統(tǒng)功能52 流程圖第六章 系統(tǒng)具體實現61 用戶界面的實現611 封面612 主界面613 幫助系統(tǒng)62 數據庫的實現621 學籍數據庫622 學生成績庫623 課程庫63 與vb的連接第七章 結束語第八章 主要附錄 -摘要- 學生檔案管理系統(tǒng)是典型的信息管理系統(tǒng)(mis),其開發(fā)主要包括后臺數據庫的建立和維護以及前端程序的開發(fā)兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。 經過分析,我們使用 microsoft公司

3、的 visual basic開發(fā)工具,利用其提供的各種面向對象的開發(fā)工具,尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象,首先在短時間內建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。關鍵字：控件、窗體、域。 -abstract- system of managing student file is a typical application of managing information system （know as mis）, mainly includes building up data-base of back-end and

4、developing the application interface of front-end. the former required consistency and integrality and security of data. the later should make the application powerful and easily used.by looking up lots of datum, we selected visual basic presented by microsoft because of its objective tools in win32

5、. vb offered a series of activex operating a data-base. it can give you a short-cut to build up a prototype of system application. the prototype could be modified and developed till users are satisfied with it. keywords: activex , form , field . -前言-學生檔案管理系統(tǒng)是一個單位不可缺少的部分,它的對于學校的決策者和管理者來說都至關重要,所以學生檔案管

6、理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難。 隨的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分,使用計算機對學生檔案信息進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學生檔案管理的效率,也是的科學化、正規(guī)化管理,與世界接軌的重要條件。因此

7、，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套學生檔案管理系統(tǒng)為例,談談其開發(fā)過程和所涉及到的及解決。 -下面就讓我們開始正文的介紹第一章為什么要開發(fā)一個學生檔案管理系統(tǒng)？ 機已經成為我們和工作的得力助手：今天，計算機的價格已經十分低廉，性能卻有了長足的進步。它已經被于許多領域，計算機之所以如此流行的原因主要有以下幾個方面：首先，計算機可以代替人工進行許多繁雜的勞動；其次，計算機可以節(jié)省許多資源；第三，計算機可以大大的提高人們的工作效率；第四，計算機可以使敏感文檔更加安全，等等。 在中小學中用計算機管生檔案的意義現在我國的中小學校中檔案的管理水平還停留在紙介質的基礎上

8、，這樣的機制已經不能適應的，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理必然被計算機為基礎的信息管理所取代。我作為一個計算機應用的本科生，希望可以在這方面有所貢獻。改革的總設計師鄧小平同志說過“技術是第一生產力”，我希望能用我四年的所學編制出一個實用的程序來幫助中小學進行更有效的學籍管理。 歸納起來，好處大約有以下幾點：1 可以存儲歷屆的學生檔案，安全、高效；2 只需一到二名檔案錄入員即可操作系統(tǒng)，節(jié)省大量人力；3 可以迅速查到所需信息。 為將來學校上網做好準備 跟據1999年電信的調查報告顯示我國的上網人數已達到890萬，互聯(lián)網已經十分普及，學校往界的畢業(yè)生希望能在世界的任何一個角落

9、查到自己校友的信息，本系統(tǒng)為學校將來的上網作了先期工作，比如數據庫的建立。 學生檔案的設計根據實際情況，我們使用原型法（rapid prototyping）即以少量代價快速地構造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質逐漸增加上去，直到所有的性質全部滿足。此時模塊也發(fā)展成為最終產品了。第二章怎樣開發(fā)一個學生檔案管理系統(tǒng)？ 編程環(huán)境的選擇微軟公司的visual basic 6.0是windows應用程序開發(fā)工具，使最為廣泛的、易學易用的面向對象的開發(fā)工具。visual basic提供了大量的控件，這些控件

10、可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統(tǒng)vb是一個相對較好的選擇。 關系型數據庫的實現 access20xx 就是關系數據庫開發(fā)工具，數據庫能匯集各種信息以供查詢、存儲和檢索。access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于 excel 的表格，可以使數據庫一目了然。另外，access 允許創(chuàng)建自定義報表用于打印或輸出數據庫中的信息。access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于文件服務器，與其他網絡用戶共享數據庫。access 是一

11、種關系數據庫工具，關系數據庫是已開發(fā)的最通用的數據庫之一。如上所述，access 作為關系數據庫開發(fā)具備了許多優(yōu)點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。 二者的結合（dba）微軟的jet數據庫引擎提供了與數據庫打交道的途徑，我們是通過它以及visual basic 來訪問數據庫并對其進行各種操作。visual basic、access以及其他微軟的軟件產品都是通過共用jet數據庫引擎，從而給用戶提供了豐富的數據類型。data 控件在數據庫中的信息與將信息顯示給用戶看的visual basic程序之間架起了一座橋梁。我們可以設置data控件的各個屬性，告訴它要調用那

12、個數據庫的哪個部分。缺省情況下，data控件根據數據庫中的一個或多個數據表建立一個dynaset-type（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當原來的數據表中的容改變了以后，該記錄集合中的記錄也會隨之改變。data控件還提供了用來瀏覽不同記錄的各種跳轉按鈕。將data控件放置在窗體中之后，我們還必須在該控件與要處理的數據庫之間建立聯(lián)系。第三章windows下的visual、visual basic程序基本的構建塊是用戶所創(chuàng)建的對象，每一個對象都具有一些特性和行為（屬性、事件和 ）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個對象。使用應用程序具有可通用性可說擴展性和強有力的功能

13、。visual basic應用由一系列對象組成，包括有函數、菜單、函數、結構和數據窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復使用。 實現菜單選項菜單是程序最重要的特性之一，大多數程序都依賴一個定義良好的菜單使程序易于使用和維護，visual basic也提供了強大的創(chuàng)建菜單功能是程序更加標準。您可以使用visual basic的application wizard也可以使用visual basic 的菜單編輯器建立菜單或者修改已經存在的菜單。 實現工具欄coolbar控件與office97種看到的coolbar是類似的。cool

14、bar就是一個可以在窗體上浮動的工具，同時也是其他activex的容器。通過在coolbar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。 toolbar 是工具條控件，是實現工具條的主體。其中的按鈕可以顯示圖像和標題，并按功能分組或加入分隔符，還可以圍棋設置鼠標停留在其上顯示的提示字符。toolbar也是一個控件容器且具有style屬性，并可以為其增加下拉按鈕和平滑按鈕等。選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“microsoft windows common controls 6.0”后工具相中增加改控件。其屬性及對象如下： 1 ali

15、gn屬性定義工具條在窗體中的位置2 tooltiptext屬性是字符串類型，定義控件的提示字符3 style屬性定義按鈕外觀。4 imagelist屬性定義與數據條對應的imagelist控件名，該控件定義工具條按鈕顯示的圖像。5 hotimangelist屬性設置一個imagelist控件名，該控件定義按鈕獲得熱點時顯示的圖像。6 disabledimagelist屬性定義工具條按鈕無效時顯示的圖像。創(chuàng)建工具條包括imagelist和toolbar控件imagelist用于為其他控件提供圖像庫，將imagelist控件加入到工具箱的操作于前述toolbar控件相同。 幫助專業(yè)水平的軟件通常都

16、帶有聯(lián)機幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內部有限的使用者，我們都應該為用戶提供詳細的、易于理解的聯(lián)機幫助文檔。微軟的help workshop4.0 是一套獨立于visual basic 的用來協(xié)助我們創(chuàng)建、運行于32位windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應用程序生成一組幫助文件。 關于版本為了是程序顯得更具有專業(yè)風格，首先可以在其中加入通常的應用程序信息。這些信息包括公司名稱、版本號、修訂號以及其他類似信息。visual basic允許你使用app對象來保存這些信息，app對象是一個預定義對象，不需要在程序中創(chuàng)建它。app對

17、象的大多數屬性被應用程序用來提供常規(guī)的信息，通過使用這些app提供的屬性，可以在應用程序和用戶之間交流重要信息，在項目屬性框中可以設置它的屬性。 第四章使用access20xx 實現關系型數據庫 數據庫的概念數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。機的數據庫可以分為兩類：非關系數據庫（flat-file）和關系數據庫（relational）。關系數據庫中包含了多個數據表的信息，數據庫含有各個不同部分的術語，象記錄、域等。 新建一個數據庫創(chuàng)建任何一個數據庫的第一步是仔細的規(guī)劃數據庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數據庫結構

18、的過程被認為是數據模型設計。1 標識需要的數據；2 收集被標識的字段到表中；3 標識主關鍵字字段；4 繪制一個簡單的數據圖表；5 規(guī)范數據；6 標識指定字段的信息；7 創(chuàng)建物理表。 修改已建的數據庫數據庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由visual basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現的具體。 實現數據庫之間的聯(lián)系數據庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接

19、到它自己的一個字段，或在不同的紀錄中由重復數據的組合字段。數據庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數據庫中如何與其它的庫建立關系。第五章 系統(tǒng)總體規(guī)劃 系統(tǒng)功能1 可以進行文本操作； 2 添加一個數據庫項目；3 刪除一個數據庫項目；4 修改一個數據庫項目；5 查詢信息；6 察看課程表。 流程圖 第六章 系統(tǒng)具體實現 用戶界面的實現611 封面具體實現見 圖_6.1.1 圖_6.1.1612 主界面具體實現見.圖_6.1.2 圖_6.1.2 主界面包含三方面的,以下一一介紹:1.記錄操作打開記錄操作,進入記錄操作菜單項分別由文

20、件、視圖及幫助三個選項。1.1文件包括：新建打開打開寫字板-如圖<6.1.4 (源程序見附錄清單6.1 )保存另存打印退出<圖6.1.41.2視圖包括：狀態(tài)條工具欄背景顏色顯示課程表-如圖<6.1.5文本編輯器 瀏覽<圖6.1.51. 3幫助包括：內容關于幫助2記錄操作打開記錄操作進入記錄操作選項頁分別由瀏覽記錄、查找等三個選項組成。21瀏覽記錄：學生學籍庫課程庫成績庫22查找記錄23備注3系統(tǒng)信息打開系統(tǒng)信息進入選項頁分別由系統(tǒng)信息、信息采集等組成。 613 幫助系統(tǒng) 具體實現見6.1.3 圖6.1.3 數據庫的實現621學籍數據庫學籍

21、數據庫里存儲了學生的檔案包括：學號、姓名、年齡等 表如<6.2.6 列名（中文）列名（）數據類型寬度小數點位數是否為空姓名name date8no學號codeinteger6no性別sexdate2no年齡agedate6no民族nationdate6no面貌visage.date2.yes.家庭住址addressdate10no備注recorddate15no 表<6.2.6學籍模塊：該模塊主要完成學生基本信息的錄入、刪除 、更新等功能。在此模塊中定義了八個域名來進行學生的信息存儲。如果用戶修改某一紀錄中的某一項，可單添加按鈕進行學生記錄的編輯，此窗口使用數據窗口

22、的freedom風格（典型的錄入界面）。該種風格特點是列標題緊挨著數據列在此窗口還可以增加新學生紀錄。 622成績數據庫成績數據庫里存儲了學生的成績包括：學號、成績、等如表<6.2.7 列名（中文）列名（英文）數據類型寬度小數點位數是否為空姓名name date8no學號codeinteger6no成績scoredate10no備注recorddate15no 表<6.2.7成績模塊：該模塊主要完成學生成績的基本信息的錄入、刪除 、更新等功能。在此模塊中定義了四個域名來進行學生的信息存儲。 623課程數據庫 課程數據庫利存儲了課程的信息：課程名、作者、出版社等如表&

23、amp;lt;6.2.8 列名（中文）列名（英文）數據類型寬度小數點位數是否為空課程idcoursedate8no課程名namedate15no出版社publisherdate20no作者scoredate18no備注recorddate15no 表<6.2.8課程模塊：該模塊主要完成存儲課程的所有信息及錄入、刪除 、更新等功能 與vb的連接visual basic提供了與底層數據庫系統(tǒng)緊密的連接。visual basic 支持不同的關系數據庫管理系統(tǒng)并充分發(fā)揮每一個數據庫的特長。生成獨立或脫離服務器運行的服務以上的應用，visual basic連接數據庫的方式有兩種：·

24、;通過使用visual basic的 data控件。 ·通過使用由visual basic提供的專用的直接與數據庫相連的接口第七章 結束語經過三個多月的設計和開發(fā)，中小學檔案管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成學生學籍的存儲和成績的查詢以及各類相關報表的打印。并提供部分系統(tǒng)維護功能,使用戶方便進行數據備份和恢復、數據刪除。，對于數據的一致性的也通過程序進行了有效的解決。但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進一步改善。 致謝在本次畢業(yè)設計中，我從指導老師雷震甲老師身上學

25、到了很多東西。雷老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和都有一種巨大的幫助，感謝他耐心的輔導。 另外，在系統(tǒng)開發(fā)過程中雷老師的助手張彥明老師也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給與我不少幫助，這里一并表示感謝。 第八章 主要 1 visual basic 6.0 使用指南 作者：bob reselman , richard peasley , wayne pruchniak.出版社：出版社2 中文版microsoft office 97

26、 自學通作者：ned snell出版社：機械工業(yè)出版社3 visual basic 6.0 中文版控件大全作者：microsoft出版社；電子工業(yè)出版社4 中文access 20xx 24學時教程 作者：craig eddy ，timothy buchanan出版社：機械工業(yè)出版社 附錄程序清單及注釋程序清單6.1option explicitdim filename as string 文件名，用于打開、保存文件dim undostring as string 用于 undo 操作dim undonew as string 用于 undo 操作 private sub imgundodisa

27、ble()禁用“undo”按鈕undostring = ''undonew = ''imgundo.enabled = falseimgundo.picture = imagedisable.listimages('undo').picture end sub private sub imgundoenable()有效“undo”按鈕imgundo.enabled = trueimgundo.picture = imageup.listimages('undo').pictureend sub private sub check_

28、imgpaste()設置粘貼按鈕if len(clipboard.gettext) 0 nimgpaste.enabled = trueimgpaste.picture = imageup.listimages('paste').pictureelseimgpaste.enabled = falseimgpaste.picture = imagedisable.listimages('paste').pictureend ifend sub private sub check_imgcutcopy()設置剪切、復制按鈕if text1.sellength 0 t

29、henimgcut.enabled = trueimgcut.picture = imageup.listimages('cut').pictureimgcopy.enabled = trueimgcopy.picture = imageup.listimages('copy').pictureelseimgcut.enabled = falseimgcut.picture = imagedisable.listimages('cut').pictureimgcopy.enabled = falseimgcopy.picture = imaged

30、isable.listimages('copy').pictureend ifend subprivate sub backcolor_click()commondialog1.showcolortext1.backcolor = commondialog1.colorend sub private sub box_click() 顯停工具欄if box.checked then將停顯工具欄box.checked = falsecoolbar1.visible = falseelsebox.checked = truecoolbar1.visible = trueend if

31、form_resize 重新調整控件位置end sub private sub close_click()dim filenum as integer if len(filename) 0 n有輸入文件名filenum = freefile() 獲得可用文件號open filename for output as filenum 打開輸出文件如果無指定文件，則創(chuàng)建新文件print #filenum, text1.text 輸出文本close filenum 關閉文件end if text1.text = ''filename = ''end sub privat

32、e sub combosize_click()text1.fontsize = val(combosize.text)end sub private sub combofont_click()text1.fontname = combofont.textend sub private sub copy_click()clipboard.settext text1.seltext 復制文本到剪裁板end sub private sub cut_click()clipboard.settext text1.seltext 復制文本到剪裁板text1.seltext = '' 清選擇

33、的文本end sub private sub datatime_click()text1.seltext = nowend sub private sub delete_click()text1.seltext = '' 清選擇的文本end sub private sub edit_click()當程序顯示“編輯”子菜單前，觸發(fā)該程序if text1.sellength 0 then 文本框中有選中的文本cut.enabled = truecopy.enabled = truedelete.enabled = trueelsecut.enabled = falsecopy.en

34、abled = falsedelete.enabled = falseend if if len(clipboard.gettext() 0 then剪裁板中有文本數據paste.enabled = trueelse沒有可粘貼的文本paste.enabled = falseend ifend sub private sub exit_click()unload meend sub private sub findtext_keypress(keyascii as integer)dim beginpos as long if keyascii = 13 thenbeginpos = instr

35、(1, text1.text, findtext.text, vbtextcompare)if beginpos 0 thentext1.selstart = beginpos - 1text1.sellength = len(findtext.text)end ifend ifend sub private sub fontcolor_click()commondialog1.showcolortext1.forecolor = commondialog1.colorend sub private sub form_load()dim i as integer 加載圖像imgnew.pict

36、ure = imageup.listimages('new').pictureimgopen.picture = imageup.listimages('open').pictureimgsave.picture = imageup.listimages('save').picture imgundo.picture = imagedisable.listimages('undo').picturecheck_imgpastecheck_imgcutcopy 加載系統(tǒng)字體for i = 0 to screen.fontcount

37、- 1combofont.additem screen.fonts(i)next iend sub private sub form_resize()dim texttop as long 修改工具條大小coolbar1.top = me.scaletopme.scalelefttext1.width = me.scalewidthif me.scaleheight coolbar1.height thentext1.height = me.scaleheight - texttopelsetext1.height = 0end ifend sub private sub imgcopy_cl

38、ick()copy_click 復制check_imgpastecheck_imgcutcopyend sub private sub imgcopy_mousedown(button as integer, shift as integer, x as single, y as single)“按下”按鈕if button = 1 then imgcopy.picture = imagedown.listimages('copy').pictureend ifend sub private sub imgcopy_mousemove(button as integer, sh

39、ift as integer, x as single, y as single)label1 = '將選擇的文本復制到剪裁板' 判斷鼠標位置,顯示不同圖像if button = 1 and (x 0 and x < imgnew.width and y 0 and y < imgnew.height) thenimgcopy.picture = imagedown.listimages('copy').pictureelseif button = 1 nimgcopy.picture = imageup.listimages(

40、9;copy').pictureend ifend subprivate sub imgcopy_mouseup(button as integer, shift as integer, x as single, y as single)if button = 1 then“抬起”按鈕imgcopy.picture = imageup.listimages('copy').pictureend ifend sub private sub imgcut_click()if text1.sellength 0 thencut_click 剪切check_imgpastech

41、eck_imgcutcopyend ifend sub private sub imgcut_mousedown(button as integer, shift as integer, x as single, y as single)if button = 1 then“按下”按鈕imgcut.picture = imagedown.listimages('cut').pictureend ifend sub private sub imgcut_mousemove(button as integer, shift as integer, x as single, y as

42、 single)label1 = '剪切選擇的文字到剪裁板' 判斷鼠標位置,顯示不同圖像if button = 1 and (x 0 and x < imgnew.width and y 0 and y < imgnew.height) thenimgcut.picture = imagedown.listimages('cut').pictureelseif button = 1 thenimgcut.picture = imageup.listimages('cut').picture end ifend sub

43、private sub imgcut_mouseup(button as integer, shift as integer, x as single, y as single)if button = 1 then“抬起”按鈕imgcut.picture = imageup.listimages('cut').pictureend ifend sub private sub imgnew_click()new_clickend sub private sub imgnew_mousedown(button as integer, shift as integer, x as s

44、ingle, y as single)if button = 1 then“按下”按鈕imgnew.picture = imagedown.listimages('new').pictureend ifend sub private sub imgnew_mousemove(button as integer, shift as integer, x as single, y as single)label1 = '創(chuàng)建新文件' 修改提示信息 判斷鼠標位置,顯示不同圖像if button = 1 and (x 0 and x < imgnew.wi

45、dth and y 0 and y < imgnew.height) thenimgnew.picture = imagedown.listimages('new').pictureelseif button = 1 thenimgnew.picture = imageup.listimages('new').pictureend ifend sub private sub imgnew_mouseup(button as integer, shift as integer, x as single, y as single)if button =

46、 1 then “抬起”按鈕imgnew.picture = imageup.listimages('new').pictureend ifend sub private sub imgopen_click()open_clickend sub private sub imgopen_mousedown(button as integer, shift as integer, x as single, y as single)“按下”按鈕if button = 1 thenimgopen.picture = imagedown.listimages('open'

47、).pictureend ifend subprivate sub imgopen_mousemove(button as integer, shift as integer, x as single, y as single)label1 = '選擇文件名并打開文件' 判斷鼠標位置,顯示不同圖像if button = 1 and (x 0 and x < imgnew.width and y 0 and y < imgnew.height) thenimgopen.picture = imagedown.listimages('open&#

48、39;).pictureelseif button = 1 thenimgopen.picture = imageup.listimages('open').pictureend ifend sub private sub imgopen_mouseup(button as integer, shift as integer, x as single, y as single)if button = 1 then“抬起”按鈕imgopen.picture = imageup.listimages('open').pictureend ifend sub priv

49、ate sub imgpaste_click() paste_click 粘貼end sub private sub imgpaste_mousedown(button as integer, shift as integer, x as single, y as single)if button = 1 then“按下”按鈕imgpaste.picture = imagedown.listimages('paste').pictureend ifend sub private sub imgpaste_mousemove(button as integer, shift as

50、 integer, x as single, y as single)label1 = '粘貼文本到當前光標位置' 判斷鼠標位置,顯示不同圖像 if button = 1 and (x 0 and x < imgnew.width and y 0 and y < imgnew.height) nimgpaste.picture = imagedown.listimages('paste').pictureelseif button = 1 thenimgpaste.picture = imageup.listimages('p

51、aste').pictureend ifend sub private sub imgpaste_mouseup(button as integer, shift as integer, x as single, y as single)if button = 1 thenename for output as filenum 打開輸出文件如果無指定文件，則創(chuàng)建新文件print #filenum, text1.text 輸出文本close filenum 關閉文件imgundodisableelsemsgbox '不能保存無名文件' + chr(13) + chr(10

52、) + '請選擇“文件”菜單的“保存”項', , '警告' end ifend sub private sub imgsave_mousedown(button as integer, shift as integer, x as single, y as single)if button = 1 thenimgsave.picture = imagedown.listimages('save').pictureend ifend sub private sub imgsave_mousemove(button as integer, shift

53、 as integer, x as single, y as single)label1 = '保存當前文件' 判斷鼠標位置,顯示不同圖像if button = 1 and (x 0 and x < imgnew.width and y 0 and y < imgnew.height) thenimgsave.picture = imagedown.listimages('save').pictureelseif button = 1 thenimgsave.picture = imageup.listimages('save

54、').pictureend ifend sub private sub imgsave_mouseup(button as integer, shift as integer, x as single, y as single)if button = 1 then“抬起”按鈕imgsave.picture = imageup.listimages('save').pictureend ifend sub private sub imgundo_click()text1.text = undostringend sub private sub imgundo_moused

55、own(button as integer, shift as integer, x as single, y as single)if button = 1 then “按下”按鈕imgundo.picture = imagedown.listimages('undo').pictureend ifend sub private sub imgundo_mousemove(button as integer, shift as integer, x as single, y as single)label1 = '取消當前操作' 判斷鼠標位置,顯示不同圖像if

56、 button = 1 and (x 0 and x < imgnew.width and y 0 and y < imgnew.height) thenimgundo.picture = imagedown.listimages('undo').pictureelseif button = 1 thenimgundo.picture = imageup.listimages('undo').pictureend ifend sub private sub imgundo_mouseup(button as integer, shift as integer, x as single, y as single)if button = 1 then“抬起”按鈕imgundo.picture = imageup.listimages('undo').pictureend ifend subprivate sub new_click()filename = '