《VB程序设计》实验报告
专业：信息管理与信息系统
班级：1502班
学号：
姓名：
日期：2016年12月20日
一、实验题目：记事本程序的设计
二、实验目的
1、掌握菜单编辑器的使用方法。

2、掌握菜单事件的编程方法。

3、初步掌握多窗体程序设计方法。

三、实验内容与步骤
1、实验内容：设计一个记事本程序。

2、界面设计（贴出对象属性表和界面设计图）。

①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。

对象窗体属性设置
对象名属性值
FrmPad Caption “记事本”
Text1 MultiLine True ScrollBars 2-Vertical Text 清空
②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜
单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。

③根据下表设置菜单。

菜单设置
菜单项标题菜单项名称快捷键其他属性编辑mnuEdit
···剪切mnuCut Ctrl+X
···复制mnuCopy Ctrl+C
···粘贴mnuPaste Ctrl+V
文本风格mnuStyle
···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut
···复制popCopy
···粘贴popPaste
设计好程序窗体如下图所示。

菜单编辑器
界面设计
3、编写程序代码。

Private Sub Form_Load()
Text1.FontSize = 16
Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False
End Sub
'剪切
Private Sub mnuCut_Click() Clipboard.Clear
Clipboard.SetText Text1.SelText Text1.SelText = ""
End Sub
'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub
'粘贴
Private Sub mnuPaste_Click()
Text1.SelText = Clipboard.GetText
End Sub
'粗体
Private Sub mnuBold_Click()
mnuBold.Checked = Not mnuBold.Checked
Text1.FontBold = mnuBold.Checked
End Sub
'斜体
Private Sub mnuItalic_Click()
mnuItalic.Checked = Not mnuItalic.Checked
Text1.FontItalic = mnuItalic.Checked
End Sub
'弹出菜单
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu popMenu End If
End Sub
Private Sub popCopy_Click() mnuCopy_Click
End Sub
Private Sub popCut_Click() mnuCut_Click
End Sub
Private Sub popPaste_Click() mnuPaste_Click
End Sub
4、运行结果。