VB简易记事本实现代码

日期:01-31  浏览:

事件实现代码:
复制代码 代码如下:

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

上一篇:VB实现鼠标绘图实例代码
下一篇:VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法

网友评论


点击图片更换


查看更多评论
 

推荐文章

·VB调用Word拼写检查功能实例
·VB XMLHTTP使用方法
·VB实现的倒计时类代码详解
·如何产生真正的随机函数?
·VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法
·VBA中连接SQLSERVER数据库例子
·关于MSCOMM控件的一些说明第1/2页
·VB6.0 支持鼠标滚轮教程