动态创建带事件的控件

原创于 2005-01-13 20:28:00 发布 · 1.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#class #integer #command #测试

VB 专栏收录该内容

8 篇文章

订阅专栏

博客展示了类模块Class1和测试窗体的代码。类模块中定义了与CommandButton相关的属性和点击事件处理。测试窗体代码包含删除控件操作，以及在窗体加载时创建多个CommandButton控件并关联到类模块实例。

'类模块Class1代码：
Option Explicit

Private WithEvents mvarCmBtn As CommandButton
Public Property Set CmBtn(ByVal vData As CommandButton)
Set mvarCmBtn = vData
End Property
Public Property Get CmBtn() As CommandButton

Set CmBtn = mvarCmBtn
End Property

Private Sub mvarCmBtn_Click()
MsgBox mvarCmBtn.Name
End Sub

'测试窗体代码：
Option Explicit
Dim a() As Class1

Private Sub Command1_Click()
Me.Controls.Remove Me.Controls("cmdobj3") '删除控件
End Sub

Private Sub Form_Load()
ReDim a(5)
Dim i As Integer
For i = 0 To 5
Set a(i) = New Class1
Set a(i).CmBtn = Me.Controls.Add("VB.CommandButton", "cmdObj" & i)
a(i).CmBtn.Visible = True
a(i).CmBtn.Top = i * 500
Next i
End Sub