动态生成带事件的MsFlexGrid

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

本文地址：http://com.8s8s.com/it/it42047.htm