VB程序设计实验报告

《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、运行结果