Question

在窗体上建立一个由100个命令按钮组成的10行10列控件数组 （vb编程）

Answer 1

20QB! ‘’‘’‘’‘’‘’‘先加载一个控件，然后以这个控件为基础，逐个load 数组控件，直到完成，每隔10控件改变一个控件的相对位置...

Option Explicit

Private Sub Form_Load()

    Command1(0).Width = 1000

    Command1(0).Height = 500

 Dim I As Long

 

 For I = 1 To 119

      Load Command1(I)

          

     Command1(I).Width = 1000

     Command1(I).Height = 500

      If I Mod 10 = 0 Then

        Command1(I).Left = Command1(I - 1).Left + 1100

        Command1(I).Top = Command1(0).Top

      Else

        Command1(I).Left = Command1(I - 1).Left

        Command1(I).Top = Command1(I - 1).Top + 550

      End If

  

  Command1(I).Caption = I

  Command1(I).Visible = True

  Command1(I).Enabled = True

  

 Next

End Sub

Answer 2

在窗体上放入一个Command1，将其Index属性设为0。代码如下：

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 99
If i > 0 Then
Load Command1(i)
Command1(i).Visible = True
End If
Command1(i).Caption = i + 1
Command1(i).Move (i Mod 10) * 450 + 30, (i \ 10) * 300 + 30, 420, 270
Next
End Sub