载入控件load VB答得对可以用的我再加分！！！凭良心说话！！！！

来源：百度知道编辑：UC知道时间：2024/06/12 16:15:33

有看到一些人的代码中有
ClientNum = ClientNum + 1
Load winsock2(ClientNum) '载入一个新的socket控件
我把winsock2的 index设置为0，然后用这个语句的话好象总出问题．
关于这个语句的具体用发说一下．．

答得对可以用的我再加分！！！凭良心说话！！！！
厄，那我不用 ClientNum，定义一个j%然后
j = j + 1
Load Winsock2(j) '载入一个新的winsock控件
strData = Empty
port = port + 1

myport = myport + 1
With Winsock2(j)
.Protocol = sckudpprotocol
.RemotePort = port
.LocalPort = myport
.RemoteHost = pingip
'设置了当有申请连接的时候将记录对方的IP,并新建一个winsock控件

.Bind
End With
Winsock2(j).SendData "load a new users" & port & myport

却怎么没好象发送出去啊？

你写的句子看不出有什么明显的错误, 但要注意:
1.初始化时要一个名为:winsock2的控件,且其index=0
2.动态加载控件时,如ClientNum是个过程级变量,每次调用过程ClientNum均为0,会出错的.因此建议改做:
ClientNum=winsock2().count
Load winsock2(ClientNum)

如果不使用winsock2().count, 无论是用j还是用clientnum,你把它们放在过程这外,代码的最顶部处来定义.

我不晓得出错后系统如何提示你.如果提示控件已存在,就该是上面的原因了.

却怎么没好象发送出去啊？
点f8逐句调试一下

载入控件load VB答得对可以用的我再加分！！！凭良心说话！！！！ vb里还有什么控件或容器有load事件? VB中得进度条控件 vb 控件!!!!!!!!! VB控件~~~ VB载入PNG vb如何载入图片 VB 控件问题。。答出给分 VB 中，如何对某一个控件屏蔽右键？ vb 如何对控件组.分别写进代码??