发信人: bccchs()
整理人: winsy(2003-04-23 17:20:41), 站内信件
|
【 在 tonycl 的大作中提到:】
楼上说的对,太多的控件是不好的选择,不过这里可以给你提供一个实现
你要求的过程:
放一个Command在桌面,把它的Index设置为0就可以用使用这个过程指定参数
来身成矩阵控件数组。
PS:代码编写匆忙没有进行任何优化,目的只是为传递编程逻辑。
Private Sub AddCommands(Optional ByVal X1 As Integer = 4, Optional ByVal Y1 As Integer = 5)
Dim I As Long, J As Long, Num As Long
Const CmdWidth = 32
Const CmdHeight = 32
With Command1(0)
.Width = 32
.Height = 32
.Left = 0
.Top = 0
.Caption = "0x0"
End With
Num = 0
For I = 1 To Y1
For J = 1 To X1 - 1
Load Command1(Num + 1)
With Command1(Num + 1)
.Caption = J & "x" & I
.Left = J * CmdWidth
.Height = 32
.Width = 32
.Top = Command1(Num).Top
.Tag = Num
.Visible = True
End With
Num = Num + 1
Next
J = 1 'I don't understand why. but we need this code
If Num = (X1 * Y1 - 1) Then Exit For
Load Command1(Num + 1)
With Command1(Num + 1)
.Caption = J & "x" & I
.Left = 0
.Top = I * CmdHeight
.Height = 32
.Width = 32
.Tag = Num
.Visible = True
End With
Num = Num + 1
Next
End Sub
----
重出江湖! |
|