VB6:自定义控件如何设置默认属性
2007-04-15 17:38
190 查看
其实,这个问题没什么技术含量,可是偏偏许多人不知道,于是有了这篇文章。
首先,新建一个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
然后,保存,编译即可
首先,新建一个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
然后,保存,编译即可
相关文章推荐
- VB,如何设置自定义控件的默认属性
- 如何设置属性为默认的绑定属性
- Android使用后自定义控件如何在该布局文件以外动态的设置自定义控件的属性
- 如何设置Matlab的默认属性?
- 关于Spinner默认显示的文字布局属性与下拉显示的文字布局属性如何分别设置
- 手机卫士手机08-自定义控件的属性设置
- 关于 Visual Studio C#工程属性的Build Events中如何根据编译平台分别设置的解答
- VS2010项目属性的默认包含路径设置方法
- PHP 导出网页表格如何对<td>标签中的内容设置属性
- Android中的基础-----如何使用JAVA动态的添加并设置组件属性
- SkylineGlobe 如何二次开发获取三维模型的BBOX和设置Tint属性
- 如何设置Ubuntu或Redhat下终端窗口的默认大小
- 在VC中,如何修改文件的只读属性设置(转)
- 如何设置windows默认启动用户
- 如何为一个类型为Color的属性设置默认值
- hibernate在设置懒加载的情况下如何立即加载某些属性
- 如何在Xib中设置Button的属性(圆角以及背景颜色)
- 如何设置eclipse默认浏览器
- HTML中的<select>标签如何设置默认选中的选项