請問:
1.如何使動態新增的控制項陣列能使用其事件??
2.嘗試以Button及Label做動態新增,結果Button可以順利使用其Click事件,而Label卻無法使用,請問是不是少了些什麼…‥
程式碼如下:
Dim WithEvents testLabel As Label
Private Sub Command1_Click()
Set testLabel = Controls.Add("VB.Label", "testLabel")
testLabel.BorderStyle = 1
testLabel.DragMode = 1
testLabel.Caption = "testLabel"
testLabel.Left = 1000
testLabel.Top = 500
testLabel.Visible = True
End Sub
Private Sub testLabel_Click()
MsgBox Form1.ActiveControl.Name
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()