| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 839 人关注过本帖
标题:求大神给解释一下module模块中的变量不能调用
只看楼主 加入收藏
Aterter
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-3-4
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求大神给解释一下module模块中的变量不能调用
以下是主程序
Private Sub Command5_Click()
Dim i, k, z1, x1, y1 As Integer


For i = 0 To 567
Label1(i).Width = 200
Label1(i).Height = 600
Next i
z1 = 0
    For i = 1 To maxcols
    x1 = 400 + i * 800
    y1 = 8000 - startcount(i) * 300
    For k = 1 To maxcount(i)
   
        Label1(z1).Left = x1 + ((k - 1) Mod 4) * 200
        Label1(z1).Top = y1 - ((k - 1) \ 4) * 600
        Label1(z1).BackColor = RGB(0, 255, 0) '绿色
        Label1(z1).Caption = ""
        z1 = z1 + 1
   Next k
Next i
End Sub

以下是module中的程序

Public maxcount(1 To 12) As Integer
Public startcount(1 To 12) As Integer
Public maxcols As Integer



Option Explicit




Sub main()



maxcount(1) = 40
maxcount(2) = 44
maxcount(3) = 48
maxcount(4) = 52
maxcount(5) = 48
maxcount(6) = 52
maxcount(7) = 52
maxcount(8) = 48
maxcount(9) = 52
maxcount(10) = 48
maxcount(11) = 44
maxcount(12) = 40
startcount(1) = 3
startcount(2) = 2
startcount(3) = 1
startcount(4) = 0
startcount(5) = 1
startcount(6) = 0
startcount(7) = 0
startcount(8) = 1
startcount(9) = 0
startcount(10) = 1
startcount(11) = 2
startcount(12) = 3
maxcols = 12

End Sub

运行后,只进行了第一个for循环,后面的都没结果,帮忙看看问题在哪里
搜索更多相关主题的帖子: 主程序 
2017-03-04 18:53
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
Private Sub Command5_Click()
Dim i, k, z1, x1, y1 As Integer

call main
For i = 0 To 567
Label1(i).Width = 200
Label1(i).Height = 600
Next i
z1 = 0
    For i = 1 To maxcols
    x1 = 400 + i * 800
    y1 = 8000 - startcount(i) * 300
    For k = 1 To maxcount(i)
   
        Label1(z1).Left = x1 + ((k - 1) Mod 4) * 200
        Label1(z1).Top = y1 - ((k - 1) \ 4) * 600
        Label1(z1).BackColor = RGB(0, 255, 0) '绿色
        Label1(z1).Caption = ""
        z1 = z1 + 1
   Next k
Next i
End Sub

无知
2017-03-04 23:49
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
几个问题
1、你的Label1(z1)控件是提前放好在窗体中吗,最多好像有近156个控件,如果提前没有放好,需要动态添加控件的。
2、二层循环,第一次最少40-52次,第三次0-3次,那么最多控件数是156个,那你的For i = 0 To 567 这个循环有点不理解。
3、虽然你在模块中定义了程序级数组与变量,但你的赋值是在模块的 main 过程中,因此必须在 Command5_Click 事件中调用赋值过程:Call main 。

[此贴子已经被作者于2017-3-5 12:26编辑过]


请不要选我!!!
2017-03-05 12:25
快速回复:求大神给解释一下module模块中的变量不能调用
数据加载中...
 
   



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

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