VB6中動態控件的事件處理

Question

如何在VB6中實現動態控件的事件處理？有任何想法嗎？

Answer 1

最簡單的方法是聲明與控件相同類型的模塊級變量，並使用WithEvents關鍵字。例如

Option Explicit 
' Declare object variable as CommandButton and handle the events.' 
Private WithEvents cmdObject As CommandButton 

Private Sub Form_Load() 
    'Add button control and keep a reference in the WithEvents variable' 
    Set cmdObject = Form1.Controls.Add("VB.CommandButton", "cmdOne") 
    cmdObject.Visible = True 
    cmdObject.Caption = "Dynamic CommandButton" 
End Sub 

'Handle the events of the dynamically-added control' 
Private Sub cmdObject_Click() 
    Print "This is a dynamically added control" 
End Sub 

如果您希望能夠通過一箇中央例程處理來自許多不同類型控件的事件，則會有更復雜的變化。

Answer 2

這取決於控件是否是內在的。

This文章解釋它。