———————————附錄節目單及註意事項
程序清單6.1
選項顯式
模糊Fi
LeName As String '文件名，用於打開和保存文件。
“Dim UndoString As String”用於撤消操作。
“Dim UndoNew As String”用於撤消操作。
私有Sub ImgUndoDisable()
禁用“撤銷”按鈕。
UndoString = " "
UndoNew = " "
伊姆岡多。啟用=假
伊姆岡多。圖片= ImageDisable。ListImages(“撤銷”)。畫
末端接頭
私有Sub ImgUndoEnable()
有效的“撤消”按鈕
伊姆岡多。啟用=真
伊姆岡多。圖片= ImageUp。ListImages(“撤銷”)。畫
末端接頭
私有子檢查_ImgPaste()
設置粘貼按鈕
If Len(剪貼板。GetText)& gt；那麽0
ImgPaste。啟用=真
ImgPaste。圖片= ImageUp。ListImages(“粘貼”)。畫
其他
ImgPaste。啟用=假
ImgPaste。圖片= ImageDisable。ListImages(“粘貼”)。畫
如果…就會結束
末端接頭
Private Sub Check_ImgCutCopy()
設置剪切和復制按鈕
如果Text1。SelLength & gt那麽0
ImgCut。啟用=真
ImgCut。圖片= ImageUp。ListImages(“剪切”)。畫
ImgCopy。啟用=真
ImgCopy。圖片= ImageUp。ListImages(“副本”)。畫
其他
ImgCut。啟用=假
ImgCut。圖片= ImageDisable。ListImages(“剪切”)。畫
ImgCopy。啟用=假
ImgCopy。圖片= ImageDisable。ListImages(“副本”)。畫
如果…就會結束
末端接頭
私有Sub BackColor_Click()
CommonDialog1。顯示顏色
Text1。BackColor = CommonDialog1。顏色
末端接頭
私有子框_Click()
顯示停止工具欄
If框。檢查過了
工具欄將被停止。
盒子。選中=假
CoolBar1。可見=假
其他
盒子。選中=真
CoolBar1。Visible = True[NextPage]
如果…就會結束
' Form_Resize '重定位控件。
末端接頭
私有Sub Close_Click()
Dim FileNum為整數
If Len(文件名)>那麽0
有壹個輸入文件名。
FileNum = FreeFile()'來獲取可用的文件號。
打開文件名作為FileNum輸出'打開輸出文件。
如果沒有指定文件，則創建壹個新文件。
Print #FileNum，Text1。“文本”輸出文本。
關閉文件。
如果…就會結束
Text1。文本= " "
文件名= " "
末端接頭
Private Sub ComboSize_Click()
Text1。FontSize = Val(ComboSize。正文)
末端接頭
私有子組合功能_Click()
Text1。FontName = ComboFont。文本
末端接頭
私有子副本_Click()
剪貼板。settexttext1。' seltext '將文本復制到剪切板。
末端接頭
私有子Cut_Click()
剪貼板。settexttext1。' seltext '將文本復制到剪切板。
Text1。SelText = " " '清除所選文本。
末端接頭
私有子數據Time_Click()
Text1。SelText =現在
末端接頭
私有子Delete_Click()
Text1。SelText = " " '清除所選文本。
末端接頭
私有子編輯_單擊()
在顯示編輯子菜單之前觸發程序。
如果Text1。SelLength & gt那麽0
文本框中有選定的文本。
停。啟用=真
收到。啟用=真
刪除。啟用=真
其他
停。啟用=假
收到。啟用=假
刪除。啟用=假
如果…就會結束
If Len(剪貼板。GetText())& gt；那麽0
剪切板中有文本數據。
漿糊。啟用=真
其他
沒有要粘貼的文本。
漿糊。啟用=假
如果…就會結束
末端接頭
私有子退出_Click()
卸下我
末端接頭
private Sub find text _ KeyPress(KeyAscii為整數)
Dim BeginPos As Long
如果KeyAscii = 13，則
BeginPos = InStr(1，Text1。文本，查找文本。文本，vbTextCompare)
如果BeginPos & gt那麽0
Text1。SelStart = BeginPos - 1
Text1。SelLength = Len(FindText。正文)
如果…就會結束
如果…就會結束
末端接頭
Private Sub Fontcolor_Click()
CommonDialog1。顯示顏色
Text1。ForeColor = CommonDialog1。顏色
末端接頭
私有子窗體_Load()
將I標註為整數
加載圖像
ImgNew。圖片= ImageUp。ListImages(“新”)。畫
ImgOpen。圖片= ImageUp。ListImages(“打開”)。畫
ImgSave。圖片= ImageUp。ListImages(“保存”)。畫
伊姆岡多。圖片= ImageDisable。ListImages(“撤銷”)。畫
檢查_粘貼
Check_ImgCutCopy
加載系統字體
對於i = 0進行篩選。FontCount - 1
ComboFont。添加項目屏幕。字體(壹)
接下來我
末端接頭
私有子窗體_Resize()
Dim TextTop As Long
修改工具欄大小
CoolBar1。Top =我。秤頂
我。向左縮放
Text1。寬度=我。刻度寬度
如果我。ScaleHeight & gtCoolBar1。那麽身高呢
Text1。身高=我。ScaleHeight - TextTop
其他
Text1。高度= 0
如果…就會結束
末端接頭
私有Sub ImgCopy_Click()
復制_點擊'復制
檢查_粘貼
Check_ImgCutCopy
末端接頭
private Sub img copy _ MouseDown(Button為整數，Shift為整數，
x表示單身，Y表示單身)
“按”按鈕
如果Button = 1，則
ImgCopy。圖片= ImageDown。ListImages(“副本”)。畫
如果…就會結束
末端接頭
private Sub img copy _ MouseMove(Button為整數，Shift為整數，
x表示單身，Y表示單身)
Label1 = "將所選文本復制到剪貼板"
判斷鼠標位置並顯示不同的圖像。
如果Button = 1且(X & gt0和X & ltImgNew。寬度和Y & gt0和Y & lt
ImgNew。高度)然後
ImgCopy。圖片= ImageDown。ListImages(“副本”)。圖片[下壹頁]
ElseIf Button = 1然後
ImgCopy。圖片= ImageUp。ListImages(“副本”)。畫
如果…就會結束
末端接頭
private Sub img copy _ MouseUp(Button為整數，Shift為整數，X
單身，Y單身)
如果Button = 1，則
“提升”按鈕
ImgCopy。圖片= ImageUp。ListImages(“副本”)。畫
如果…就會結束
末端接頭
Private Sub ImgCut_Click()
如果Text1。SelLength & gt那麽0
剪切_點擊“剪切”
檢查_粘貼
Check_ImgCutCopy
如果…就會結束
末端接頭
private Sub img cut _ MouseDown(Button為整數，Shift為整數，
x表示單身，Y表示單身)
如果Button = 1，則
“按”按鈕
ImgCut。圖片= ImageDown。ListImages(“剪切”)。畫
如果…就會結束
末端接頭
private Sub img cut _ MouseMove(Button為整數，Shift為整數，
x表示單身，Y表示單身)
Label1 = "將所選文本剪切到剪切板"
判斷鼠標位置並顯示不同的圖像。
如果Button = 1且(X & gt0和X & ltImgNew。寬度和Y & gt0和Y & lt
ImgNew。高度)然後
ImgCut。圖片= ImageDown。ListImages(“剪切”)。畫
ElseIf Button = 1然後
ImgCut。圖片= ImageUp。ListImages(“剪切”)。畫
如果…就會結束
末端接頭
private Sub img cut _ MouseUp(Button為整數，Shift為整數，X
單身，Y單身)
如果Button = 1，則
“提升”按鈕
ImgCut。圖片= ImageUp。ListImages(“剪切”)。畫
如果…就會結束
末端接頭
私有Sub ImgNew_Click()
新建_點擊
末端接頭
private Sub img new _ MouseDown(Button為整數，Shift為整數，
x表示單身，Y表示單身)
如果Button = 1，則
“按”按鈕
ImgNew。圖片= ImageDown。ListImages(“新”)。畫
如果…就會結束
末端接頭
private Sub img new _ MouseMove(Button為整數，Shift為整數，
x表示單身，Y表示單身)
Label1 = "新建文件"'修改提示信息。
判斷鼠標位置並顯示不同的圖像。
如果Button = 1且(X & gt0和X & ltImgNew。寬度和Y & gt0和Y & lt
ImgNew。高度)然後
ImgNew。圖片= ImageDown。ListImages(“新”)。畫
ElseIf Button = 1然後
ImgNew。圖片= ImageUp。ListImages(“新”)。畫
如果…就會結束
末端接頭
private Sub ImgNew _ MouseUp(Button為整數，Shift為整數
eger，X表示單身，Y表示單身)
如果Button = 1，則
“提升”按鈕
ImgNew。圖片= ImageUp。ListImages(“新”)。畫
如果…就會結束
末端接頭
私有Sub ImgOpen_Click()
打開_點擊
末端接頭
private Sub imgo pen _ MouseDown(Button為整數，Shift為整數，
x表示單身，Y表示單身)
“按”按鈕
如果Button = 1，則
ImgOpen。圖片= ImageDown。ListImages(“打開”)。畫
如果…就會結束
末端接頭
private Sub imgo pen _ MouseMove(Button為整數，Shift為整數，
x表示單身，Y表示單身)
Label1 = "選擇壹個文件名並打開它"
判斷鼠標位置並顯示不同的圖像。
如果Button = 1且(X & gt0和X & ltImgNew。寬度和Y & gt0和Y & lt
ImgNew。高度)然後
ImgOpen。圖片= ImageDown。ListImages(“打開”)。畫
ElseIf Button = 1然後
ImgOpen。圖片= ImageUp。ListImages(“打開”)。畫
如果…就會結束
末端接頭
private Sub imgo pen _ MouseUp(Button為整數，Shift為整數，X
單身，Y單身)
如果Button = 1，則
“提升”按鈕
ImgOpen。圖片= ImageUp。ListImages(“打開”)。畫
如果…就會結束
末端接頭
Private Sub ImgPaste_Click()
粘貼_單擊“粘貼”
末端接頭
private Sub img paste _ MouseDown(Button為整數，Shift為
整數，X表示單值，Y表示單值)
如果Button = 1，則
“按”按鈕
ImgPaste。圖片= ImageDown。ListImages(“粘貼”)。圖片[下壹頁]
如果…就會結束
末端接頭
private Sub img paste _ MouseMove(Button為整數，Shift為
整數，X表示單值，Y表示單值)
Label1 = "將文本粘貼到當前光標位置"
判斷鼠標位置並顯示不同的圖像。
如果Button = 1且(X & gt0和X & ltImgNew。寬度和Y & gt0和Y & lt
ImgNew。高度)然後
ImgPaste。圖片= ImageDown。ListImages(“粘貼”)。畫
ElseIf Button = 1然後
ImgPaste。圖片= ImageUp。ListImages(“粘貼”)。畫
如果…就會結束
末端接頭
private Sub img paste _ MouseUp(Button為整數，Shift為整數，
x表示單身，Y表示單身)
如果Button = 1，則
“將輸出命名為FileNum”打開輸出文件。
如果沒有指定文件，則創建壹個新文件。
Print #FileNum，Text1。“文本”輸出文本。
關閉文件。
ImgUndoDisable
其他
MsgBox“無法保存未知文件”+Chr(13)+Chr(10)+“請選擇文件菜單。
保存“項目”，“警告”
如果…就會結束
末端接頭
private Sub img save _ MouseDown(Button為整數，Shift為整數，
x表示單身，Y表示單身)
如果Button = 1，則
ImgSave。圖片= ImageDown。ListImages(“保存”)。畫
如果…就會結束
末端接頭
private Sub img save _ MouseMove(Button為整數，Shift為整數，
x表示單身，Y表示單身)
Label1 = "保存當前文件"
判斷鼠標位置並顯示不同的圖像。
如果Button = 1且(X & gt0和X & ltImgNew。寬度和Y & gt0和Y & lt
ImgNew。高度)然後
ImgSave。圖片= ImageDown。ListImages(“保存”)。畫
ElseIf Button = 1然後
ImgSave。圖片= ImageUp。ListImages(“保存”)。畫
如果…就會結束
private Sub ImgUndo _ MouseMove(Button為整數，Shift為整數，
x表示單身，Y表示單身)
Label1 = "取消當前操作"
判斷鼠標位置並顯示不同的圖像。
如果Button = 1且(X & gt0和X & ltImgNew。寬度和Y & gt0和Y & lt
ImgNew。高度)然後
伊姆岡多。圖片= ImageDown。ListImages(“撤銷”)。畫
ElseIf Button = 1然後
伊姆岡多。圖片= ImageUp。ListImages(“撤銷”)。畫
如果…就會結束
末端接頭
private Sub ImgUndo _ MouseUp(Button為整數，Shift為整數，X
單身，Y單身)
如果Button = 1，則
“提升”按鈕
伊姆岡多。圖片= ImageUp。ListImages(“撤銷”)。畫
如果…就會結束
末端接頭
Private Sub New_Click()
文件名= " "
Text1 = " "
ImgUndoDisable
末端接頭
私有子Open_Click()
Dim FileNum為整數
將緩沖區調成字符串
Dim buffer1作為字符串
Dim文件大小為Long
Dim MaxLen As Long
MaxLen = 32768 '最大文件長度
CommonDialog1。顯示“打開文件”對話框。
If Len(CommonDialog1。文件名)>；那麽0
有壹個輸入文件名。
Filename =公共對話框1。文件名保存文件名。
FileSize = FileLen(FileName)'來獲取文件長度。
如果文件大小& gtMaxLen Then[NextPage]
文件太長。
MsgBox“此文件太大，只能顯示部分文本”，“警告”
出口接頭
如果…就會結束
屏幕。mouseporter = 11 '將鼠標設置為沙漏。
FileNum = FreeFile()'來獲取可用的文件號。
“以FileNum格式打開輸入文件名”以順序輸入模式打開文件。
Do While Not EOF(FileNum)和Len(buffer)& lt；讀取所需的“MaxLen”文本少於
32K
行輸入# filenum，buffer 1 '讀取壹行文本。
buffer = buffer+buffer 1+CHR(13)+CHR(10)'添加回車換行符。
“循環”循環體
關閉文件。
“ImgUndoDisable”取消撤消功能。
Text1。Text = buffer '顯示文本。
' UndoNew = buffer '保存文本。
Buffer = " " '釋放內存。
buffer1 = " "
屏幕。' MousePointer = 0 '恢復鼠標指針。
我。Caption = "Notepad-"+FileName '修改標題顯示。
如果…就會結束
末端接頭
私有子粘貼_點擊()
Text1。SelText =剪貼板。GetText
末端接頭
私有子圖片1_MouseMove(Button為整數，Shift為
整數，X表示單值，Y表示單值)
Label1 = "工具欄"
末端接頭
私有子圖片1_Resize()
如果圖片1。寬度& gtLabel1。然後向左
Label1。寬度=圖片1。ScaleWidth - Label1左邊的
如果…就會結束
末端接頭
私有Sub Save_Click()
“Dim FileNum As Integer”文件句柄號。
CommonDialog1。“顯示保存”顯示保存對話框。
If Len(CommonDialog1。文件名)>；那麽0
有壹個輸入文件名。
Filename =公共對話框1。文件名保存文件名。
FileNum = FreeFile()'來獲取可用的文件號。
打開文件名作為FileNum輸出'打開輸出文件。
如果沒有指定文件，則創建壹個新文件。
Print #FileNum，Text1。“文本”輸出文本。
關閉文件。
我。Caption = "Notepad-"+FileName '修改標題顯示。
ImgUndoDisable
如果…就會結束
末端接頭
私有子文本1_Change()
如果不是ImgUndo。然後啟用
使“撤消”按鈕可用。
ImgUndoEnable
如果…就會結束
UndoString = UndoNew
UndoNew = Text1
末端接頭
私有子文本1_Click()
Check_ImgCutCopy
末端接頭
private Sub text 1 _ KeyUp(key code為整數，Shift為整數)
Check_ImgCutCopy
末端接頭
末端接頭
private Sub img save _ MouseUp(Button為整數，Shift為整數，X
單身，Y單身)
如果Button = 1，則
“提升”按鈕
ImgSave。圖片= ImageUp。ListImages(“保存”)。畫
如果…就會結束
末端接頭
Private Sub ImgUndo_Click()
Text1。Text = UndoString
末端接頭
private Sub ImgUndo _ MouseDown(Button為整數，Shift為整數，
x表示單身，Y表示單身)
如果Button = 1，則
“按”按鈕
伊姆岡多。圖片= ImageDown。ListImages(“撤銷”)。畫
如果…就會結束
末端接頭