VB程序设计实验报告.doc

.VB程序设计实验报告专业：信息管理与信息系统班级：1502班学号： 姓名： 日期：2016年12月20日一、实验题目：记事本程序的设计二、实验目的1、掌握菜单编辑器的使用方法。2、掌握菜单事件的编程方法。3、初步掌握多窗体程序设计方法。三、实验内容与步骤1、实验内容：设计一个记事本程序。2、界面设计（贴出对象属性表和界面设计图）。在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。对象窗体属性设置对 象 名属 性值FrmPadCaption“记事本”Text1MultiLineTrueScrollBars2-VerticalText清空使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。根据下表设置菜单。菜单设置菜单项标题菜单项名称快捷键其他属性编辑mnuEdit 剪切mnuCutCtrl+X 复制mnuCopyCtrl+C 粘贴 mnuPasteCtrl+V文本风格 mnuStyle 粗体（&B） mnuBold复选属性为True 斜体（&I） mnuItalic复选属性为True弹出菜单 popMenu可见属性为True 剪切 popCut 复制 popCopy 粘贴 popPaste设计好程序窗体如下图所示。菜单编辑器界面设计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.ClearClipboard.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.FontItalic = mnuItalic.CheckedEnd Sub弹出菜单Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu popMenuEnd IfEnd SubPrivate Sub popCopy_Click() mnuCopy_ClickEnd SubPrivate Sub popCut_Click() mnuC