【求助】关于创建255个以上控件的问题

首先，感谢回复。
我先行研究一下。
本人极菜，第二个问题，我是明白的。
但：是否使用控件数组，控件数可以超过255这个数目呢？
关于2楼、3楼dfqshy 的具体做法，我暂时不懂，有空可否详细说一下呢？

十分感谢dfqshy ，先留邮箱：
genmoon@163.com
程序的具体要求：
小方块55×22,共1210个。
另外有一个textbox1,
点击第一行第一个小方格，txtText1.text在后面增加字符1e2c3350,
点击第一行第二个小方格，txtText1.text在后面增加字符352488ef,
。。。。。。
每个小方格增加的字符不尽相同。（我可以根据要求自己填上，因为每个是不规则的）
---------------------------------------------------------------------
就以上的功能，请dfqshy 帮帮忙。感谢。

我打完一堆字才发现雀巢vb豆浆兄给写了代码，感谢感谢。
我极菜、先研究一下。

感谢dfqshy 兄写的代码。。
邮件也收到了。。



十分感谢雀巢vb豆浆兄的代码，
研究过后，有2个问题，希望不鄙指教。
1，如何让第3行第3个方格，程序启动就呈红色，且点击也不能让它变色、也不出现它的坐标在右边（就是死格），同时保持其他方格的操作不变？
（或是有什么思路？）
2，这些方格的坐标能否以十六进际的数字来表示？比如：00 01 … 0E 0F 之类（保持2位数的十六进际数字）
无言感谢。。

感谢雀巢vb豆浆兄的回复，明天上班再研究。

现在看来，只好回家才能深入研究了。

查了一下 Add 的资料：
Add 方法（Controls 集合）
在Controls 集合中添加一个控件并返回一个对该控件的引用。
语法
object.Add(ProgID,name,container)
暂时没看出问题。为什么在家可以，在公司就出错了呢。。？


原来是这样啊。。但我装了microsoft office2003之中的word和excel啊。。
还有请问一句：最后我的修改器出炉的话（就是生产exe之后），是否还需要microsoft office2003？


回复：25楼
感谢雀巢vb豆浆啊。。我这就试试。。

实在不好意思，又麻烦雀巢vb豆浆了。
已经修改完毕，但运行时，产生：
编译错误，变量未定义。
（指向了text1）
-------------------------------------------------------------------
Private Sub Form_Load()
       Me.Width = Me.Width + 1220 * Screen.TwipsPerPixelX - Me.ScaleWidth
       Me.Height = Me.Height + 440 * Screen.TwipsPerPixelY - Me.ScaleHeight
       Me.ScaleMode = vbPixels: Me.Show
      
      
      
       text1.Move 1100, 0, 120, 440: text1.Visible = True
-----------------------------------------------------------------
指向了最后一行。
我曾经在“通用声明”里加一句：dim text1 as integer
可惜又产生另一处错误。无奈。。。。

万分感谢。。已经取得阶段性成功了。。

感谢"116.29.178.*"详细的代码，我已经按照您所说的做好，已经成功运行。
还有如此详细的注释，，，，真是感谢感谢！！！
------------------------------------------------------------------------
原来我用上了CodeSmart 2007 for VB6 导致默认生成的textbox控件的默认name属性（txtText1）与原来的（text1）不同，所以有了30楼的事故发生。。哈哈。。
------------------------------------------------------------------------
不知何年何日才能达到各位达人的境界啊！

感谢感谢，，先粘贴一下36楼修正过后的代码：（备份一下）
----------------------------------------------------------------
Option Explicit
Private Const W As Integer = 15 '格子宽度,单位:px
Private Const H As Integer = 15 '格子高度,单位:px
Private Type box
      Red As Boolean '是否红格
      Text As String '点击时文本框要增加的文本
      Click As Boolean '是否为按下状态
      '其它的可以自己添加
End Type
Private b(54, 21) As box '55*22个格子;b(列,行)
Private Sub Form_Load()
      Me.ScaleMode = 3
      Me.AutoRedraw = True
      Me.Width = 12900
      Me.Height = 6600
      Text1.Move 0, 350, 400
    
      Dim i As Byte
      Dim j As Byte
      For i = 0 To 54
          For j = 0 To 21
              b(i, j).Red = False '设置是否为红格
              b(i, j).Text = "我是" & i & "-" & j '设置点击时文本框text1要增加的文本
              b(i, j).Click = False    '设置是否为点击状态
              DrawBox i, j
          Next j
      Next i
    
      '设置第一列第一行点击时文本框要增加的文本
      '设好之好记得要DrawBox重绘格子,如果你觉得每次修改属性都要用DrawBox要重绘格子会麻烦,就写一个sub来处理,或者写成class,在Let里面处理.这里我就不写了.
      b(0, 0).Text = "1e2c3350": DrawBox 0, 0
      '设置第二列第一行点击时文本框要增加的文本
      '其它的如此类推
      b(1, 0).Text = "352488ef": DrawBox 1, 0
    
      '设置第3列第3行为红格,至于你说的右边什么死格..我不知道什么意思.你自己写吧
      '其它的如此类推
      b(2, 2).Red = True: DrawBox 2, 2
End Sub
Private Sub DrawBox(ByVal Col As Byte, ByVal Row As Byte)     '画格子:列,行,
      Dim Color As Long
      If b(Col, Row).Red Then
          Color = &HFF&       '红格
      Else
          Color = IIf(b(Col, Row).Click, &HFF0000, &HC0C0C0) '如果是点击状态>蓝色,否则灰色
      End If
      Form1.FillColor = Color
      Form1.Line (Col * W, Row * H)-(Col * W + W, Row * H + H), , B
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      If X > W * 55 Or Y > H * 22 Then Exit Sub
      Dim Col As Byte
      Dim Row As Byte
      Col = (X - X Mod W) / W
      Row = (Y - Y Mod H) / H
      If b(Col, Row).Red Then Exit Sub '如果是红否.直接退出过程
      b(Col, Row).Click = Not b(Col, Row).Click: DrawBox Col, Row '如果不是点击状击态>设为点击状态,否则设为非点击状态
      '接下来你想咋地咋地
      '例如 , text1增加相应的字符:
      Text1.Text = Text1.Text & b(Col, Row).Text
End Sub
Private Sub Text1_Change()
End Sub
----------------------------------------------------------------