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 语句声明数组。
建 ......
去年曾写过一篇博文，名称叫《用VB无窗口透明Usercontrol编写透明浮动按钮》，该文有一个观点是错误的，即透明无窗口Usercontrol不支持设计时点选。其实，通过在UserControl_HitTest过程里加入HitResult = vbHitResultHit语句，就可以实现设计时的点选了，为此，修改代码如下：
'* ******************* ......
最近在使用和研究OpenGL绘图，遇到不少问题。网上查阅资料的时候，发现大部分资料都是C语言，和C++写的，VB这方面的资料太少了，VB6.0的就更少，现在都流行dotnet。自己买了本OpenGL书是也是C语言版的。这个博客也开了2年多了，都没写点东东上来。趁晚上睡不着，上来写点。
一、什么是OpenGL？
OpenGL是Ope ......
要想在VB6.0中使用OpenGL绘图，必须先下载一个SDK,名字叫vbogl.tlb。我用的版本是2.1，这个月要出3.0版本的了。
下载该文件后，直接在VB6.0“工程”-“引用”里面引用
1、在form中加入一个PictureBox控件
2、要在Windows里面使用OpenGL，必须先进行像素格式设置，函数代码如下
Dim hRC ......
