VB语言设计厉害的进

来源：百度知道编辑：UC知道时间：2024/05/31 21:54:17

请帮忙编写下代码，要考试了，类似于记事本的小程序。具体格式看下面
菜单编辑器
文件编辑格式帮助
新建复制字体关于（随便弄）
打开粘贴字号
保存删除
另存为
退出

请用richtextbox做文本框，其中字体只要“黑体”和“宋体”，字号三个就行

Dim a As Integer

Private Sub 保存_Click()

Open "c:\test.txt" For Output As #1

Print #1, RichTextBox1.Text

Close #1

End Sub

Private Sub 打开_Click()

on error goto a

CommonDialog1.Filter = "文本文件(*.txt)|*.txt"

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As #1

Line Input #1, s1

RichTextBox1.Text = s1

Close #1

End Sub

Private Sub 复制_Click()

SendKeys "^c"

End Sub

Private Sub 关于_Click()

RichTextBox1.Text = "本软件是爱好公司制作，谢谢使用"

End Sub

Private Sub 黑体_Click()&nb