使用TabStrip控件,可以在用户窗体中的同一区域定义多个数据页面,也就是说使用TabStrip控件可以使用户窗体中的同一组控件根据TabStrip控件所选择的页面具有不同的功能,而不必像多页控件那样需要在每个页面中放置相同的控件。
在示例的窗体中使用一个图像控件和一个标签控件,根据TabStrip控件所选择的页面来显示相应城市的图片和标签控件的题注。
步骤1,在窗体中添加一个TabStrip控件,默认情况下,一个TabStrip控件包含两个页面,所以需要在TabStrip控件上右键单击,在显示的右键菜单中选择“新建页”继续添加三个页面。因为TabStrip控件不像多页控件具有分页的属性窗口,所以需要在显示的右键菜单中选择“重命名”将页面分别重命名为各城市的名称。
步骤2,在TabStrip控件上添加一个Image控件和一个Label控件,调整为合适的大小。
步骤3,双击窗体写入下面的代码:
#001 Private Sub TabStrip1_Change()
#002 Dim FilPath As String
#003 FilPath = ThisWorkbook.Path & "\" & TabStrip1.SelectedItem.Caption & ".jpg"
#004 Image1.Picture = LoadPicture(FilPath)
#005 Label1.Caption = TabStrip1.SelectedItem.Caption & "欢迎您!"
#006 End Sub
#007 Private Sub UserForm_Initialize()
#008 TabStrip1.Value = 0
#009 End Sub
代码解析:
第1行到第6行代码,TabStrip控件的Change事件过程,根据TabStrip控件所选择的页面来显示相应城市的图片和标签控件的题注。
第3行代码设置Image控件需加载图片的完整路径,使用SelectedItem属性返回TabStrip控件当前选中页面的Caption属性,即窗体中所选城市的名称,将图片的完整路径设置为保存在同一目录中已命名为所选城市的图片。
第4行代码为Image控件加载图片。Picture 属性指定显示在对象上的位图,语法如下:
object.Picture = LoadPicture( pathname )
参数expression是必需的,一个有效的对象。
参数pathname是必需的,一个图片文件的完整路径。
第5行代码设置标签控件的题注为窗体中所选城市的名称和“欢迎您!”。
第7行到第9行代码窗体的Initialize事件过程,为了使窗体显示时TabStrip控件显示第一页,将其Value设置为零(0)。
运行窗体,选择不同的标签将显示不同城市的图片。