我做了一個服務器與客戶端一對多連接的東西
在里面加了一個動態添加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
uj5u.com熱心網友回復:
最后加一個Label1(Label1.UBound).zorder試試,說不定被擋住了uj5u.com熱心網友回復:
顯示出來了,怎么會被擋住?是被背景image?uj5u.com熱心網友回復:
嗯,后加的控制元件在下層像image,label都是輕量控制元件,相當于直接在表單上作畫
,picture是重量控制元件,是在form層之上
uj5u.com熱心網友回復:
萬分感謝轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/81839.html
標籤:控件
