IDC资讯中心
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
