VB实现VC TabControl控件
在左侧工具栏中点右键
在出现的选项中点“Components”,在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”,然后点“应用”“确定”退出该页面
拖动改控件到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空加你一样的效果了,添加别的按钮可以直接拖动到控件上添加相应的代码实现相应的功能。
运行效果如下图:
原文地址:https://www.jb51.cc/vb/262695.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。