动态生成带事件的MsFlexGrid

最新推荐文章于 2025-08-09 11:49:35 发布

原创最新推荐文章于 2025-08-09 11:49:35 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

VB 专栏收录该内容

8 篇文章

订阅专栏

博客展示了在VB中使用WithEvents声明VBControlExtender变量，加载MSFlexGrid控件的代码，设置了控件的位置、大小、可见性等属性，还编写了控件事件处理程序，使用Select Case语句处理Click等事件。

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