繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 动态生成带事件的MsFlexGrid
- ASP.NET
- ACCESS数据库访问组件（三）
- ACCESS数据库访问组件（四）
- 在ASP.NET访问Excel文件
- 使用正则表达式解析的初步体会(固定格式网页解析)
- 一段找出URL的代码（C#）
- C#中的转意字符序列
- 创建表，创建行，创建列（VB.NET）
- 刀兄写的IIS管理类（C#）
- 索引服务调用代码（C#）
- VB.NET里奇怪的数组赋值现象
- C#运算符的优先顺序
- [初学VB.NET]如何防止重复打开MDI子窗体
- 第二版出错的地方，大家看看第三版我的翻译对么？
- VB的API编程精粹
- 表格架构基本框架DEMO码
- 用C＃实现在客户区拖动窗体（转自MSDN）
- 在ASP.NET中利用GDI+ 设计Chart控件
- 关于JAXP，DOM，SAX，JDOM，DOM4J的一些想法
- Nucleus.MockAOP.Net：OpenSource .Net AOP FrameWork
- VB中打印ACCESS报表
ASP.NET 中的 动态生成带事件的MsFlexGrid
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 190 ::
收藏到网摘: n/a
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
评论 (0) All
