模块问题,很奇怪!!!!!!
调试的时候提示:
编译错误:
缺少变量或过程,不是模块。
怎么办?
'这个是模块中的代码,(不在窗体的代码区内,在一个模块文件中)
Public Sub SEND_SERINFO(IP As String, Text As String)
main.wsk1.RemoteHost = IP
main.wsk1.SendData "SER_INFO " + Text
End Sub
'然后在窗体代码模块中调用
call send_serinfo(ip,text)
然后进行调试
它提示
****************************
*编译错误: *
*缺少变量或过程,不是模块。*
****************************
帮忙解决一下谢谢!
[解决办法]
把你的代码复制过来,调用部分改成 Call SEND_SERINFO( "192.168.0.1 ", "Text ")运行正常,没有什么问题,估计是你调用部分有问题,请贴出你实际的调用代码!如果你原本调用语句是call send_serinfo(ip,text)的话,那么你的两个变量ip,text都赋值了吗?
[解决办法]
For i = 0 To LIS_USER.ListCount - 1
i 没定义
[解决办法]
代码依旧太少看不出问题
你可以把On Error Resume Next去掉,F8看问题出在那一句
[解决办法]
将代码发上来看看
[解决办法]
try:
Call SEND_SERINFO(LIS_USER.List(i), LIS_USER.TXT_radio.Text)
[解决办法]
可能是IP或者text两个变量没有定义或者没有赋值!
[解决办法]
不可能这样的.
[解决办法]
Call 模块.SEND_SERINFO(LIS_USER.List(i), main.TXT_radio.Text)
[解决办法]
调试程序时按Ctrl+F5全编译运行程序,能找出语法错误。