Option Explicit Dim WithEvents objExt As VBControlExtender ' 使用 WithEvents 声明 VBControlExtender 变量
Private Sub LoadControl() 'Licenses.Add "Project1.Control1", "ewrinvcmcoe" Licenses.Add "MSFlexGridLib.MSFlexGrid", _ "72E67120-5959-11cf-91F6-C2863C385E30" Set objExt = Controls.Add("MSFlexGridLib.MSFlexGrid", "myCtl") With objExt .Left = 0 .Top = 0 .Width = Me.ScaleWidth .Height = Me.ScaleHeight .Visible = True ' 该控件在缺省情况下为不可见的。 .ToolTipText = "这是一个MSFlexGrid控件!" End With End Sub
Private Sub Form_Load() LoadControl End Sub
Private Sub objExt_ObjectEvent(Info As EventInfo) ' 使用 Select Case 语句编写控件的事件处理程序。 Select Case Info.Name Case "Click" ' 在此处处理 Click 事件。 MsgBox "click 事件" ' 在这里处理其他情况 Case Else ' 未知事件 ' 在此处理各种未知的事件。 ' MsgBox "else 事件" End Select End Sub 
|