VB实验报告7-用户界面设计

VB 程序设计实验报告
2020年06 月01 日
课程名称：VB程序设计实验名称：实验7-用户界面设计
一、实验目的
1.掌握下拉式菜单和弹出式菜单的设计方法
2.学会使用通用对话框控件进行编程
3.掌握设计自定义对话框的有关技术
4.掌握工具栏的设计技术
5.了解鼠标和键盘事件及其事件过程的编写
6.综合应用所学的知识，编制具有可视化界面的应用程序
二、实验内容
三、实验分析及设计
实验7-1
对话框是模态的，将窗体作为模态对话框显示应使用如下语句:
Frmabout.shou vbmodal
实验7-2
实验7-3
假定max为最大字符的下标，标记最大字符的语句为
List1.list(max) = list1.list(max) & space(10)&”*”
实验7-4
弹出式菜单设置时需要设置为不可见
实验7-5
一个项目中可以有若干窗体，但name属性不能相同，所以需要讲窗体的名称修改后才能汇总
四、程序代码
实验7-1
Private Sub about_Click()
frmAbout1.Show vbModal
End Sub
Private Sub FileMenu02_Click()
End
End Sub
Private Sub FileMuen01_Click()
Text1.Text = ""
End Sub
Private Sub fontcu_Click()
Text1.FontBold = True
Private Sub fontsize12_Click()
Text1.FontSize = 12
End Sub
Private Sub fontsize8_Click()
Text1.FontSize = 8
End Sub
Private Sub fontxie_Click()
Text1.FontItalic = True
End Sub
实验7-2
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index
Case 1
Call cuti_click
Case 2
Call xieti_click
End Select
Label1.FontBold = True
End Sub
Private Sub cuti_click()
Label1.FontBold = True
End Sub
Private Sub xieti_click()
Label1.FontItalic = True
End Sub
实验7-3
Dim a(15) As String
Private Sub F2_Click()
List1.Clear
Erase a
Randomize
For i = 0 To 14
a(i) = Int(Rnd * (90 - 65 + 1) + 65)
List1.AddItem Chr(a(i))
Next i
End Sub
Private Sub F3_Click()
Dim large As Integer, num As Integer
large = 0
For i = 0 To 14
If a(i) > large Then
large = a(i)
num = i
End If
Next i
List1.List(num) = Chr(a(num)) & Space(10) & "*" End Sub
Private Sub F4_Click()
End
End Sub
Private Sub form_load()
Form1.Caption = "18096217"
End Sub
Private Sub M1_click()
Form2.Show
End Sub
Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Unload Form2
Form1.Show
End Sub
Private Sub Timer1_Timer()
Static i As Integer
If i < 6 Then
i = i + 1
Label1.Caption = Mid("VB程序设计", 1, i)
Else: i = 0
End If
End Sub
实验7-4
Dim a(15) As String
Private Sub F2_Click()
List1.Clear
Erase a
Randomize
For i = 0 To 14
a(i) = Int(Rnd * (90 - 65 + 1) + 65)
List1.AddItem Chr(a(i))
Next i
End Sub
Private Sub F3_Click()
Dim large As Integer, num As Integer
large = 0
num = 0
For i = 0 To 14
If a(i) > large Then
large = a(i)
num = i
End If
Next i
List1.List(num) = Chr(a(num)) & Space(10) & "*"
End Sub
Private Sub F4_Click()
End
End Sub
Private Sub form_load()
Form1.Caption = "18096217"
End Sub
Private Sub M1_click()
Form2.Show
End Sub
Private Sub list1_MouseDown(Button As Integer, shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu F1
End If
End Sub
Private Sub test51_Click()
Form2.Show
Form3.Hide
Form4.Hide
Form5.Hide
End Sub
实验7-5
Private Sub test52_Click()
Form2.Hide
Form3.Show
Form4.Hide
Form5.Hide
End Sub
Private Sub test61_Click()
Form2.Hide
Form3.Hide
Form4.Show
Form5.Hide
End Sub
Private Sub test62_Click()
Form2.Hide
Form3.Hide
Form4.Hide
Form5.Show
End Sub
五、实验总结
通过本实验我掌握了下拉式菜单和弹出式菜单的设计方法，学会使用了通用对话框控件进行编程，掌握了设计自定义对话框的有关技术掌握工具栏的设计技术。