要在执行期间新增物件可以用 Load 指令
不过 VB 好像不能 LOAD 一个单独的物件
你可以先拉一个当样本
然后将那个样本物件设定成阵列的第一个元素
利用那个物件来产生新的物件
试试这样...
1.先拉一个要当样本的物件(范例用 CommandButton )
2.将 Name 改成 cb
3.Index 属性的值填上 0
复制程式
Option Explicit '强迫使用变数都必须宣告
Dim tmp As Integer '存放物件数量的变数
Private Sub cb_Click(Index As Integer)
tmp = cb.Count 'cb 这个物件阵列的物件数量
Load cb(tmp) '载入下一个物件(因为 Index 是从 0 开始算, 所以恰好下一个的 Index 就是 Count)
cb(tmp).Visible = True '将新物件的显示属性设成 True
cb(tmp).Caption = "cb(" & tmp & ")" '更改新物件标题
'↓指定新物件大小及位置
cb(tmp).Move 8, cb(tmp - 1).Top + cb(tmp - 1).Height + 8, cb(0).Width, cb(0).Height
End Sub
Private Sub Form_Load()
Me.ScaleMode = 3 '让表单的绘图单位以像素计算
End Sub 还有跟着游标的棋子Image改成以滑鼠游标来呈现应该会顺畅些
图档也可以以资源档的形式包夹在执行档里头
这样就不用把图档随执行档一同附上
也不用担心档案位置的问题了
