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

豆浆兄代码的效率非常好，建议楼主试下。

控件数组或者Controls对象，以及CreateWindowEx的SDK编程。

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

问题1：
Public Sub CreatTable()
     ....
     ....
     Pic1.Line (2 * 20 + 1, 2 * 20 + 1)-(2 * 20 + 18, 2 * 20 + 18), vbRed, BF
      Pic1.Picture = Pic1.Image: Pic1.Cls: Text1.object.Text = ""
End Sub
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
         ....
         ....
          ix = X \ 20: iy = Y \ 20
          If ix = 2 And iy = 2 Then Exit Sub
         ....
         ....
End Sub
问题2：
不知道你要显示什么数据 CreatTabStr() 就是专门留给你自己发挥用的
00 01 … 0E 0F之类 保持2位数的十六进际数字：
dim a as byte, s as string
a=15
s=mid(hex(256+a), 2, 2)


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

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

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


公司电脑没装 MICROSOFT OFFICE2003

Dim WithEvents Text1 As VBControlExtender
Licenses.Add "Forms.TextBox.1", "Forms.TextBox.1"
Set Text1 = Me.Controls.Add("Forms.TextBox.1", "TextBox1", Me)
Text1.object.MultiLine = True: Text1.object.ScrollBars = 2
---------------------------------------------------------------
把上面这些句子删除 然后在窗体里加入一个TEXTBOX
设置 MultiLine = True   、 ScrollBars = 2
然后把所有 object.Text 替换成 Text


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


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

造25楼的改 不需要别的支持

用那么多控件不是好办法啊.直接把数据存数组里,然后在窗口中画出相应该的方格就好了.
鼠标点击的时候 (x - x mod 方格宽度 )/方格列数 就可以得出你点的方格是第几列的.同理算出第几行,然后再执行相应动作。
如果数据的结构复杂一点,用自定变量类型 TYPE 来偖存方格的数据
再复杂一点,要跟控件那样有属性方法等,就写成class了.

实在不好意思，又麻烦雀巢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
可惜又产生另一处错误。无奈。。。。