VB简易记事本实现代码_vb教程-查字典教程网
VB简易记事本实现代码
VB简易记事本实现代码
发布时间:2016-12-28 来源:查字典编辑
摘要:事件实现代码:复制代码代码如下:PrivateSubmQuit_Click()Text1.Text=""EndEndSubPrivateSu...

事件实现代码:

复制代码 代码如下:

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学习
    编程开发子分类