'TRY MY CODES WRITE FOR YOU
'add a commandbutton whose name is "newbutton"and index is 0,visiable is false
Option Explicit
Private Sub Form_Click()
addcmdline
End Sub
Sub addcmdline()
Me.WindowState = 2
On Error Resume Next
Dim i As Long
For i = 0 To 99
Load NEWBUTTON(i)
NEWBUTTON(i).Left = (i Mod 10) * 1000 + 1050
NEWBUTTON(i).Top = (i \ 10) * 500 + 550
NEWBUTTON(i).Caption = "cmd" & i
NEWBUTTON(i).Width = 900
NEWBUTTON(i).Height = 400
NEWBUTTON(i).Visible = True
Next
Me.ForeColor = vbRed
Me.DrawWidth = 3
For i = 0 To 10
Me.Line (1000, 500 + i * 500)-(11000, 500 + 500 * i)
Me.Line (1000 + i * 1000, 500)-(1000 + 1000 * i, 5500)
Next
End SubPrivate Sub newbutton_Click(Index As Integer)
MsgBox " You have clicked " & NEWBUTTON(Index).Caption, 64
End Sub
'add a commandbutton whose name is "newbutton"and index is 0,visiable is false
Option Explicit
Private Sub Form_Click()
addcmdline
End Sub
Sub addcmdline()
Me.WindowState = 2
On Error Resume Next
Dim i As Long
For i = 0 To 99
Load NEWBUTTON(i)
NEWBUTTON(i).Left = (i Mod 10) * 1000 + 1050
NEWBUTTON(i).Top = (i \ 10) * 500 + 550
NEWBUTTON(i).Caption = "cmd" & i
NEWBUTTON(i).Width = 900
NEWBUTTON(i).Height = 400
NEWBUTTON(i).Visible = True
Next
Me.ForeColor = vbRed
Me.DrawWidth = 3
For i = 0 To 10
Me.Line (1000, 500 + i * 500)-(11000, 500 + 500 * i)
Me.Line (1000 + i * 1000, 500)-(1000 + 1000 * i, 5500)
Next
End SubPrivate Sub newbutton_Click(Index As Integer)
MsgBox " You have clicked " & NEWBUTTON(Index).Caption, 64
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货