VB 6.0 VBControlExtender 添加事件

给你一个资料，你看看就明白了。

' If you are adding an ActiveX control at run-time that is

' not referenced in your project, you need to declare it

' as VBControlExtender.

Dim WithEvents ctlDynamic As VBControlExtender

Dim WithEvents ctlText As VB.TextBox

Dim WithEvents ctlCommand As VB.CommandButton

Private Sub ctlCommand_Click()

ctlText.Text = "You Clicked the Command button"

End Sub

Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)

' test for the click event of the TreeView

If Info.Name = "Click" Then

ctlText.Text = "You clicked " &ctlDynamic.object.SelectedItem.Text

End If

End Sub

Private Sub Form_Load()

Dim i As Integer

' Add the license for the treeview to the license collection.

' If the license is already in the collection you will get

' the run-time error number 732.

Licenses.Add "MSComctlLib.TreeCtrl"

' Dynamically add a TreeView control to the form.

' If you want the control to be added to a different

' container such as a Frame or PictureBox, you use the third

' parameter of the Controls.Add to specify the container.

Set ctlDynamic = Controls.Add("MSComctlLib.TreeCtrl", _

"myctl", Form1)

' set the location and size of the control.

ctlDynamic.Move 1, 1, 2500, 3500

' Add some nodes to the control.

For i = 1 To 10

ctlDynamic.object.nodes.Add Key:="Test" &Str(i), Text:="Test" _

&Str(i)

ctlDynamic.object.nodes.Add Relative:="Test" &Str(i), _

Relationship:=4, Text:="TestChild" &Str(i)

Next i

' Make the control visible.

ctlDynamic.Visible = True

' add a textbox

Set ctlText = Controls.Add("VB.TextBox", "ctlText1", Form1)

' Set the location and size of the textbox

ctlText.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _

1, 2500, 100

' Change the backcolor.

ctlText.BackColor = vbYellow

' Make it visible

ctlText.Visible = True

' Add a CommandButton.

Set ctlCommand = Controls.Add("VB.CommandButton", _

"ctlCommand1", Form1)

' Set the location and size of the CommandButton.

ctlCommand.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _

ctlText.Height + 50, 1500, 500

' Set the caption

ctlCommand.Caption = "Click Me"

' Make it visible

ctlCommand.Visible = True

End Sub

张志晨

再给你一个用我做过的例子，修改的：

Dim WithEvents a As VBControlExtender

Dim WithEvents obj As VB.TextBox

Private Sub a_ObjectEvent(Info As EventInfo)

Select Case Info.Name

Case "Change"

MsgBox "123"

End Select

End Sub

Private Sub Command2_Click()

Dim s As String

s = "RichText.RichTextctrl.1"

Licenses.Add s

Set a = Me.Controls.Add(s, "rtxt")

a.Top = 100

a.Left = 100

a.Visible = True

End Sub

Private Sub ActiveBar1_Click(ByVal Tool As ActiveBarLibraryCtl.Tool)

Select Case Tool.Name

Case "mutopen"

msgbox "..."

End Select

end sub

---