VB实验报告7-用户界面设计.docx
VB实验报告7-用户界面设计 VB 程序设计实验报告 2022年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 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 五、实验总结 通过本实验我掌握了下拉式菜单和弹出式菜单的设计方法，学会使用了通用对话框控件进行编程，掌握了设计自定义对话框的有关技术掌握工具栏的设计技术
