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的代码，不胜感激，谢谢！
void CTempDlg::OnOK()
{
UpdateData(1);
int nlen=m_edit1.GetLength();
char *username=m_edit1.GetBuffer(nlen);//定义一个新字符串username,长度为nlen，并将m_edit1中的字符串一个个放入到username数组中
char strA[]="90123456 ......
本程序有一菜单开始，里面有查询，删除，修改，添加，程序不一一列出，只写出基本的过程，连接数据库采用标准模块：
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main() '数据库连接共享函数
Set conn = New ADODB.Connect ......
Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
Dim str As String
Dim str1 As String
Dim len1 As Long
str = txt
len1 = ConWidth
&nbs ......
利用API把一个控件绑定到另一个控件里
利用API把一个控件绑定到另一个控件里。不过要控件有HWND属性。例如：
New_OldParent& = SetParent(Me.Text_txt.hWnd, Me.picture_bj.hWnd)
把txt控件添加到picture控件里使用。
注：使用 ......
