动态生成带事件的MsFlexGrid

新客网 XKER.COM 2005-01-17 来源： 收藏本文

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

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决