Size=FileLen(FileName)'获得文件长度
IfFileSizeMaxLenThen
'文件超长
MsgBox该文件过大,只能显示部分文本,,警告
ExitSub
EndIf
Screen.MousePointer=11'设置鼠标为沙漏
FileNum=FreeFile()'获得可用文件号
OpenFileNameForInputAsFileNum'以顺序输入方式打开文件
DoWhileNotEOF(FileNum)AndLen(buffer)MaxLen'读必须文本小于32K
LineInput#FileNum,buffer1'读一行文字
buffer=buffer+buffer1+Chr(13)+Chr(10)'加入回车换行符
Loop'循环体
CloseFileNum'关闭文件
ImgUndoDisable'取消Undo功能
Text1.Text=buffer'显示文本
UndoNew=buffer'保存文本
buffer='释放内存
buffer1=
Screen.MousePointer=0'恢复鼠标指针
Me.Caption=记事本-+FileName'修改标题显示
EndIf
EndSub
PrivateSubPaste_Click()
Text1.SelText=Clipboard.GetText
EndSub
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1=工具栏
EndSub
PrivateSubPicture1_Resize()
IfPicture1.WidthLabel1.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
上一篇:
vb学生档案管理系统+论文(论文和程序)
下一篇:
致享和威驰哪个好点?冲着安全和空间 推荐致享