VB简易记事本实现代码

PrivateSubmQuit_Click()
Text1.Text=""
End
EndSub

PrivateSubmNew_Click()
Text1.Text=""
Form1.Caption="未命名"
EndSub
PrivateSubmopen_Click()
CommonDialog1.ShowOpen
Frame=CommonDialog1.FileName
Iffname<>""Then
Form1.Caption=fname
Text1.Text=""
OpenfnameForInputAs#1
b=""
DoUntilEOF(1)
LineInput#1,nextline
b=b&nextline&Chr(13)&Chr(10)
Loop
Close#1
Text1.Text=b
EndIf
EndSub
PrivateSubmSave_Click()
IfForm1.Caption="未命名"OrForm1.Caption=""Then
CommonDialog1.ShowSave
fname=CommonDialog1.FileName
Else
fname=Form1.Caption
EndIf
Iffname<>""Then
Form1.Caption=fname
OpenfnameForOutputAs#1
Print#1,Text1.Text
Close#1
EndIf
EndSub
PrivateSubmNewSave_Click()
CommonDialog1.ShowSave
Iffname<>""Then
Form1.Caption=fname
OpenfnameForOutputAs#1
Print#1,Text1.Text
Close#1
EndIf
EndSub