精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>Re:请教~~关于数组控键问题~

主题:Re:请教~~关于数组控键问题~
发信人: 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



----
 
重出江湖! 

[关闭][返回]