1、VB 程序设计实验报告专业：信息管理与信息系统班级：1502 班学号： 姓名： 日期：2016 年 12 月 20 日一、实验题目：记事本程序的设计二、实验目的1、掌握菜单编辑器的使用方法。2、掌握菜单事件的编程方法。3、初步掌握多窗体程序设计方法。三、实验内容与步骤1、实验内容：设计一个记事本程序。2、界面设计（贴出对象属性表和界面设计图） 。在窗体 frmPad 上添加一个文本框 text1，并根据下表修改窗体及控件属性。对象窗体属性设置对 象 名 属 性 值FrmPad Caption “记事本”MultiLine TrueScrollBars 2-VerticalText1Text 清
2、空使用菜单编辑器在窗体上建立菜单：选中窗体 frmpad 后，单击“工具”菜单的“菜单编辑器 ”命令，弹出 “菜单编辑器“对话框，如下图所示。根据下表设置菜单。菜单设置菜单项标题 菜单项名称 快捷键 其他属性编辑 mnuEdit 剪切 mnuCut Ctrl+X 复制 mnuCopy Ctrl+C 粘贴 mnuPaste Ctrl+V文本风格 mnuStyle 粗体（&B ） mnuBold “复选“属性为 True 斜体（&I ） mnuItalic “复选“属性为 True弹出菜单 popMenu “可见“属性为 True 剪切 popCut 复制 popCopy 粘贴 popPaste设
3、计好程序窗体如下图所示。菜单编辑器界面设计3、编写程序代码。Private Sub Form_Load()Text1.FontSize = 16Text1.Text = “Visual Basic 程序设计“mnuBold.Checked = FalsemnuItalic.Checked = FalseEnd Sub剪切Private Sub mnuCut_Click()Clipboard.ClearClipboard.SetText Text1.SelTextText1.SelText = “End Sub复制Private Sub mnuCopy_Click()Clipboard.Clea
4、rClipboard.SetText Text1.SelTextEnd Sub粘贴Private Sub mnuPaste_Click()Text1.SelText = Clipboard.GetTextEnd Sub粗体Private Sub mnuBold_Click()mnuBold.Checked = Not mnuBold.CheckedText1.FontBold = mnuBold.CheckedEnd Sub斜体Private Sub mnuItalic_Click()mnuItalic.Checked = Not mnuItalic.CheckedText1.FontItal
5、ic = mnuItalic.CheckedEnd Sub弹出菜单Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu popMenuEnd IfEnd SubPrivate Sub popCopy_Click()mnuCopy_ClickEnd SubPrivate Sub popCut_Click()mnuCut_ClickEnd SubPrivate Sub popPaste_Click()mnuPaste_ClickEnd Sub4、运行结果
