7453
社区成员
- 主页
我想做一个ocx控件，怎么做？
1。我想做一个ocx控件，把image上面加上一个label合成一个控件
要在新控件有picture,caption等属性，怎样继承image的事件，方法？
2。还有一个问题，怎样控制控件和form大小变化，排列不会走行？
要在新控件有picture,caption等属性，怎样继承image的事件，方法？
2。还有一个问题，怎样控制控件和form大小变化，排列不会走行？
...全文
请发表友善的回复…
发表回复
kimurakenshin 2004-01-07
MSDN
linazhu 2004-01-07
gz
ABitTrouble 2003-12-25
to hspring(乐天) :
thanks,我知道在窗体里添加image,label等控件
然后在文件菜单下，点击生成工程1.ocx即可，但我不知道怎样控制
picture,caption等属性，怎样继承image的事件，方法？
第二个问题是控件随form变化而变化，而且是按比例变。
thanks,我知道在窗体里添加image,label等控件
然后在文件菜单下，点击生成工程1.ocx即可，但我不知道怎样控制
picture,caption等属性，怎样继承image的事件，方法？
第二个问题是控件随form变化而变化，而且是按比例变。
hspring 2003-12-25
1.
你在打开VB时选择新建一个ACTIVE控件，然后为其添加窗体，
在窗体里添加image,label等控件
然后在文件菜单下，点击生成工程1.ocx即可。
2.
我没大懂你的意思，你是说在运行窗体的时候不可以改变窗体的大小吗？
如果是这样，你把窗体的Borderstyle属性改为1，即可
你在打开VB时选择新建一个ACTIVE控件，然后为其添加窗体，
在窗体里添加image,label等控件
然后在文件菜单下，点击生成工程1.ocx即可。
2.
我没大懂你的意思，你是说在运行窗体的时候不可以改变窗体的大小吗？
如果是这样，你把窗体的Borderstyle属性改为1，即可
ABitTrouble 2003-12-25
to suyoupeng6(恼人):
你说的非常有道理，我也非常感谢你的教诲。但我现在确实很急，我相信我能找资料看懂，但到时候已经毫无意义了，术业有专攻，你觉得容易，就请不吝赐教了。再次非常感谢！！！
你说的非常有道理，我也非常感谢你的教诲。但我现在确实很急，我相信我能找资料看懂，但到时候已经毫无意义了，术业有专攻，你觉得容易，就请不吝赐教了。再次非常感谢！！！
usaspy 2003-12-25
对啊！！~
用VB做控件的例子网上很多啊 搜一搜，准能找到的。先了解一下再说好吧
用VB做控件的例子网上很多啊 搜一搜，准能找到的。先了解一下再说好吧
suyoupeng6 2003-12-25
查找有关的书籍,做一个ACTIVEX控件都要问的话,我们这里不就是一个****地方了吗?自己找到出路后,有更深不 能自己弄懂的问题再来这问吧.
m1c7 2003-12-25
还有一个方法用API
也可以的！
比这简单
但需要你会调用！
也可以的！
比这简单
但需要你会调用！
landongfang 2003-12-25
第二个问题是控件随form变化而变化，而且是按比例变。
添加一个时间控件
根据父窗口,改变自己
添加一个时间控件
根据父窗口,改变自己
张新林 2003-12-25
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
end sub
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
end sub
ABitTrouble 2003-12-25
怎样知道image的picture属性对应哪个类，其他的属性怎么对应，有什么方法可以查出来。
事件怎样继承或定义？
事件怎样继承或定义？
evbsky 2003-12-25
工程-引用-ActiveX控件接口, 需要的属性映射就行了