前言
第二章 計算機已經成為我們學習和工作的得力助手
1．1 在中國小中用計算機管理學生檔案的意義
1．2 為將來學校上網做好準備
1．4 學生檔案的設計分析
第三章 怎樣開發一個學生檔案管理系統？
2．1 程式設計環境的選擇
2．2 關係型資料庫的實現
2．3 二者的結合（DBA）
第四章 Windows下的Visual Basic 程式設計環境簡介
3．1 告別“hello world"的年代
3．2 面對物件的程式設計
3．3 實現選單選項
3．4 實現工具欄
3．5 幫助
3．6關於系統
第五章 使用Access2000 實現關係型資料庫
4．1 資料庫的概念
4．2 新建一個數據庫
4．3 修改已建的資料庫
4．4 實現資料庫之間的聯絡
第五章 系統總體規劃
5．1 系統功能
5．2 流程圖
第六章 系統具體實現
6．1 使用者介面的實現
6．1．1 封面
6．1．2 主介面
6．1．3 幫助系統
6．2 資料庫的實現
6．2．1 學籍資料庫
6．2．2 學生成績庫
6．2．3 課程庫
6．3 與VB的連線
第七章 結束語
第八章 主要參考文獻
附錄
--------------摘要--------------
學生檔案管理系統是典型的資訊管理系統(MIS),其開發主要包括後臺資料庫的建立和維護以及前端應用程式的開發兩個方面。對於前者要求建立起資料一致性和完整性強、資料安全性好的庫。而對於後者則要求應用程式功能完備,易使用等特點。
經過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發工具,利用其提供的各種面向物件的開發工具,尤其是資料視窗這一能方便而簡潔操縱資料庫的智慧化物件,首先在短時間內建立系統應用原型,然後,對初始原型系統進行需求迭代,不斷修正和改進,直到形成使用者滿意的可行系統。
關鍵字：控制元件、窗體、域。
--------------ABSTRACT--------------
The system of managing student file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-end and 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. 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 .
--------------前言--------------
學生檔案管理系統是一個教育單位不可缺少的部分,它的內容對於學校的決策者和管理者來說都至關重要,所以學生檔案管理系統應該能夠為使用者提供充足的資訊和快捷的查詢手段。但一直以來人們使用傳統人工的方式管理檔案檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的檔案和資料,這對於查詢、更新和維護都帶來了不少的困難。
隨著科學技術的不斷提高,電腦科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域併發揮著越來越重要的作用。
作為計算機應用的一部分,使用計算機對學生檔案資訊進行管理,具有著手工管理所無法比擬的優點.例如:檢索迅速、查詢方便、可靠性高、儲存量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高學生檔案管理的效率,也是企業的科學化、正規化管理,與世界接軌的重要條件。
因此，開發這樣一套管理軟體成為很有必要的事情,在下面的各章中我們將以開發一套學生檔案管理系統為例,談談其開發過程和所涉及到的問題及解決方法。
--------------------下面就讓我們開始正文的介紹
第一章
為什麼要開發一個學生檔案管理系統？
計算機已經成為我們學習和工作的得力助手：
今天，計算機的價格已經十分低廉，效能卻有了長足的進步。它已經被應用於許多領域，計算機之所以如此流行的原因主要有以下幾個方面：
首先，計算機可以代替人工進行許多繁雜的勞動；
其次，計算機可以節省許多資源；
第三，計算機可以大大的提高人們的工作效率；
第四，計算機可以使敏感文件更加安全，等等。
在中國小中用計算機管理學生檔案的意義
現在我國的中國小校中檔案的管理水平還停留在紙介質的基礎上，這樣的機制已經不能適應時代的發展，因為它浪費了許多人力和物力，在資訊時代這種傳統的管理方法必然被計算機為基礎的資訊管理所取代。
我作為一個計算機應用的本科生，希望可以在這方面有所貢獻。改革的總設計師鄧小平同志說過“科學技術是第一生產力"，我希望能用我四年的所學編制出一個實用的程式來幫助中國小進行更有效的學籍管理。
歸納起來，好處大約有以下幾點：
1． 可以儲存歷屆的學生檔案，安全、高效；
2． 只需一到二名檔案錄入員即可作業系統，節省大量人力；
3． 可以迅速查到所需資訊。
為將來學校上網做好準備
跟據1999年中國電信的調查報告顯示我國的上網人數已達到890萬，網際網路已經十分普及，學校往界的畢業生希望能在世界的任何一個角落查到自己校友的資訊，本系統為學校將來的上網作了先期工作，比如資料庫的建立。
學生檔案的設計分析
根據實際情況，我們使用原型法（Rapid Prototyping）即以少量代價快速地構造一個可執行的軟體系統模型。使使用者和開發人員可以較快地確定需求，然後採用迴圈進化的開發方式，對系統模型作連續的精化，將系統需具備的性質逐漸增加上去，直到所有的性質全部滿足。此時模組也發展成為最終產品了。
第二章
怎樣開發一個學生檔案管理系統？
程式設計環境的選擇
微軟公司的Visual Basic 6.0是Windows應用程式開發工具，使目前最為廣泛的、易學易用的面向物件的開發工具。Visual Basic提供了大量的控制元件，這些控制元件可用於設計介面和實現各種功能，減少了程式設計人員的工作量，也簡化了介面設計過程，從而有效的提高了應用程式的執行效率和可靠性。故而，實現本系統VB是一個相對較好的選擇。
關係型資料庫的實現
Access2000 就是關係資料庫開發工具，資料庫能彙集各種資訊以供查詢、儲存和檢索。Access 的優點在於它能使用資料表示圖或自定義窗體收集資訊。資料表示圖提供了一種類似於 Excel 的電子表格，可以使資料庫一目瞭然。另外，Access 允許建立自定義報表用於列印或輸出資料庫中的資訊。Access也提供了資料儲存庫，可以使用桌面資料庫檔案把資料庫檔案置於網路檔案伺服器，與其他網路使用者共享資料庫。Access 是一種關係資料庫工具，關係資料庫是已開發的最通用的資料庫之一。如上所述，Access 作為關係資料庫開發具備了許多優點，可以在一個數據包中同時擁有桌面資料庫的便利和關係資料庫的強大功能。
二者的結合（DBA）
微軟的JET資料庫引擎提供了與資料庫打交道的途徑，我們是通過它以及Visual Basic 來訪問資料庫並對其進行各種操作。Visual Basic、Access以及其他微軟的軟體產品都是通過共用JET資料庫引擎，從而給使用者提供了豐富的資料型別。
DATA 控制元件在資料庫中的資訊與將資訊顯示給使用者看的Visual Basic程式之間架起了一座橋樑。我們可以設定DATA控制元件的各個屬性，告訴它要呼叫那個資料庫的哪個部分。預設情況下，DATA控制元件根據資料庫中的一個或多個數據表建立一個dynaset-type（動態集合）型別的記錄集合。一個記錄集合是動態的也就意味著，當原來的資料表中的容改變了以後，該記錄集合中的記錄也會隨之改變。DATA控制元件還提供了用來瀏覽不同記錄的各種跳轉按鈕。將DATA控制元件放置在窗體中之後，我們還必須在該控制元件與要處理的資料庫之間建立聯絡。
第三章
Visual Basic應用程式基本的構建塊是使用者所建立的物件，每一個物件都具有一些特性和行為（屬性、事件和 方法）。開發人員可以最有效利用所建立的每一個物件。使用應用程式具有可通用性可說擴充套件性和強有力的功能。
Visual Basic應用由一系列物件組成，包括有函式、選單、函式、結構和資料視窗、使用者物件、使用者事件等等，物件中又包含若干控制元件如命令按鈕、單行編輯器等這些物件和控制元件都可在許多應用中重複使用。
實現選單選項
選單是程式最重要的特性之一，大多數程式都依賴一個定義良好的選單使程式易於使用和維護，Visual Basic也提供了強大的建立選單功能是程式更加標準。
您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的選單編輯器建立選單或者修改已經存在的選單。
實現工具欄
CoolBar控制元件與Office97種看到的CoolBar是類似的。CoolBar就是一個可以在窗體上浮動的工具，同時也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。
Toolbar 是工具條控制元件，是實現工具條的主體。其中的按鈕可以顯示影象和標題，並按功能分組或加入分隔符，還可以圍棋設定滑鼠停留在其上顯示的提示字元。Toolbar也是一個控制元件容器且具有Style屬性，並可以為其增加下拉按鈕和平滑按鈕等。
選擇“工程"下拉選單中的“部件"選項，顯示“部件"對話方塊。在“控制元件"選項卡列表中選擇“Microsoft Windows Common Controls 6.0"後工具相中增加改控制元件。其屬性及物件如下：
1． Align屬性定義工具條在窗體中的位置
2． ToolTipText屬性是字串型別，定義控制元件的提示字元
3． Style屬性定義按鈕外觀。
4． ImageList屬性定義與資料條對應的ImageList控制元件名，該控制元件定義工具條按鈕顯示的影象。
5． HotImangeList屬性設定一個ImageList控制元件名，該控制元件定義按鈕獲得熱點時顯示的影象。
6． DisabledImageList屬性定義工具條按鈕無效時顯示的影象。
建立工具條包括ImageList和Toolbar控制元件
ImageList用於為其他控制元件提供影象庫，將ImageList控制元件加入到工具箱的操作於前述Toolbar控制元件相同。
幫助
專業水平的軟體通常都帶有聯機幫助功能。無論寫出來的程式是要給大量的使用者使用，還是僅僅侷限於公司內部有限的使用者，我們都應該為使用者提供詳細的、易於理解的聯機幫助文件。微軟的Help Workshop4.0 是一套獨立於Visual Basic 的用來協助我們建立、運行於32位Windows 作業系統下的幫助檔案的工具。使用它我們可以為我們編寫的應用程式生成一組幫助檔案。
關於版本
為了是程式顯得更具有專業風格，首先可以在其中加入通常的應用程式資訊。這些資訊包括公司名稱、版本號、修訂號以及其他類似資訊。Visual Basic允許你使用APP物件來儲存這些資訊，APP物件是一個預定義物件，不需要在程式中建立它。APP物件的大多數屬性被應用程式用來提供常規的資訊，通過使用這些APP提供的屬性，可以在應用程式和使用者之間交流重要資訊，在專案屬性框中可以設定它的屬性。
第四章
使用Access2000 實現關係型資料庫
資料庫的概念
資料庫是一種儲存資料並對資料進行操作的工具。資料庫的作用在於組織和表達資訊，簡而言之，資料庫就是資訊的集合。計算機的資料庫可以分為兩類：非關係資料庫（flat-file）和關係資料庫（relational）。關係資料庫中包含了多個數據表的資訊，資料庫含有各個不同部分的術語，象記錄、域等。
新建一個數據庫
建立任何一個數據庫的第一步是仔細的規劃資料庫，設計必須是靈活的、有邏輯的。建立一個數據庫結構的過程被認為是資料模型設計。
1． 標識需要的資料；
2． 收集被標識的欄位到表中；
3． 標識主關鍵字欄位；
4． 繪製一個簡單的資料圖表；
5． 規範資料；
6． 標識指定欄位的資訊；
7． 建立物理表。
修改已建的資料庫
資料庫的修改分為：新增、編輯和刪除記錄。這三種操作均可由Visual Basic 建立的程式來完成，下面的章節將詳細描述實現的具體方法。
實現資料庫之間的聯絡
資料庫之間的關係指明兩個庫之間共享一個共同的關鍵字值。一個連線是指一種虛擬的表，這種表是在當用戶要求從相互關聯的各個不同的表中獲取資訊時建立的，關鍵欄位用於在相互連線的不同表中查詢匹配的記錄。一個更高階的連線形式稱為自連線。這種連線是指一個表被連線到它自己的一個欄位，或在不同的紀錄中由重複資料的組合欄位。資料庫中有三種不同型別的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字型別用於描述庫表示什麼以及在資料庫中如何與其它的庫建立關係。
第五章
系統總體規劃
系統功能
1． 可以進行文字操作；
2． 新增一個數據庫專案；
3． 刪除一個數據庫專案；
4． 修改一個數據庫專案；
5． 查詢資訊；
6． 察看課程表。
流程圖
第六章
系統具體實現
使用者介面的實現
6．1．1 封面
具體實現見 圖_6.1.1
圖_6.1.1
6．1．2 主介面
具體實現見.圖_6.1.2
圖_6.1.2
主介面包含三方面的內容,以下一一介紹:
1.記錄操作
開啟記錄操作,進入記錄操作選單項分別由檔案、檢視及幫助三個選項。
1.1檔案包括：新建
開啟
開啟寫字板---------如圖<6.1.4> (源程式見附錄清單6.1 )
儲存
另存
列印
退出
<圖6.1.4>
1.2檢視包括：狀態條
工具欄
背景顏色
顯示
課程表---------如圖<6.1.5>
文字編輯器
網路瀏覽
<圖6.1.5>
1. 3幫助包括：內容
關於幫助
2．記錄操作
開啟記錄操作進入記錄操作選項頁分別由瀏覽記錄、查詢等三個選項組成。
2．1瀏覽記錄：
學生學籍庫
課程庫
成績庫
2．2查詢記錄
2．3備註
3．系統資訊
開啟系統資訊進入選項頁分別由系統資訊、資訊採集等組成。
6．1．3 幫助系統
具體實現見6.1.3
圖6.1.3
資料庫的實現
6．2．1學籍資料庫
學籍資料庫裡儲存了學生的檔案包括：學號、姓名、年齡等 表如<6.2.6>
列名（中文）列名（英文）資料型別寬度小數點位數是否為空姓名Name Date8No學號CodeInteger6No性別SexDate2No年齡AgeDate6No民族NationDate6No政治面貌...家庭住址AddressDate10No備註RecordDate15No 表<6.2.6>
學籍模組：
該模組主要完成學生基本資訊的錄入、刪除 、更新等功能。在此模組中定義了八個域名來進行學生的資訊儲存。如果使用者修改某一紀錄中的某一項，可單新增按鈕進行學生記錄的編輯，此視窗使用資料視窗的FREEDOM風格（典型的錄入介面）。該種風格特點是列標題緊挨著資料列在此視窗還可以增加新學生紀錄。
6．2．2成績資料庫
成績資料庫裡儲存了學生的成績包括：學號、成績、等如表<6.2.7 >
列名（中文）列名（英文）資料型別寬度小數點位數是否為空姓名Name Date8No學號CodeInteger6No成績ScoreDate10No備註RecordDate15No 表<6.2.7>
成績模組：
該模組主要完成學生成績的基本資訊的錄入、刪除 、更新等功能。在此模組中定義了四個域名來進行學生的資訊儲存。
6．2．3課程資料庫
課程資料庫利儲存了課程的資訊：課程名、作者、出版社等如表<6.2.8>
列名（中文）列名（英文）資料型別寬度小數點位數是否為空課程IDCourseDate8No課程名NameDate15No出版社PublisherDate20No作者ScoreDate18No備註RecordDate15No 表<6.2.8>
課程模組：
該模組主要完成儲存課程的所有資訊及錄入、刪除 、更新等功能
與VB的連線
Visual Basic提供了與底層資料庫系統緊密的連線。Visual Basic 支援不同的關係資料庫管理系統並充分發揮每一個數據庫的特長。生成獨立應用或脫離伺服器執行的服務以上的應用，Visual Basic連線資料庫的方式有兩種：
·通過使用Visual Basic的 DATA控制元件。
·通過使用由Visual Basic提供的專用的直接與資料庫相連的介面
第七章
結束語
經過三個多月的設計和開發，中國小檔案管理系統基本開發完畢。其功能基本符合使用者需求，能夠完成學生學籍的儲存和成績的查詢以及各類相關報表的列印。並提供部分系統維護功能,使使用者方便進行資料備份和恢復、資料刪除。，對於資料的一致性的問題也通過程式進行了有效的解決。
但是由於畢業設計時間較短，所以該系統還有許多不盡如人意的地方，比如聯機文件比較少，使用者介面不夠美觀，出錯處理不夠等多方面問題。這些都有待進一步改善。
附錄程式清單及註釋
程式清單6.1
Option Explicit
Dim FileName As String '檔名，用於開啟、儲存檔案
Dim UndoString As String '用於 Undo 操作
Dim UndoNew As String '用於 Undo 操作
Private Sub ImgUndoDisable()
'禁用“Undo"按鈕
UndoString = ""
UndoNew = ""
led = False
ure = Images("Undo")ure
End Sub
Private Sub ImgUndoEnable()
'有效“Undo"按鈕
led = True
ure = Images("Undo")ure
End Sub
Private Sub Check_ImgPaste()
'設定貼上按鈕
If Len(ext) > 0 Then
led = True
ure = Images("Paste")ure
Else
led = False
ure = Images("Paste")ure
End If
End Sub
Private Sub Check_ImgCutCopy()
'設定剪下、複製按鈕
If ength > 0 Then
led = True
ure = Images("Cut")ure
led = True
ure = Images("Copy")ure
Else
led = False
ure = Images("Cut")ure
led = False
ure = Images("Copy")ure
End If
End Sub
Private Sub BackColor_Click()
Color
Color = r
End Sub
Private Sub Box_Click()
'顯停工具欄
If ked Then
'將停顯工具欄
ked = False
ble = False
Else
ked = True
ble = True
End If
Form_Resize '重新調整控制元件位置
End Sub
Private Sub Close_Click()
Dim FileNum As Integer
If Len(FileName) > 0 Then
'有輸入檔名
FileNum = FreeFile() '獲得可用檔案號
Open FileName For Output As FileNum '開啟輸出檔案
'如果無指定檔案，則建立新檔案
Print #FileNum, '輸出文字
Close FileNum '關閉檔案
End If
= ""
FileName = ""
End Sub
Private Sub ComboSize_Click()
Size = Val()
End Sub
Private Sub ComboFont_Click()
Name =
End Sub
Private Sub Copy_Click()
ext ext '複製文字到剪裁板
End Sub
Private Sub Cut_Click()
ext ext '複製文字到剪裁板
ext = "" '清選擇的文字
End Sub
Private Sub DataTime_Click()
ext = Now
End Sub
Private Sub Delete_Click()
ext = "" '清選擇的文字
End Sub
Private Sub Edit_Click()
'當程式顯示“編輯"子選單前，觸發該程式
If ength > 0 Then
'文字框中有選中的文字
led = True
led = True
led = True
Else
led = False
led = False
led = False
End If
If Len(ext()) > 0 Then
'剪裁板中有文字資料
led = True
Else
'沒有可貼上的文字
led = False
End If
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub FindText_KeyPress(KeyAscii As Integer)
Dim BeginPos As Long
If KeyAscii = 13 Then
BeginPos = InStr(1, , , vbTextCompare)
If BeginPos > 0 Then
tart = BeginPos - 1
ength = Len()
End If
End If
End Sub
Private Sub Fontcolor_Click()
Color
Color = r
End Sub
Private Sub Form_Load()
Dim i As Integer
'載入影象
ure = Images("New")ure
ure = Images("Open")ure
ure = Images("Save")ure
ure = Images("Undo")ure
Check_ImgPaste
Check_ImgCutCopy
'載入系統字型
For i = 0 To Count - 1
tem s(i)
Next i
End Sub
Private Sub Form_Resize()
Dim TextTop As Long
'修改工具條大小
= eTop
?????????????????????????????
??????????????????????????????????
???????????
????????????????????????????
??????????
????????????????????????????????????????????
????????
???????????????????
??????????
?????????????????????????????????????
???????????????? eLeft
h = eWidth
If eHeight > ht Then
ht = eHeight - TextTop
Else
ht = 0
End If
End Sub
Private Sub ImgCopy_Click()
Copy_Click '複製
Check_ImgPaste
Check_ImgCutCopy
End Sub
Private Sub ImgCopy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'“按下"按鈕
If Button = 1 Then
ure = Images("Copy")ure
End If
End Sub
Private Sub ImgCopy_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "將選擇的文字複製到剪裁板"
'判斷滑鼠位置,顯示不同影象
If Button = 1 And (X > 0 And X < h And Y > 0 And Y < ht) Then
ure = Images("Copy")ure
ElseIf Button = 1 Then
ure = Images("Copy")ure
End If
End Sub
Private Sub ImgCopy_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起"按鈕
ure = Images("Copy")ure
End If
End Sub
Private Sub ImgCut_Click()
'If ength > 0 Then
Cut_Click '剪下
Check_ImgPaste
Check_ImgCutCopy
'End If
End Sub
Private Sub ImgCut_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下"按鈕
ure = Images("Cut")ure
End If
End Sub
Private Sub ImgCut_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "剪下選擇的文字到剪裁板"
'判斷滑鼠位置,顯示不同影象
If Button = 1 And (X > 0 And X < h And Y > 0 And Y < ht) Then
ure = Images("Cut")ure
ElseIf Button = 1 Then
ure = Images("Cut")ure
End If
End Sub
Private Sub ImgCut_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起"按鈕
ure = Images("Cut")ure
End If
End Sub
Private Sub ImgNew_Click()
New_Click
End Sub
Private Sub ImgNew_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下"按鈕
ure = Images("New")ure
End If
End Sub
Private Sub ImgNew_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "建立新檔案" '修改提示資訊
'判斷滑鼠位置,顯示不同影象
If Button = 1 And (X > 0 And X < h And Y > 0 And Y < ht) Then
ure = Images("New")ure
ElseIf Button = 1 Then
ure = Images("New")ure
End If
End Sub
Private Sub ImgNew_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起"按鈕
ure = Images("New")ure
End If
End Sub
Private Sub ImgOpen_Click()
Open_Click
End Sub
Private Sub ImgOpen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'“按下"按鈕
If Button = 1 Then
ure = Images("Open")ure
End If
End Sub
Private Sub ImgOpen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "選擇檔名並開啟檔案"
'判斷滑鼠位置,顯示不同影象
If Button = 1 And (X > 0 And X < h And Y > 0 And Y < ht) Then
ure = Images("Open")ure
ElseIf Button = 1 Then
ure = Images("Open")ure
End If
End Sub
Private Sub ImgOpen_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起"按鈕
ure = Images("Open")ure
End If
End Sub
Private 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
'“按下"按鈕
ure = Images("Paste")ure
End If
End Sub
Private Sub ImgPaste_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "貼上文字到當前游標位置"
'判斷滑鼠位置,顯示不同影象
If Button = 1 And (X > 0 And X < h And Y > 0 And Y < ht) Then
ure = Images("Paste")ure
ElseIf Button = 1 Then
ure = Images("Paste")ure
End If
End Sub
Private Sub ImgPaste_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
???????????
??????????????????????????????????????????????????????????????
??????????
???????
???????????????????????????
?????????????????????????????????
????
?????????????????????????????
?????????
?????????????????????????????????????
????????????????eName For Output As FileNum '開啟輸出檔案
'如果無指定檔案，則建立新檔案
Print #FileNum, '輸出文字
Close FileNum '關閉檔案
ImgUndoDisable
Else
MsgBox "不能儲存無名檔案" + Chr(13) + Chr(10) + "請選擇“檔案"選單的“儲存"項", , "警告"
End If
End Sub
Private Sub ImgSave_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ure = Images("Save")ure
End If
End Sub
Private Sub ImgSave_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "儲存當前檔案"
'判斷滑鼠位置,顯示不同影象
If Button = 1 And (X > 0 And X < h And Y > 0 And Y < ht) Then
ure = Images("Save")ure
ElseIf Button = 1 Then
ure = Images("Save")ure
End If
End Sub
Private Sub ImgSave_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起"按鈕
ure = Images("Save")ure
End If
End Sub
Private Sub ImgUndo_Click()
= UndoString
End Sub
Private Sub ImgUndo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下"按鈕
ure = Images("Undo")ure
End If
End Sub
Private Sub ImgUndo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "取消當前操作"
'判斷滑鼠位置,顯示不同影象
If Button = 1 And (X > 0 And X < h And Y > 0 And Y < ht) Then
ure = Images("Undo")ure
ElseIf Button = 1 Then
ure = Images("Undo")ure
End If
End Sub
Private Sub ImgUndo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起"按鈕
ure = Images("Undo")ure
End If
End Sub
Private Sub New_Click()
FileName = ""
Text1 = ""
ImgUndoDisable
End Sub
Private Sub Open_Click()
Dim FileNum As Integer
Dim buffer As String
Dim buffer1 As String
Dim FileSize As Long
Dim MaxLen As Long
MaxLen = 32768 '檔案最大長度
Open '顯示"開啟檔案"對話方塊
If Len(Name) > 0 Then
'有輸入檔名
FileName = Name '儲存檔名
FileSize = FileLen(FileName) '獲得檔案長度
If FileSize > MaxLen Then
'檔案超長
MsgBox "該檔案過大，只能顯示部分文字", , "警告"
Exit Sub
End If
ePointer = 11 '設定滑鼠為沙漏
FileNum = FreeFile() '獲得可用檔案號
Open FileName For Input As FileNum '以順序輸入方式開啟檔案
Do While Not EOF(FileNum) And Len(buffer) < MaxLen '讀必須文字小於 32K
Line Input #FileNum, buffer1 '讀一行文字
buffer = buffer + buffer1 + Chr(13) + Chr(10) '加入回車換行符
Loop '迴圈體
Close FileNum '關閉檔案
ImgUndoDisable '取消 Undo 功能
= buffer '顯示文字
UndoNew = buffer '儲存文字
buffer = "" '釋放記憶體
buffer1 = ""
ePointer = 0 '恢復滑鼠指標
ion = "記事本 - " + FileName '修改標題顯示
End If
End Sub
Private Sub Paste_Click()
ext = ext
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "工具欄"
End Sub
Private Sub Picture1_Resize()
If h > Then
h = eWidth -
End If
End Sub
Private Sub Save_Click()
Dim FileNum As Integer '檔案控制代碼號
Save '顯示儲存對話方塊
If Len(Name) > 0 Then
'有輸入檔名
FileName = Name '儲存檔名
FileNum = FreeFile() '獲得可用檔案號
Open FileName For Output As FileNum '開啟輸出檔案
'如果無指定檔案，則建立新檔案
Print #FileNum, '輸出文字
Close FileNum '關閉檔案
ion = "記事本 - " + FileName '修改標題顯示
ImgUndoDisable
End If
End Sub
Private Sub Text1_Change()
If Not led Then
'使“Undo"按鈕可用
ImgUndoEnable
End If
UndoString = UndoNew
UndoNew = Text1
End Sub
Private Sub Text1_Click()
Check_ImgCutCopy
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Check_ImgCutCopy
End sub
三優範文網