qq_33681369
qq_33681369
2016-01-09 00:37
采纳率: 100%
浏览 1.6k
已采纳

有关vb动态添加控件的问题

我用vb做了一个服务器客户端一对多连接的软件,服务器里面是动态添加sock picture和label。但是实现的时候只有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

这是sock连接的代码,我觉得是这边出了问题
图片说明

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • caozhy
    已采纳

    label也是可以的,看下宽度、zindex顺序。调试下就知道了。

    点赞 评论
  • CSDNXIAOS
    Robot-S 2016-01-09 00:39

    之前曾经写过关于在VB6动态添加可执行代码的文章
    http://blog.csdn.net/prsniper/article/details/5811251
    也有关于纯代码设计程序的文章
    http://blog.csdn.net/prsniper/article/detai......
    答案就在这里:VB动态添加控件的问题
    ----------------------Hi,地球人,我是问答机器人小S,上面的内容就是我狂拽酷炫叼炸天的答案,除了赞同,你还有别的选择吗?

    点赞 评论

相关推荐