繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 动态生成带事件的MsFlexGrid
- ASP.NET
- 从一个舆论调查的制作谈面向对象的编程思路（二）
- 从一个舆论调查的制作谈面向对象的编程思路（三）
- 从一个舆论调查的制作谈面向对象的编程思路（四）
- 从一个舆论调查的制作谈面向对象的编程思路（五）
- c#写的五子棋程序，供学习WinForms的鼠标事件和使用GDI+
- 我对.Net技术中asp.net应用的一点看法
- ASP.NET连SQL7接口源代码
- ASP.NET中密码保护，MD5和SHA1算法的使用
- 微软的远程处理框架.NET Remoting - 1
- 微软的远程处理框架.NET Remoting - 2
- 黑客写出了针对.Net平台的反编译器
- 在config.web中保存数据库连接串
- 在ASP.Net中两种利用CSS实现多界面的方法
- ASP.NET中如何调用存储过程
- ASP.NET中取代ASP的RS(Remote Scripting)技术的Framework
- 刚学ASP.Net，学了个简单的计算器
- ASP.NET 链接数据库基础
- 一个简单的加密/解密方法
- 加入身份验证信息的SMTP mail发送
- webconfig的设置节点说明
ASP.NET 中的 动态生成带事件的MsFlexGrid
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 144 ::
收藏到网摘: 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
