VB簡(jiǎn)易記事本實(shí)現(xiàn)代碼

2020-01-31 16:31:29

字體：大中小

供稿：網(wǎng)友

事件實(shí)現(xiàn)代碼：

 
Private Sub mQuit_Click() 
Text1.Text = "" 
End 
End Sub 

Private Sub mNew_Click() 
Text1.Text = "" 
Form1.Caption = "未命名" 
End Sub 
Private Sub mopen_Click() 
CommonDialog1.ShowOpen 
Frame = CommonDialog1.FileName 
If fname <> "" Then 
Form1.Caption = fname 
Text1.Text = "" 
Open fname For Input As #1 
b = "" 
Do Until EOF(1) 
Line Input #1, nextline 
b = b & nextline & Chr(13) & Chr(10) 
Loop 
Close #1 
Text1.Text = b 
End If 
End Sub 
Private Sub mSave_Click() 
If Form1.Caption = "未命名" Or Form1.Caption = "" Then 
CommonDialog1.ShowSave 
fname = CommonDialog1.FileName 
Else 
fname = Form1.Caption 
End If 
If fname <> "" Then 
Form1.Caption = fname 
Open fname For Output As #1 
Print #1, Text1.Text 
Close #1 
End If 
End Sub 
Private Sub mNewSave_Click() 
CommonDialog1.ShowSave 
If fname <> "" Then 
Form1.Caption = fname 
Open fname For Output As #1 
Print #1, Text1.Text 
Close #1 
End If 
End Sub 

需要用CommonDialog控件！
屬性代碼：

復(fù)制代碼代碼如下:

 
Begin VB.Menu mFile 
Caption = "文件" 
Begin VB.Menu mNew 
Caption = "新建" 
End 
Begin VB.Menu mOpen 
Caption = "打開(kāi)" 
End 
Begin VB.Menu mSave 
Caption = "保存" 
End 
Begin VB.Menu mNewSave 
Caption = "另存為" 
End 
Begin VB.Menu mQuit 
Caption = "退出" 
Shortcut = ^E 
End 
End 