[Visual Basic 6.0] 利用 Load 指令新增物件

2013-11-07

摘要:[Visual Basic 6.0] 利用 Load 指令新增物件

如果當遇到寫五子棋、踩地雷之類的遊戲時。通常需要利用到非常多的物件，當然最基本的做法就是不斷的複製貼上。但這樣太辛苦了，有什麼方法可以解決呢? 那就是使用 Load 指令了！

初始化：

效果：

'一開始必須先把要拿來建立陣列的物件 Index 屬性 設為 0 (或是把它變成陣列物件)
Dim I
Private Sub 按鈕_Click(Index As Integer)
MsgBox "這個是第" & Index + 1 & "個按鈕"
End Sub

Private Sub 開始新增_Click()
I = I + 1
If I > 63 Then MsgBox "已經超過 8x8 的規格": Exit Sub
Load 按鈕(I) ' 新增物件
按鈕(I).Visible = True
按鈕(I).Left = 按鈕(I - 1).Left + 500
按鈕(I).Top = 按鈕(I - 1).Top
If I Mod 8 = 0 Then
    按鈕(I).Top = 按鈕(I - 1).Top + 500
    按鈕(I).Left = 120
End If

End Sub

簡單來說，在使用 Load 指令之前，必須先手動在表單上建立一個陣列物件 ( 將Index 設為 0 )。

Load 物件(Index) ' 新增物件
物件(Index).Visible = True ' 顯示物件

之後就是 Width、Height、Top、Left 等屬性改變位置、大小等等...

指令新增物件.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁