现在想要在一个窗体上产生多个内容.就好象SSTAB控件那样可以切换标签页的.可是SSTAB控件一旦往标签上创建了控件就不能删除标签.而且它本身也不能动态创建.哪位大哥能不能重新给我个思路让我实现我的程序.我现在就只有这个思路.可是老板让我用一个文本框输入数字然后就产生多个相同的拦目(在一个窗体上,并且每个拦目上面都是16个picturebox)
我现在只是想要能够动态添加也能动态删除的功能.比如说在text1中输入2就产生两个.再重新输入1就剩下一个.之前产生的那个没有了!帮忙啊!我就有这么点分了!555555555555555555
我现在只是想要能够动态添加也能动态删除的功能.比如说在text1中输入2就产生两个.再重新输入1就剩下一个.之前产生的那个没有了!帮忙啊!我就有这么点分了!555555555555555555
可以放到一个 PictureBox Ctl里, 也就是说 用一个PICBOX做个大容器, 这个 隐藏 显示 调整尺寸 等来控制显示
不要用SSTAB了,用tabstrip,但这个东西设计的时候比较麻烦,必须每个tab对应一个容器,比如用frame。如果要产生三个tab,就必须用三个frame。但它能够实现动态增加和删除。
还有,还是建议你考虑自己做控件,在一个frame里放16个picturebox,把这个东西做成一个整体的控件。
Private Sub Form_Load()
Dim i As Integer
conn.Open ConnString
Set rs = conn.Execute("select distinct 客户经理 from biao")If Not rs.EOF ThenTabStrip.Tabs(1).Caption = rs(0)
Frame1(1).Move TabStrip.ClientLeft, TabStrip.ClientTop, TabStrip.ClientWidth, TabStrip.ClientHeightCountOfManager = 1
rs.MoveNextWhile Not rs.EOF
CountOfManager = CountOfManager + 1'根据记录数生成TAB并命名
TabStrip.Tabs.Add
TabStrip.Tabs(CountOfManager).Caption = rs(0) '为每个TAB添加控件FRAME、LIST
Load Frame1(CountOfManager)
Load List(CountOfManager)
Frame1(CountOfManager).Visible = True
List(CountOfManager).Visible = True
Set List(CountOfManager).Container = Frame1(CountOfManager)
Frame1(CountOfManager).Move TabStrip.ClientLeft, TabStrip.ClientTop, TabStrip.ClientWidth, TabStrip.ClientHeight
rs.MoveNext
Wend
End If
rs.CloseFor i = 1 To CountOfManager
Set rs = conn.Execute("select 户名,文件号 from biao where 客户经理='" & TabStrip.Tabs(i).Caption & "'")
While Not rs.EOF
List(i).AddItem rs(0)
List(i).ItemData(List(i).ListCount - 1) = rs(1)
rs.MoveNext
Wend
rs.Close
Next
End Sub
这个属性是用来加载你控件内pictrue的,不难的,你试试
第二个问题是什么意思?
创建一个usecontrol,放一个frame,再在frame里放16个picturebox,这就是这个控件的界面了。如果你在每个picturebox里还有动作,把这些动作都放到你的控件里。在窗体里调用的时候,原来的代码都得换掉。现在你看到的frame和16个picturebox是存在于一个控件之中的,是一个整体。