首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

模块有关问题,很奇怪!

2012-03-24 
模块问题,很奇怪!!!!!!调试的时候提示:编译错误:缺少变量或过程,不是模块。怎么办?这个是模块中的代码,(不

模块问题,很奇怪!!!!!!
调试的时候提示:
编译错误:
缺少变量或过程,不是模块。
怎么办?
'这个是模块中的代码,(不在窗体的代码区内,在一个模块文件中)
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全编译运行程序,能找出语法错误。

热点排行