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