ImgPaste.Picture = ImageDown.ListImages(Paste).Picture
ElseIf Button = 1 Then
ImgPaste.Picture = ImageUp.ListImages(Paste).Picture
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, Text1.Text '输出文本
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
ImgSave.Picture = ImageDown.ListImages(Save).Picture
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 ImgNew.Width And Y 0 And Y ImgNew.Height) Then
ImgSave.Picture = ImageDown.ListImages(Save).Picture
ElseIf Button = 1 Then
ImgSave.Picture = ImageUp.ListImages(Save).Picture
End If
End 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).Picture
End If
End Sub
Private Sub ImgUndo_Click()
Text1.Text = UndoString
End Sub
Private Sub ImgUndo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgUndo.Picture = ImageDown.ListImages(Undo).Picture
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 ImgNew.Width And Y 0 And Y ImgNew.Height) Then
ImgUndo.Picture = ImageDown.ListImages(Undo).Picture
ElseIf Button = 1 Then
ImgUndo.Picture = ImageUp.ListImages(Undo).Picture
End If
End 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).Picture
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 '文件最大长度
CommonDialog1.ShowOpen '显示打开文件对话框
If Len(CommonDialog1.FileName) 0 Then
'有输入文件名
FileName = CommonDialog1.FileName '保存文件名
FileSize = FileLen(FileName) '获得文件长度
If FileSize MaxLen Then
'文件超长
MsgBox 该文件过大，只能显示部分文本, , 警告
Exit Sub
End If
Screen.MousePointer = 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 功能
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 Pi
VB+学生档案管理系统 (六)相关范文