VB,如何设置自定义控件的默认属性

       其实,这个问题没什么技术含量,可是偏偏许多人不知道,于是有了这篇文章。

       首先,新建一个ActiveX Control工程,在界面上放一个TextBox,然后,打开代码窗口,输入如下代码:

Public a As String

 

Public Property Get Value() As String

    a = Text1.Text

    Value = a

End Property

 

Public Property Let Value(ByVal vNewValue As String)

    a = vNewValue

    Text1.Text = a

End Property

 

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    Call PropBag.ReadProperty("Value")

End Sub

 

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    PropBag.WriteProperty "Value", a

End Sub

 

现在,我们已经为控件封装好了一个“Value”属性,接下来,我们设置该属性为控件的默认属性,步骤如下:

在代码窗口打开的前提下,点击“工具”菜单,选择“过程属性”,在“名称”一栏中选择“Value

 

然后,点击“高级”按钮,在“过程标识符”中,选择“(缺省)”,最后,点击“应用”按钮,编译即可。

 

 

其实,这样也可以,用记事本打开相应的ctl文件,这里我们设置“Value”属性为控件的默认属性,找到:

Public Property Get Value() As String

    a = Text1.Text

    Value = a

End Property

 

添加一句:Attribute Value.VB_UserMemId = 0,让它变成:

Public Property Get Value() As String

Attribute Value.VB_UserMemId = 0

    a = Text1.Text

    Value = a

End Property

然后,保存,编译即可

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值