eHeightCoolBar1.HeightThen
Text1.Height=Me.ScaleHeight-TextTop
Else
Text1.Height=0
EndIf
EndSub
PrivateSubImgCopy_Click()
Copy_Click'复制
Check_ImgPaste
Check_ImgCutCopy
EndSub
PrivateSubImgCopy_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'"按下"按钮
IfButton=1Then
ImgCopy.Picture=ImageDown.ListImages(Copy).Picture
EndIf
EndSub
PrivateSubImgCopy_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=将选择的文本复制到剪裁板
'判断鼠标位置,显示不同图像
IfButton=1And(X0AndXImgNew.WidthAndY0AndYImgNew.Height)Then
ImgCopy.Picture=ImageDown.ListImages(Copy).Picture
ElseIfButton=1Then
ImgCopy.Picture=ImageUp.ListImages(Copy).Picture
EndIf
EndSub
PrivateSubImgCopy_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"抬起"按钮
ImgCopy.Picture=ImageUp.ListImages(Copy).Picture
EndIf
EndSub
PrivateSubImgCut_Click()
'IfText1.SelLength0Then
Cut_Click'剪切
Check_ImgPaste
Check_ImgCutCopy
'EndIf
EndSub
PrivateSubImgCut_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"按下"按钮
ImgCut.Picture=ImageDown.ListImages(Cut).Picture
EndIf
EndSub
PrivateSubImgCut_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=剪切选择的文字到剪裁板
'判断鼠标位置,显示不同图像
IfButton=1And(X0AndXImgNew.WidthAndY0AndYImgNew.Height)Then
ImgCut.Picture=ImageDown.ListImages(Cut).Picture
ElseIfButton=1Then
ImgCut.Picture=ImageUp.ListImages(Cut).Picture
EndIf
EndSub
PrivateSubImgCut_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"抬起"按钮
ImgCut.Picture=ImageUp.ListImages(Cut).Picture
EndIf
EndSub
PrivateSubImgNew_Click()
New_Click
EndSub
PrivateSubImgNew_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"按下"按钮
ImgNew.Picture=ImageDown.ListImages(New).Picture
EndIf
EndSub
PrivateSubImgNew_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=创建新文件'修改提示信息
'判断鼠标位置,显示不同图像
IfButton=1And(X0AndXImgNew.WidthAndY0AndYImgNew.Height)Then
ImgNew.Picture=ImageDown.ListImages(New).Picture
ElseIfButton=1Then
ImgNew.Picture=ImageUp.ListImages(New).Picture
EndIf
EndSub
PrivateSubImgNew_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"抬起"按钮
ImgNew.Picture=ImageUp.ListImages(New).Picture
EndIf
EndSub
PrivateSubImgOpen_Click()
Open_Click
EndSub
PrivateSubImgOpen_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'"按下"按钮
IfButton=1Then
ImgOpen.Picture=ImageDown.ListImages(Open).Picture
EndIf
EndSub
PrivateSubImgOpen_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=选择文件名并打开文件
'判断鼠标位置,显示不同图像
IfButton=1And(X0AndXImgNew.WidthAndY0AndYImgNew.Height)Then
ImgOpen.Picture=ImageDown.ListImages(Open).Picture
ElseIfButton=1Then
ImgOpen.Picture=ImageUp.ListImages(Open).Picture
EndIf
EndSub
PrivateSubImgOpen_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"抬起"按钮
ImgOpen.Picture=ImageUp.ListImages(Open).Picture
EndIf
EndSub
PrivateSubImgPaste_Click()
Paste_Click'粘贴
EndSub
PrivateSubImgPaste_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"按下"按钮
ImgPaste.Picture=ImageDown.ListImages(Paste).Picture
EndIf
EndSub
PrivateSubImgPaste_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=粘贴文本到当前光标位置
'判断鼠标位置,显示不同图像
IfButton=1And(X0AndXImgNew.WidthAndY0AndYImgNew.Height)Then
ImgPaste.Picture=ImageDown.ListImages(Paste).Picture
ElseIfButton=1Then
ImgPaste.Picture=ImageUp.ListImages(Paste).Picture
EndIf
EndSub
PrivateSubImgPaste_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
eNameForOutputAsFileNum'打开输出文件
'如果无指定文件,则创建新文件
Print#FileNum,Text1.Text'输出文本
CloseFileNum'关闭文件
ImgUndoDisable
Else
MsgBox不能保存无名文件+Chr(13)+Chr(10)+请选择"文件"菜单的"保存"项,,警告
EndIf
EndSub
PrivateSubImgSave_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
ImgSave.Picture=ImageDown.ListImages(Save).Picture
EndIf
EndSub
PrivateSubImgSave_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=保存当前文件
'判断鼠标位置,显示不同图像
IfButton=1And(X0AndXImgNew.WidthAndY0AndYImgNew.Height)Then
ImgSave.Picture=ImageDown.ListImages(Save).Picture
ElseIfButton=1Then
ImgSave.Picture=ImageUp.ListImages(Save).Picture
EndIf
EndSub
PrivateSubImgSave_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"抬起"按钮
ImgSave.Picture=ImageUp.ListImages(Save).Picture
EndIf
EndSub
PrivateSubImgUndo_Click()
Text1.Text=UndoString
EndSub
PrivateSubImgUndo_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"按下"按钮
ImgUndo.Picture=ImageDown.ListImages(Undo).Picture
EndIf
EndSub
PrivateSubImgUndo_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=取消当前操作
'判断鼠标位置,显示不同图像
IfButton=1And(X0AndXImgNew.WidthAndY0AndYImgNew.Height)Then
ImgUndo.Picture=ImageDown.ListImages(Undo).Picture
ElseIfButton=1Then
ImgUndo.Picture=ImageUp.ListImages(Undo).Picture
EndIf
EndSub
PrivateSubImgUndo_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
'"抬起"按钮
ImgUndo.Picture=ImageUp.ListImages(Undo).Picture
EndIf
EndSub
PrivateSubNew_Click()
FileName=
Text1=
ImgUndoDisable
EndSub
PrivateSubOpen_Click()
DimFileNumAsInteger
DimbufferAsString
Dimbuffer1AsString
DimFileSizeAsLong
DimMaxLenAsLong
MaxLen=32768'文件最大长度
CommonDialog1.ShowOpen'显示打开文件对话框
IfLen(CommonDialog1.FileName)0Then
'有输入文件名
FileName=CommonDialog1.FileName'保存文件名
File
上一篇:
vb学生档案管理系统+论文(论文和程序)
下一篇:
计算机网络信息安全及防护策略研究