vb 选项卡操作
请教一下VB关于选项卡的操作。我想实现通过选项卡+WebBrowser控件,实现多网页浏览1、怎么样在程序运行时添加、删除选项卡2、新添加的选项卡怎么样增加新的控件(控件...
请教一下VB关于选项卡的操作。
我想实现通过选项卡+WebBrowser控件,实现多网页浏览
1、怎么样在程序运行时添加、删除选项卡
2、新添加的选项卡怎么样增加新的控件(控件和布局和初始选项卡一样)
3、每个选项卡里的控件与变量是独立还是公用的,如何区分(局部变量和全局变量) 展开
我想实现通过选项卡+WebBrowser控件,实现多网页浏览
1、怎么样在程序运行时添加、删除选项卡
2、新添加的选项卡怎么样增加新的控件(控件和布局和初始选项卡一样)
3、每个选项卡里的控件与变量是独立还是公用的,如何区分(局部变量和全局变量) 展开
1个回答
展开全部
我试了一下,可能是我的机子有问题。
StripTab 居然不能添加控件了
你看看这样行不?
Dim oTab As MSComctlLib.Tab
Dim oWebBrowser As SHDocVwCtl.WebBrowser
'1、怎么样在程序运行时添加、删除选项卡
Set oTab = Me.TabStrip1.Tabs.Add() '加选项卡
'2、新添加的选项卡怎么样增加新的控件(控件和布局和初始选项卡一样)
Set oWebBrowser = Me.Controls.Add("SHDocVwCtl.WebBrowser", "webbrowser2", oTab)'加WebBrowser
可以动态加载控件的,给你写了个Picture的小例子。。你看看
Private Sub Command2_Click()
Dim i As Long
For i = 1 To 10
Dim oPic As PictureBox
Set oPic = Me.Controls.Add("vb.picturebox", "pic" & i, Me)
With oPic
.Height = 500
.Top = 100 + .Height * i
.Left = 100
.Width = 500
.Visible = True
.Picture = LoadPicture("C:\61.jpg")'图片文件
End With
Next
End Sub
3.每个选项卡里的控件与变量是独立还是公用的,如何区分(局部变量和全局变量)
都是公用的,就像放在Form里一样
可以考虑用控件数组来操作。。。
StripTab 居然不能添加控件了
你看看这样行不?
Dim oTab As MSComctlLib.Tab
Dim oWebBrowser As SHDocVwCtl.WebBrowser
'1、怎么样在程序运行时添加、删除选项卡
Set oTab = Me.TabStrip1.Tabs.Add() '加选项卡
'2、新添加的选项卡怎么样增加新的控件(控件和布局和初始选项卡一样)
Set oWebBrowser = Me.Controls.Add("SHDocVwCtl.WebBrowser", "webbrowser2", oTab)'加WebBrowser
可以动态加载控件的,给你写了个Picture的小例子。。你看看
Private Sub Command2_Click()
Dim i As Long
For i = 1 To 10
Dim oPic As PictureBox
Set oPic = Me.Controls.Add("vb.picturebox", "pic" & i, Me)
With oPic
.Height = 500
.Top = 100 + .Height * i
.Left = 100
.Width = 500
.Visible = True
.Picture = LoadPicture("C:\61.jpg")'图片文件
End With
Next
End Sub
3.每个选项卡里的控件与变量是独立还是公用的,如何区分(局部变量和全局变量)
都是公用的,就像放在Form里一样
可以考虑用控件数组来操作。。。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询