VB实验报告.doc

【实验报告】

【姓名】：拉姆曲珍 【学号】：40号
【实验班级】：10级科教 【试验编号】：09
【试验时间】：2011年 6月8日 【实验地点】：成教楼
【实验目的】：
1、掌握好菜单编辑器、下拉式菜单的使用方法。
2、练习下拉式菜单的操作。
3、掌握上面两个控件相关的属性、事件的使用以及代码窗口
【实验内容】：
1、设计一个窗体，该窗体中2个文本框、
2、建立一个弹出式菜单，设置个菜单的属性，并写出相应的事件代码。然后建立子菜单有“拉萨”,“青海”，“四川”，“云南”必须先进入代码窗口然后单击“对象”框右的箭头，下拉显示各子菜单项。
【实验步骤】：
第一步：执行“菜单中的”新建工程“命令，建立2个文本框

第二步：如表所示，相应的控件属性。
Private Sub csmc_Click()
Text1.Text = "城市名称"
Text2.Text = "拉萨" & " " & "青海" & " " & "四川" & " " & "云南"
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu csmc
End Sub

Private Sub ls_Click()
Text1.Text = "拉萨"
Text2.Text = "布达拉宫" & " " & "罗布林卡" & " " & "桑耶寺"
End Sub

Private Sub qh_Click()
Text1.Text = "青海"
Text2.Text = "青海湖" & " " & "塔尔寺"
End Sub

Private Sub sc_Click()
Text1.Text = "四川"
Text2.Text = "九寨沟" & " " & "峨眉山"
End Sub

Private Sub yn_Click()
Text1.Text = "云南"
Text2.Text = "香格里拉" & " " & "西双版纳"
End Sub
显示的代码窗口如下
第三步 ：运行程序后的结构如下图所示

【学生总结】：在编写程序过称当中 为了显示弹出式菜单，通常把 PopupMenu方法放在 MouseDown事件中.注意：主菜单项csmc的可见属性应设置为False;其余的菜单项“可见“属性设置为。True