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

按顺序看，看了雀巢vb豆浆兄19楼的第二个问题的解答。有点不惑。。
意思是指，a就是原来的i和j吗？而s就是要求的i和j的十六进际的最终形态吗？
我想我还是重新阐述一下要求，见下图。

还要求是两位数。
希望不鄙指教。。


抑或：最后对text1里面的数再进行处理好一点？

又测试了一下37楼代码，好像有点问题：
点击方格，方格的颜色没有发生变化（没有变蓝）？
我明天上班继续研究研究。

回复：38楼
终于解决了：用Hex()函数。
-------------------------------------------------------
Public Sub CreatTabStr()
    Dim i As Integer, j As Integer
      For i = 0 To 54
         For j = 0 To 21
            TabStr(j, i) = Hex(CStr(j)） + ", " + Hex(CStr(i)）
         Next
      Next
End Sub


十分感谢雀巢vb豆浆兄的回复，
太好了！
---------------------------------------------------
因为41楼有很大的缺陷：
1：一旦负数（假如），就变了FFFFFFFF（-1变成了很多个F）
呵呵，惭愧，我用了Right$(数，2)函数来解决问题。
2：个位的数没能自动补零。
这个我就不懂，找资料也没找到。
我把个位的数用 "0"& 的方式来“补”零。（笨方法）
---------------------------------------------------
学习了。。感谢。。

有个问题关于15楼其中一段代码，代码如下
----------------------------------------------------------------------
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Dim ix As Integer, iy As Integer '定义格子序号
       If Button = vbLeftButton Then '鼠标左键点击？
          ix = X \ 20: iy = Y \ 20 '鼠标点击的坐标数字（单精，X、Y就是）÷格子的宽度=格子的序号（取整数）
          Table(iy, ix) = (Table(iy, ix) + 1) Mod 2 '这行以下代码利用求余数产生“按一下就蓝色、再按一下就变回灰色…”的效果，同时在text1中写入相关数据
          If Table(iy, ix) = 1 Then
             Text1.object.Text = Text1.object.Text + TabStr(iy, ix) + vbCrLf
             Pic1.Line (ix * 20 + 1, iy * 20 + 1)-(ix * 20 + 18, iy * 20 + 18), vbBlue, BF
          Else
             Text1.object.Text = Replace(Text1.object.Text, TabStr(iy, ix) + vbCrLf, vbNullString)
             Pic1.Line (ix * 20 + 1, iy * 20 + 1)-(ix * 20 + 18, iy * 20 + 18), &H80000016, BF
          End If
       End If
End Sub
----------------------------------------------------------------------
问题是：能否设一个按钮，点击就清除了求余数那行代码在内存中的相关数据？意即初始化
又或者：能否设一个按钮，点击就重新加载此程序，并清除此程序之前在内存中贮存的数据？（相当于关了此程序，又在电脑中重新打开一样）
----------------------------------------------------------------------
多次麻烦，希望雀巢vb豆浆兄和各位达人仍不鄙指教。感谢！

原来是这样啊。。
现在我是见一句查一句学一句，没有留意到47楼这开头的两句。。哈哈。。
感谢感谢。。