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文章解释它。