.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
动态生成带事件的MsFlexGrid

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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




相关文章

相关软件