| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1593 人关注过本帖
标题:请教全局变量的定义和读写
只看楼主 加入收藏
zh0920
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2016-7-20
结帖率:0
收藏
已结贴  问题点数:20 回复次数:7 
请教全局变量的定义和读写
在模块内定义个全局变量:Public CA(16)  As Variant
在From1里面:
     For i = 1 To NumItems
        If Not Errors(i) = 0 Then
            MsgBox "AsyncReadComplete Item Clienthandle = " + Str$(ClientHandles(i)) + " FAILED. Error Code = " + Str$(Errors(i)), vbCritical
        ElseIf ClientHandles(i) > 0 And ClientHandles(i) < 17 Then
            If Qualities(i) = 192 Then
                CA(i) = ItemValues(i)         
                txtReadVal.Item(ClientHandles(i) - 1).Text = ItemValues(i)
            Else
                txtReadVal.Item(ClientHandles(i) - 1).Text = GetQualityText(Qualities(i))
                'txtReadVal.Item(ClientHandles(i) - 1).BackColor = &H8080FF
            End If
        Else
在If Qualities(i) = 192 Then处:CA(i) = ItemValues(i),txtReadVal.Item(ClientHandles(i) - 1).Text能够正常显示数据
  用取值的语句:Text4.Text = CA(12) 数据为0,请教这是怎么回事儿?该怎么处理这个问题?
2016-08-10 15:50
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
你到 CA(i) = ItemValues(i) 后面加上测试语句看看结果。怀疑 NumItems 的值不到 12 。
debug.print i;CA(i)



授人于鱼,不如授人于渔
早已停用QQ了
2016-08-10 16:24
zh0920
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2016-7-20
收藏
得分:0 
回复 2楼 风吹过b
这是两个语句执行的对比结果
图片附件: 游客没有浏览图片的权限,请 登录注册

那个8.6的,是txtReadVal.txt
下边是那个Text4.text

[此贴子已经被作者于2016-8-10 17:06编辑过]

2016-08-10 17:00
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
      If Qualities(i) = 192 Then
                CA(i) = ItemValues(i)   
text4.text=ca(12)

i=12?

无知
2016-08-11 00:17
zh0920
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2016-7-20
收藏
得分:0 
回复 4楼 Artless
数组里面,第12个变量值。
2016-08-11 15:40
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
以下是引用zh0920在2016-8-11 15:40:29的发言:

数组里面,第12个变量值。

代码里没有ca(12)=?
那你确定ca(12)<>””

无知
2016-08-12 00:01
zh0920
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2016-7-20
收藏
得分:0 
回复 6楼 Artless
我听明白你的意思了,你是说全局变量定义的时候是不是会出错。这样我请问一下:模块中定义变量组是否可行,该采用什么方式?如果是我定义错误,找到根源并解决了,一切就顺理成章了。
2016-08-12 09:08
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
以下是引用zh0920在2016-8-12 09:08:28的发言:

我听明白你的意思了,你是说全局变量定义的时候是不是会出错。这样我请问一下:模块中定义变量组是否可行,该采用什么方式?如果是我定义错误,找到根源并解决了,一切就顺理成章了。

不是这意思,如果你没有别的代码ca(12)=*,而i<12则ca(12)=””

无知
2016-08-13 00:53
快速回复:请教全局变量的定义和读写
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029888 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved