用VB做控件

来源：百度知道 编辑：UC知道 时间：2024/09/24 00:54:07
我想用VB做一个控件时,自己加一个新的属性shape,比如当控件属性shape为0时是一个绿色的实心圆,当为1时是一个红色的圆,请哪位高手写个原代码给我，万分感谢！
比如说做一个简单的指示灯,使它改变颜色!
谢谢你,只不过我要做的是控件,而且比这更复杂,我要做三角形的怎么办?或者其它的形状,我想在控件里增加一个新的属性,由我自定义它的值,定义0为红色,1我绿色,2为黄色,等

就直接用VB里的Shape控件即可
在设计时或Form_Load里设置：
Shape1.Shape = 3 '圆形
Shape1.FillStyle = 0 '填充样式
Shape1.BorderStyle = 0 '边框样式

运行时改变：
Shape1.FillColor = &HFF00& '绿色
Shape1.FillColor = &HFF& '红色

--------------------------------------
增加shape属性(从工具→添加过程)
Public Property Let shape(ByVal Fi As Long)
Select Case Fi
Case 0
Shape1.FillColor = &HFF00&
……
End Select

End Property

我想你大概是要做非矩形的控件
VB可以用掩码图像实现非矩形的控件
UserControl.MaskColor
UserControl.MaskPicture

--------------------------------
把控件的BackStyle设为0
做一个黑白的bmp图片给MaskPicture
MaskColor设为白色
那么黑色部分就是你的控件形状