VB6中动态控件的事件处理

问题描述：

如何在VB6中实现动态控件的事件处理？任何想法？

How can i achieve event handling for dynamic controls in VB6? Any ideas?

答

最简单的方法是声明与控件相同类型的模块级变量，并使用 WithEvents 关键字。例如

The easiest way is to declare a module-level variable of the same type as the control, and use the WithEvents keyword. For example

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

如果您希望能够通过一个中央例程处理来自许多不同类型的控件（可能是不同类型的）的事件，则会有更复杂的变化。

There are more complicated variations if you want to be able to handle events from many different controls, perhaps of different types, through one central routine.

VB6中动态控件的事件处理

相关推荐