20CN网络安全小组论坛 - 编程破解 - 帮我看看这段VB代码

论坛: 编程破解标题: 帮我看看这段VB代码

作者: thirdworld [thirdworld]

论坛用户

写的目的是：
按cmd(0)后加载上100个button键，每行10个，共10行，按cmd(1)后全卸载了
出现的问题：
就是它说cmd(i)已加载，可我明明一开始只加了cmd(0)和cmd(1),循环从2开始的。

源代码：
Private Sub cmd_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
'当按cmd（0）时，准备加载100个按扭
For i = 2 To 101
Load cmd(i)
' 第i个的高度比它前个低500
cmd(i).Top = cmd(i - 1).Top - 500
' 第一行与cmd(0)的左间距一样
cmd(i).Left = cmd(0).Left
cmd(i).Caption = "button" & i
' 当i=11,21,31.....时另起一行，top重新为cmd(0)的top,left比前个left多500
If (i - 2) Mod 10 = 9 Then
cmd(i).Top = cmd(0).Top
cmd(i).Left = cmd(i - 1).Left + 500
End If
Next i
Case 1
'按cmd(1)时卸载
For i = 2 To 101
Unload cmd(i)
Next i
End Select
End Sub

谢谢指教。

[此贴被夜空游离(thirdworld) 在 09月24日21时39分编辑过]

地主发表时间: 04-09-24 20:29

论坛: 编程破解