1.建立一个ActiveX工程。
2.像画form一样来画您想要的控件。
3.picture,caption属性
Public property get picture
picture =picture1.pciter
end property
Public property let picture (vdata as string )
picture1.pciture=vdata
end property (caption属性同样)
3.继承image事件
首先声明一个事件和image和一样的如Click
public event Click(一样参数)
在控件接收image的click事件时
sub image_click(参数)
raise event click(参数)
end sub
4.调整activex控件大小:
usertrol_resize事件写
sub usertrol_resize
dim f as form
set f=usercontrol.parent
usercontrol.width=f.width
usercontrol.height=f.height