请问VB中控件数组可以为2维数组吗？（急）

Question

好象也是有的，因为我看他说动态定义数组时就提过，可以对动态数组的第一维动态处理，好象也是象  dim x(9)(9) as xx 吧，不知道是不是？

Answer 1

因该可以,看看下面的
Dim a(1, 1) As Form1Private Sub Command1_Click()
    For i = 0 To 1
        For j = 0 To 1
        
            Set a(i, j) = New Form1
            a(i, j).Show
            a(i, j).Caption = "a" + Str(i) + Str(j)
        Next
    Next
End Sub

Answer 2

扫雷源代码我这里就有.
[email protected]
来信要说明要什么

Answer 3

那就不必用2维数组了
你可以让index的前两位表示高
index的后3位表示宽
index是不需要连续的

Answer 4

谢谢dbcontrols(泰山__帮助你使我感到快乐.)　
我想程序还是自己先想想吧，如果有困难，我再问问你。To wjying(葡萄)
你可以让index的前两位表示高
index的后3位表示宽
index是不需要连续的请问你这是指的什么呀？

Answer 5

假设你本来的控件数组其中的一个控件是这样的cmd(100,10)
你可以把他用cmd(10010)表示
不过有个限制index是integer型的，所以不能太大

Answer 6

如果你窗体上只有控件cmd(0)和cmd(1)
则你不需要创建cmd(2)也可以创建cmd(3)

Answer 7

   是啊，扫雷虽然简单，但要做好不真不容易，看过Win2000的扫雷吗？
我就是在自己做的过程中，发现它至少有两个地方有问题，你找找看。
   VB中的数组的维数你可以自己试试，10维的我都试过？一般使用中不会超过3维。

Answer 8

不需要吧！
假设为 m列 n行 的！
只需定义控件数组为 0~m*n-1。
行=Int(Index/m)
列=Index Mod m

Answer 9

老妖，你的方法好象只能用在FORM一类的窗体之上啊，如果定义一个COMMAND数组（2维），就会出现问题了。To AdamBear(学习再学习)你做到10维的数组？？
不用吧，2维就足够了呀。

Answer 10

不会吧，你扫雷想要用2维的Button 阿， 那启动高级难度不要死，我原来编的时候也由该想法
但是。，其实贴图很好用的，只要一个picture控件就可以拉，

Answer 11

http://www.csdn.net/expert/Topic/489/489133.shtm

Answer 12

To zsy_good(路漫漫其修远兮，吾将上下而求索)
可否告知我你的E-MAIL地址？我的E-MAIL地址是：[email protected]我已经放弃使用BUTTON数组的方法，现在的思路和你说的一样，使用两个数组。
不过我的疑问是：你所说的“其实贴图很好用的，只要一个picture控件就可以拉”可否在这个地方说详细点？？

Answer 13

请大家帮忙推一下吧http://www.csdn.net/expert/topic/413/413590.shtm

Answer 14

没做过这个程序,但用PICTURE应该可行,PICTURE分为若干个区域(eg. 10*10),每个区域是一格,响应有图(1.2.3种),根据鼠标在PICTURE上的位置和动作,对重新PICTURE进行描画,并进行有无雷的判断.
这应该比用COMMANDBUTTON节省内存.
按我理解应该是这样的 zsy_good(路漫漫其修远兮，吾将上下而求索) 不知对否,望指正

Answer 15

同意yangzhaoyu(老妖)
不然窗体上近万个控件多夸张阿

Answer 16

将PictureBox分区域，但是布雷和探雷并不好做，难道要用捕捉鼠标位置的方法？？Picture控件上好画格子吗？？

Answer 17

我的地址是，[email protected] 
我告诉你具体的方法，你自己写，不行再问我
picture有一个属性 你可以不同picture直接用form 都一样 picture可以用来做得好看一些道理一样
scalewidth scaleheight 这里可以设置他的内部高度和宽度， 这可以按需要设置成你的数组大小
比如你想有9行9列 就把他们设为9行9列，你可以自己做一幅图，就像那些按钮一样的图，做
一个小方块，然后粘贴，你判断form 的mouseup事件，里面有x,y按照你的小方块的大小除一下
多试剂此，我也试了好多次，让他们刚好可以和小方块相符，然后再相应的位置贴上那个做好的
小方块，如果对了就可以拉，然后就随即残生数组就可以拉，另一个是来记录他的右键单击情况
，然后再每次的mouseup判断该数组得值然后贴上相应的图片，如雷还有一个X的雷。

Answer 18

有一种变通的方法：
以前我就讲过，
不过有人说这是垃圾！（如果你愿意可以）
是这样:Form.controls("text" & cstr(i))(j)实际上是用控件名如text1,text2, 将后面的数字取出来与原index加在一起用
当然你还可以
Form.controls("command" & cstr(i))(j)(不懂的不要再乱贴了！)
 

Answer 19

谢谢zsy_good(路漫漫其修远兮，吾将上下而求索)兄的点拨，先谢过了。也谢谢各位的相助，在下在此谢过诸位了！

Answer 20

其实zsy_good(路漫漫其修远兮，吾将上下而求索)兄所说之法略同于障之眼法，高，真高～（笑）

Answer 21

回NetKnight(网际漆士)并非在下不好好读书息文，只缘这VB爱物实乃吾1年前所用，时至今日难免遗忘二三，
当然NetKnight(网际漆士)批评诚恳，吾亦以为之…………

Answer 22

to Control(客楚)：什么意思？

Answer 23

TO Bardo(巴顿)：别太骄傲了！就你高手吗？想打架吗？

Answer 24

TO Bardo(巴顿)：别太骄傲了！就你高手吗？想打架吗？ 

Answer 25

即为数组，何无二三维之说？望tonton(tonton)赐教～

Answer 26

请问如何动态创建一个数组控件？例如FORM1里已经有了一个COMMAND1（0），如果我要运行时动态创建一个command1(1)、COMMAND1（2）.......应该怎样做？？

Answer 27

帖子的前面有提及啊，zjkuki(酷奇)你没注意吧，这样试试看：for index=1 to n
  load command1(index)
  command1(index).visible=ture
  command1(index).left=command1(index-1).left+50
next

Answer 28

对于使用来说一维和二维三维没区别，在VB中可以转换一下。
X[8]=Y[2][2]

Answer 29

TO：watercat17(水猫) 控件数组并不是真正的数组，而一种类似于集合的对象。比如，要确定数组的下标可以用Ubound来取得。
但是如果使用Ubound(Command1) （Command1为一个“控件数组”）的话，系统会报错。不信你自已试试。。

Answer 30

dim type a
   dim a as  integer
   dim b as  string
   dim c as .........
........
   end typedim arr(20) as a 
arr(0,1).a=
arr(1).b=
arr(1).c=
arr(1).a=