mgCut_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(X>0AndX0AndY
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(X>0AndX0AndY
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(X>0AndX0AndY
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(X>0AndX0AndY
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(X>0AndX0AndY
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'保存文件名
FileSize=FileLen(FileName)'获得文件长度
IfFileSize>MaxLenThen
'文件超长
MsgBox"该文件过大,只能显示部分文本",,"警告"
ExitSub
EndIf
Screen.MousePointer=11'设置鼠标为沙漏
FileNum=FreeFile()'获得可用文件号
OpenFileNameForInputAsFileNum'以顺序输入方式打开文件
DoWhileNotEOF(FileNum)AndLen(buffer)
Label1.LeftThen
Label1.Width=Picture1.ScaleWidth-Label1.Left
EndIf
EndSub
PrivateSubSave_Click()
DimFileNumAsInteger'文件句柄号
CommonDialog1.ShowSave'显示保存对话框
IfLen(CommonDialog1.FileName)>0Then
'有输入文件名
FileName=CommonDialog1.FileName'保存文件名
FileNum=FreeFile()'获得可用文件号
OpenFileNameForOutputAsFileNum'打开输出文件
'如果无指定文件,则创建新文件
Print#FileNum,Text1.Text'输出文本
CloseFileNum'关闭文件
Me.Caption="记事本-"+FileName'修改标题显示
ImgUndoDisable
EndIf
EndSub
PrivateSubText1_Change()
IfNotImgUndo.EnabledThen
'使"Undo"按钮可用
ImgUndoEnable
EndIf
UndoString=UndoNew
UndoNew=Text1
EndSub
PrivateSubText1_Click()
Check_ImgCutCopy
EndSub
PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
Check_ImgCutCopy
Endsub
主要参考文献
[1]VisualBasic6.0使用指南
作者:BobReselman,RichardPeasley,WaynePruchniak.
出版社:电子工业出版社
[2]中文版MicrosoftOffice97自学通
作者:NedSnell
出版社:机械工业出版社
[3]VisualBasic6.0中文版控件大全
作者:Microsoft
出版社;电子工业出版社
[4]中文Access200024学时教程
[5]管理信息系统
作者:王彤宇
出版社:中国水利水电出版社
[6]管理信息系统
作者:邱光谊
出版社:中国水利水电出版社
[7]数据库原理及设计
作者:陶宏才
出版社:清华大学出版
结束语
经过三个多月的设计和开发,中小学档案管理系统基本开发完毕。其功能基本符合用户需求
上一篇:VB学生成绩管理系统VC(论文含功能结构图、业务流程图、数据流图、数据字典、E-R图)(论文和程序)
下一篇:哈弗F7 VS名爵HS,谁更懂得年轻人的心?