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空加你一样的效果了,添加别的按钮可以直接拖动到控件上添加相应的代码实现相应的功能。
运行效果如下图:
相关文档:
声明固定大小的数组
有三种方法声明固定大小的数组,用哪一种方法取决于数组应有的有效范围:
建立公用数组,在模块的声明段用 Public 语句声明数组。
建立模块级数组,在模块的声明段用 Private 语句声明数组。
建 ......
最近在使用和研究OpenGL绘图,遇到不少问题。网上查阅资料的时候,发现大部分资料都是C语言,和C++写的,VB这方面的资料太少了,VB6.0的就更少,现在都流行dotnet。自己买了本OpenGL书是也是C语言版的。这个博客也开了2年多了,都没写点东东上来。趁晚上睡不着,上来写点。
一、什么是OpenGL?
OpenGL是Ope ......
JavaScript/VB Script脚本程序一般有两种执行方式,一种是嵌入在宿主程序里面执行,比如在IE浏览器里面执行;另外一种,在资源管理器里面双击执行(虽然还是通过另外一个程序解释执行,但是给人的感觉毕竟是直接运行)。
这两种方式,都可以使用Visual Studio来进行调试,先看大家用得比较频繁的网页脚本程序的调试:
1 ......
VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......