谁能给我个示例代码或者思想.关于这个程序的设计(我把我现在的分都给你们了)

yttlovezxx 2005-11-26 09:37:54
现在想要在一个窗体上产生多个内容.就好象SSTAB控件那样可以切换标签页的.可是SSTAB控件一旦往标签上创建了控件就不能删除标签.而且它本身也不能动态创建.哪位大哥能不能重新给我个思路让我实现我的程序.我现在就只有这个思路.可是老板让我用一个文本框输入数字然后就产生多个相同的拦目(在一个窗体上,并且每个拦目上面都是16个picturebox)


我现在只是想要能够动态添加也能动态删除的功能.比如说在text1中输入2就产生两个.再重新输入1就剩下一个.之前产生的那个没有了!帮忙啊!我就有这么点分了!555555555555555555
...全文
226 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
yttlovezxx 2005-11-28
  • 打赏
  • 举报
回复
对了。我制作的控件里面的文本框按TAB键的时候怎么想上移动.我昏!

我制作的控件里面的文本框.我在属性页里改了名字.(那个控件里面的代码都是用原来的名字.不知道会不会自动改过来.如果不改过来的话,不是出错了!)帮一下忙.各位!
yttlovezxx 2005-11-28
  • 打赏
  • 举报
回复
我的控件里有16个PICTURE.5个text棒定了一个数据库.还有四个按钮分别都有代码的:增加,删除,取消,修改.而且如果把这些按钮不制作成自己的控件使用的话就能实现按钮的功能.如果都封装在一个控件里就不能实现按钮的功能了.因为我有一个标签的里放着和控件一模一样的东西(可这些不是控件).反正就是把我做的控件加上就乱了!不加一切正常.可我要动态产生啊!而且动态产生时也有很多错误!
XLYT 2005-11-28
  • 打赏
  • 举报
回复
你怎样做的控件?控件里有什么东西?
创建一个usecontrol,放一个frame,再在frame里放16个picturebox,这就是这个控件的界面了。如果你在每个picturebox里还有动作,把这些动作都放到你的控件里。在窗体里调用的时候,原来的代码都得换掉。现在你看到的frame和16个picturebox是存在于一个控件之中的,是一个整体。
yttlovezxx 2005-11-28
  • 打赏
  • 举报
回复
现在是我制作了控件,可是动态调用错误.还有就是我做的控件和我之前的这个问题的代码是一样的,可是如果我把这个控件弄上去的话.就实现不了代码的功能.把它取了也就可以实现原先代码的作用.
XLYT 2005-11-28
  • 打赏
  • 举报
回复
改掉每个控件的tabindex属性,就可以控制TAB键了。
第二个问题是什么意思?
laidon 2005-11-27
  • 打赏
  • 举报
回复
自己做控件,可以将控件内picture个数做为属性,如myCtl.numPic
这个属性是用来加载你控件内pictrue的,不难的,你试试
yttlovezxx 2005-11-27
  • 打赏
  • 举报
回复
楼上的。能说的详细一点吗?
feiyun0112 2005-11-26
  • 打赏
  • 举报
回复
用frame数组
XLYT 2005-11-26
  • 打赏
  • 举报
回复
嘿嘿,你怎么又跑到这里了。
不要用SSTAB了,用tabstrip,但这个东西设计的时候比较麻烦,必须每个tab对应一个容器,比如用frame。如果要产生三个tab,就必须用三个frame。但它能够实现动态增加和删除。
还有,还是建议你考虑自己做控件,在一个frame里放16个picturebox,把这个东西做成一个整体的控件。
yttlovezxx 2005-11-26
  • 打赏
  • 举报
回复
楼上的大哥能不能说的再清楚点啊?!你的那个是不是这样的思想:在form上放一个pictrue1.然后把所有的想要的picturebox放在里面.然后在找个滚动条控制.当text1里输入具体的数字的时候就显示相应的picturebox.比如输入10.显示10组picture(15).输入2.就显示2组.我说的是不是啊?
3q2008Com 2005-11-26
  • 打赏
  • 举报
回复
16个picturebox)
可以放到一个 PictureBox Ctl里, 也就是说 用一个PICBOX做个大容器, 这个 隐藏 显示 调整尺寸 等来控制显示
province_ 2005-11-26
  • 打赏
  • 举报
回复
原来代码里不能出现五角星,我只好去掉了,直觉很灵啊,嘿嘿。
province_ 2005-11-26
  • 打赏
  • 举报
回复
我做的一个应用软件的片段,就是为TABSTRIP动态增加TAB的。
Private Sub Form_Load()
Dim i As Integer
conn.Open ConnString
Set rs = conn.Execute("select distinct 客户经理 from biao")

If Not rs.EOF Then

TabStrip.Tabs(1).Caption = rs(0)
Frame1(1).Move TabStrip.ClientLeft, TabStrip.ClientTop, TabStrip.ClientWidth, TabStrip.ClientHeight

CountOfManager = 1
rs.MoveNext

While 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.Close

For 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
province_ 2005-11-26
  • 打赏
  • 举报
回复
请不要发表可能给我们带来伤害的言论,谢谢配合

什么意思?帖段代码却回复不了。
yttlovezxx 2005-11-26
  • 打赏
  • 举报
回复
TO XLYT(雨田) 我没有使用过tabstrip控件.能不能给我例子啊.大哥.就像你说的那样作为容器的!

7,786

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧