学生档案管理系统

buffer = buffer + buffer1 + Chr(13) + Chr(10) '加入回车换行符

Loop '循环体

Close FileNum '关闭文件

ImgUndoDisable '取消 Undo 功能

Text1.Text = buffer '显示文本

UndoNew = buffer '保存文本

buffer = "" '释放内存

buffer1 = ""

Screen.MousePointer = 0 '恢复鼠标指针

Me.Caption = "记事本 - " + FileName '修改标题显示

End If

End Sub

Private Sub Paste_Click()

Text1.SelText = Clipboard.GetText

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 Picture1.Width > Label1.Left Then

Label1.Width = Picture1.ScaleWidth - Label1.Left

End If

End Sub

Private Sub Save_Click()

Dim FileNum As Integer '文件句柄号

CommonDialog1.ShowSave '显示保存对话框

If Len(CommonDialog1.FileName) > 0 Then

'有输入文件名

FileName = CommonDialog1.FileName '保存文件名

FileNum = FreeFile() '获得可用文件号

Open FileName For Output As FileNum '打开输出文件

'如果无指定文件，则创建新文件

Print #FileNum, Text1.Text '输出文本

Close FileNum '关闭文件

Me.Caption = "记事本 - " + FileName '修改标题显示

ImgUndoDisable

End If

End Sub

Private Sub Text1_Change()

If Not

ImgUndo.Enabled 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