VB 自制控件

Question

在VB中添加自定义控件:比如是用的textbox和shape组合,怎么让自定义控件继承TEXTBOX的所以属性呢?怎样定义自定义控件的事件及如何触发!
谢谢

Answer 1

使用映射可以做到一模一样的方法属性事件事件使用Public Event来定义触发也与类中是一样,RaiseEvent函数

Answer 2

RaiseEvent 触发不会弄呢,可否贴点示例代码,谢谢

Answer 3

vb6没有提供这种机制来继承控件的属性。只有自己来实现，如Event Change()public property get BackColor  as ole_color
    BackColor = Text1.BackColor
end propertypublic property let BackColor (byval vData as ole_color)
    Text1.BackColor = vData
    PropertyChange "BackColor"
end propertyprivate sub Text1_Change()
    RaiseEvent Change()
end sub

Answer 4

嗯,我以为有其他的方法呢
RaiseEvent也可以用了
现在还有一个问题再请教一下,比如定义控件的alignment属性,怎么让实例在应用时会动枚举出属性值供选择呢?
谢谢

Answer 5

使用枚举类型即可以在属性窗口里面选择。如：Public Property Get Alignment() As AlignmentConstants
    Alignment = Text1.Alignment
End PropertyPublic Property Let Alignment(ByVal vData As AlignmentConstants)
    Text1.Alignment = vData
    PropertyChanged "Alignment"
End Property