VB 实现VC TAbControl控件

VB实现VC TabControl控件

 

新建一个工程文件Project1,

 

 

在左侧工具栏中点右键

 

在出现的选项中点“Components”,在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”,然后点“应用”“确定”退出该页面

 

此时,在工具栏的右下角会出现刚添加的组件SSTab

 

拖动改控件到Form1中,

 

该控件索引是从0开始算的

 

在属性窗口的Tabs 中可以设置控件中选项页的页数,TabsPerRow 可以设置每一行的选项页数

判断选择了那一页可以添加如下代码,用于在单击控件实现页面切换的时候获取选择的当前页

Private Sub SSTab1_Click(PreviousTab As Integer)

Select Case Me.SSTab1.Tab

Case 0

MsgBox "选择了第一页"

Case 1

MsgBox "选择了第二页"

Case 2

MsgBox "选择了第三页"

End Select

End Sub

这样就能实现和VC TabControl空加你一样的效果了,添加别的按钮可以直接拖动到控件上添加相应的代码实现相应的功能。

运行效果如下图:

阅读更多
文章标签: vb 控件
想对作者说点什么? 我来说一句

mfc中TabControl控件的美化

2012年10月18日 111KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭