发布时间 : 星期五 文章Excel VBA编程 使用用户窗体显示帮助信息更新完毕开始阅读1b8f0c4b02020740be1e9bf2
Excel VBA编程 使用用户窗体显示帮助信息
通过在工作表中使用帮助,使用用户可以方便的浏览工作表,并获取有用的信息外。帮助信息还主要应用在用户窗体中,向用户窗体提供帮助信息也分为多种,下面就来介绍制作用户窗体帮助信息的方法。
1.使用标签控件显示帮助文本
标签除了用于提供控件的标题之外,还用于写实际的文本。例如,在用户窗体中的两个标签控件,用于显示在某个工作表中的A列(帮助标题)和B列(帮助文本)。单击数值调节钮控件,允许用户在不同的主题之间切换。如图21-3所示。
图21-3 标签帮助 其实现代码如下: '数值调节钮
Private Sub SpinButton1_Change() flag = SpinButton1.Value
Label1.Caption = Sheets(\ Label2.Caption = Sheets(\ '窗体标题显示
Me.Caption = \每日提示 (\End Sub 提 示
这里变量flag是一个全局的数值类型的变量,它包含了当前第几条的提示信息。
2.使用滚动标签显示帮助文本
这种方法在单个标签控件中显示帮助文本。因为标签控件不能包含垂直的滚动条,所以要把这个标签放在一个框架控件中,因为框架控件中可以包含滚动条,设置框架控件ScrollBars属性即可。
例如,在初始化用户窗体时,从工作表HelpLBSheet中读取标签中要显示的文本,将内容以滚动的方式显示到用户窗体中。如图21-4所示。
图21-4 滚动标签帮助
在窗体的Initialize事件中,输入如下代码: Private Sub UserForm_Initialize()
'获取要显示的内容的最大行数
flag = Sheets(\ '取值
For r = 1 To flag
txt = txt & Sheets(\ Next
'设置显示样式 With Label1 .Top = 0
.Caption = txt .Width = 160 .AutoSize = True End With
Frame1.ScrollHeight = Label1.Height End Sub
3.使用列表控件选择帮助主题 使用列表框控件选择帮助主题,是滚动标签显示帮助的基础上完成的,当列表框中选择了帮助的标题后,在下面的滚动标签中显示帮助的内容。
例如,在用户窗体中,添加并设置好控件的属性后,再输入读取工作表HelpSheet中A列和B列的信息的代码。运行后窗体界面如图21-5所示。
图21-5 列表选择帮助
用户窗体初始化后,窗体中显示工作表中的第一条信息。代码如下 Private Sub UserForm_Initialize()
flag = Sheets(\ '初始化复合框 For r = 1 To flag
ComboBox1.AddItem Sheets(\ Next
ComboBox1.ListIndex = 0 '显示复合框中的第一行 With Label1 .Top = 0
.Caption = Sheets(\ .Width = 210 .AutoSize = True End With
Frame1.ScrollHeight = Label1.Height listId = 0 End Sub 提 示
当用户从复合框中选择其它的标题时,下面的滚动标签中将信息该标题对应的信息,可在复合框的Change事件中输入代码。 Private Sub ComboBox1_Change() listId = ComboBox1.ListIndex Label1.Width = 210
Label1.Caption = Sheets(\End Sub
同样,用户窗体的导航按钮,可用于显示上一条或下一条的帮助信息。单击后,帮助标题和信息同时改变。 '上一条
Private Sub CommandButton1_Click()
If listId <> 0 Then ComboBox1.ListIndex = listId - 1 End Sub
'下一条
Private Sub CommandButton2_Click()
If listId <> flag - 1 Then ComboBox1.ListIndex = listId + 1 End Sub
代码中变量ListId是一个全局变量,用于记录当前复合框的第几项。