《VB程序设计实验报告.docx》由会员分享，可在线阅读，更多相关《VB程序设计实验报告.docx（8页珍藏版）》请在三一文库上搜索。
1、。VB程序设计实验报告专业：信息管理与信息系统班级： 1502 班学号：姓名：日期： 2016 年 12 月 20 日。1。一、实验题目：记事本程序的设计二、实验目的1、掌握菜单编辑器的使用方法。2、掌握菜单事件的编程方法。3、初步掌握多窗体程序设计方法。三、实验内容与步骤1、实验内容：设计一个记事本程序。2、界面设计（贴出对象属性表和界面设计图）。在窗体 frmPad 上添加一个文本框text1 ，并根据下表修改窗体及控件属性。对象窗体属性设置对象名属性值FrmPadCaption“记事本 ”MultiLineTrueText1ScrollBars2-VerticalText清空使用菜单编辑
2、器在窗体上建立菜单：选中窗体frmpad 后，单击 “工具 ”菜单的 “菜单编辑器 ”命令，弹出 “菜单编辑器 “对话框，如下图所示。根据下表设置菜单。菜单设置菜单项标题菜单项名称快捷键其他属性编辑mnuEdit剪切mnuCutCtrl+X复制mnuCopyCtrl+C粘贴mnuPasteCtrl+V文本风格mnuStyle。2。粗体（ &B）mnuBold 复选 属性为 True斜体（ &I ）mnuItalic 复选 属性为 True弹出菜单popMenu 可见 属性为 True剪切popCut复制popCopy粘贴popPaste设计好程序窗体如下图所示。菜单编辑器。3。界面设计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 复制。4。Private Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText Text
4、1.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.Check
5、edEnd Sub 弹出菜单。5。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、运行结果。6。7。欢迎您的下载，资料仅供参考！致力为企业和个人提供合同协议，策划案计划书， 学习资料等等打造全网一站式需求。8