深圳office培训 深圳excel培训
深圳excel培训 深圳office培训
咨询服务
深圳office培训
深圳office培训
office培训
excel培训
ppt培训
vba培训
access培训
word培训
visio培训
project培训
outlook培训
数据库培训
深圳access培训
深圳sql培训
深圳office培训
 

如何在窗体中使用TabStrip控件


2016年8月10日 作者: 来源:

使用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)。
运行窗体,选择不同的标签将显示不同城市的图片。


阅读:1845 上一则:设置标签文字垂直居中对齐 下一则:如何在vba显示GIF动画图片

返回前页 返回顶部
温馨提示:本中心是深圳较为专业office培训机构、咨询及报名请先预约,电话:0755-82124110。
深圳地址:深圳红荔路四川大厦1109B-1110(3号龙岗线通新岭地铁站A出口10米)
热线:0755-82124110(福田、南山、宝安) 0755-22205758(罗湖、龙岗、龙华) 13510024571(东莞、惠州、珠海、广州)
北京地址:北京清华大学华业大厦三区三楼 版权所有:深圳万博计算机教育 粤ICP备11006947号-1
 
深圳信息系统项目管理师培训
深圳信息系统项目管理师培训 欢迎咨询!
您好!请点击这里咨询万博教育
深圳万博吴老师
您好!请点击这里咨询万博教育
深圳万博史老师
 
深圳信息系统项目管理师培训
深圳信息系统项目管理师培训