Vb动态添加控件

qq_33681369 2016-01-08 11:36:34
我做了一个服务器与客户端一对多连接的东西
在里面加了一个动态添加label和picture,相当于sock label picture都是动态添加的
这三个控件里属性上index上都写的0 也就是都算是控件组但是运行的时候只有sock 和picture是动态增加而label没有增加,求解

Private Sub Listener_ConnectionRequest(ByVal requestID As Long)
Dim SockIndex As Integer: SockIndex = 8888
Dim i As Integer
For i = 0 To sock.UBound
If sock(i).State = 0 Then SockIndex = i

Next


If SockIndex = 8888 Then


Load Picture1(Picture1.UBound + 1)
Load Label1(Label1.UBound + 1)
Load sock(sock.UBound + 1)
SockIndex = Label1.UBound ‘ 应该就是这一段出问题,但是不明白哪里出问题了。求解
SockIndex = Picture1.UBound
SockIndex = sock.UBound
Picture1(Picture1.UBound).Visible = True
Picture1(Picture1.UBound).Left = i * 3000
Label1(Label1.UBound).Visible = True
Label1(Label1.UBound).Left = i * 3000

End If

sock(SockIndex).Accept (requestID)
Picture1(SockIndex).BackColor = &HFF00&
Label1(SockIndex).Caption = sock(SockIndex).RemoteHostIP


End Sub
...全文
416 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
笨狗先飞 2016-01-09
  • 打赏
  • 举报
回复
嗯,后加的控件在下层 像image,label都是轻量控件,相当于直接在窗体上作画 ,picture是重量控件,是在form层之上
qq_33681369 2016-01-09
  • 打赏
  • 举报
回复
引用 3楼笨狗先飞 的回复:
嗯,后加的控件在下层 像image,label都是轻量控件,相当于直接在窗体上作画 ,picture是重量控件,是在form层之上
万分感谢
qq_33681369 2016-01-09
  • 打赏
  • 举报
回复
引用 1楼笨狗先飞 的回复:
最后加一个Label1(Label1.UBound).zorder试试,说不定被挡住了
显示出来了,怎么会被挡住?是被背景image?
笨狗先飞 2016-01-09
  • 打赏
  • 举报
回复
最后加一个Label1(Label1.UBound).zorder试试,说不定被挡住了

1,453

社区成员

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

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