VB简易记事本实现代码

页面导航:首页 > 软件编程 > vb > VB简易记事本实现代码

VB简易记事本实现代码

来源:互联网 作者:脚本宝典 时间:2015-07-28 13:11 【

事件实现代码: 复制代码 代码如下: 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 = CommonDialo

事件实现代码: 

复制代码代码如下:


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控件! 
属性代码: 

复制代码代码如下:


Begin VB.Menu mFile 
Caption = "文件" 
Begin VB.Menu mNew 
Caption = "新建" 
End 
Begin VB.Menu mOpen 
Caption = "打开" 
End 
Begin VB.Menu mSave 
Caption = "保存" 
End 
Begin VB.Menu mNewSave 
Caption = "另存为" 
End 
Begin VB.Menu mQuit 
Caption = "退出" 
Shortcut = ^E 
End 
End 


Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <