| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 399 人关注过本帖
标题:[求助]如何引用另一过程中的变量和数组?
只看楼主 加入收藏
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
结帖率:33.33%
收藏
 问题点数:0 回复次数:1 
[求助]如何引用另一过程中的变量和数组?

引程序代码如下:

Public Sub Command1_Click()
CommonDialog1.ShowOpen
Dim files As String, i As Integer, a()
files = CommonDialog1.FileName
Dim inbuf As String
Dim num As Integer 'num为文件行数,也即荷载间距数目
Open files For Input As #1 '打开文件
num = 0
Do While Not EOF(1) '获取文件行数
Line Input #1, inbuf
num = num + 1
Loop
Close #1
ReDim a(1 To num) '荷载间距(一维数组)
Open files For Input As #1
For i = 1 To num '将每行数据赋值给数组a
Input #1, a(i)
Next i
Close #1
End Sub

Public Sub Command2_Click()

Text1.Text = num
Text2.Text = a(1)
End Sub

我想在command2_click()中直接引用command1_click()中的变量num和数组a,可是在运行时出错:子程序或函数未定义。请问应该如何解决?谢谢!

搜索更多相关主题的帖子: 变量 
2006-12-29 15:53
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
在通用声明段中..声明num和a

我的msn: myfend@
2006-12-29 16:30
快速回复:[求助]如何引用另一过程中的变量和数组?
数据加载中...
 
   



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

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