VB 控件中如何设置属性?
来源:互联网 发布:如何用网络发短信 编辑:程序博客网 时间:2024/04/25 21:35
如果你要增加一个属性 MyString,代码如下:
Const DEFAULT_VALUE_MyString = "I love Visual Basic"
Dim m_strMyStringHolder '成员变量
Public Property Get MyString() As String
MyString = m_strMyStringHolder
End Property
Public Property Let ss(ByVal strMyString As String)
m_strMyStringHolder = strMyString
PropertyChanged "MyString"
End Property
然后,在相应的 Rread-/WriteProperties 里面增加对应的语句,用于属性的持久性(Persistence):
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
' Syntac pattern:
' somevar = PropBag.ReadProperty("PropertyName", defaultvalue)
m_strMyString = PropBag.ReadProperty("MyString", DEFAULT_VALUE_MyString)
End Sub
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("MyString", m_strMyString, DEFAULT_VALUE_MyString)
End Sub
VB 5/6 都有 ActiveX Control Interface Wizard Addin,用它来做很轻松。
Const DEFAULT_VALUE_MyString = "I love Visual Basic"
Dim m_strMyStringHolder '成员变量
Public Property Get MyString() As String
MyString = m_strMyStringHolder
End Property
Public Property Let ss(ByVal strMyString As String)
m_strMyStringHolder = strMyString
PropertyChanged "MyString"
End Property
然后,在相应的 Rread-/WriteProperties 里面增加对应的语句,用于属性的持久性(Persistence):
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
' Syntac pattern:
' somevar = PropBag.ReadProperty("PropertyName", defaultvalue)
m_strMyString = PropBag.ReadProperty("MyString", DEFAULT_VALUE_MyString)
End Sub
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("MyString", m_strMyString, DEFAULT_VALUE_MyString)
End Sub
VB 5/6 都有 ActiveX Control Interface Wizard Addin,用它来做很轻松。
- VB 控件中如何设置属性?
- VB,如何设置自定义控件的默认属性
- VB中如何让text控件设置成透明
- Storyboard/代码设置中设置控件属性
- VB控件VSFlexGrid 属性
- VB枚举控件属性
- VB6:自定义控件如何设置默认属性
- VB属性设置
- SQL语句中使用VB控件的属性或变量
- VB中WinSock控件的属性、方法、事件及应用
- VB中WinSock控件的属性、方法、事件及应用
- VB中WinSock控件的属性、方法、事件及应用
- VB中WinSock控件的属性、方法、事件及应用
- NetAdvantage中控件设置个性属性问题
- Android 在代码中设置控件属性
- Android代码中设置控件属性
- Flex中如何遍历TabBar控件的各个Tab,并且通过labelPlacement属性设置标签位置
- 如何:在 ASP.NET 网页中设置控件的 HTML 属性
- Notes about NLP and IR
- linux多媒体播放
- thinkpad t60 显卡驱动在suse10.2下的安装方法
- Ubuntu edgy 硬盘安装找不到ISO
- 用ado.net访问sybase
- VB 控件中如何设置属性?
- [转帖]sybase数据库备份方案
- from:internet
- 项目管理艺术 1.1
- 昆明有没有spring+struts+hibernate的培训机构或者学校?
- Fedora Core 6添加字体超级简单,其下的matlab显示中文也是巨简单
- 最近的学习。。。。。
- 对已经存在的TCP系统进行登录验证
- form 表单元素重置(reset)解决方案