|
(彩色的是说明,黑色是自动生成的ocx源码,大虾帮忙按要求改一下) </center>
(还是VB 制作ocx方法 谢谢) </center>
(就是下面这一段代码我定义了两个string属性,) </center>
(我想让调用时给str1赋值“sunjie” ) </center>
(程序中自动改变str2的属性改变设置为 ) </center>
( str1 & len“sunjie” 即 ”sunjie6“ ) </center>
(----------------------------------------------------------------------) </center>
'缺省属性值:
Const m_def_str2 = "0"
Const m_def_str1 = "0"
'属性变量:
Dim m_str2 As String
Dim m_str1 As String
'注意!不要删除或修改下列被注释的行!
'MemberInfo=13,0,0,0
Public Property Get str1() As String
str1 = m_str1
End Property
Public Property Let str1(ByVal New_str1 As String)
m_str1 = New_str1
PropertyChanged "str1"
End Property
'为用户控件初始化属性
Private Sub UserControl_InitProperties()
m_str1 = m_def_str1
m_str2 = m_def_str2
End Sub
'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_str1 = PropBag.ReadProperty("str1", m_def_str1)
m_str2 = PropBag.ReadProperty("str2", m_def_str2)
End Sub
'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("str1", m_str1, m_def_str1)
Call PropBag.WriteProperty("str2", m_str2, m_def_str2)
End Sub
'注意!不要删除或修改下列被注释的行!
'MemberInfo=13,0,0,0
Public Property Get str2() As String
str2 = m_str2
End Property
Public Property Let str2(ByVal New_str2 As String)
m_str2 = New_str2
PropertyChanged "str2"
End Property
(问题补充:-------------------------------------------------------------------------------------------) </center>
(上面的代码是自动生成的,帮我添加一下,谢谢,麻烦你了,查资料真的不太好查 ) </center>
(留给QQ给我吧 sunjie718@126.com) </center> |
阿莫论坛20周年了!感谢大家的支持与爱护!!
曾经有一段真挚的爱情摆在我的面前,我没有珍惜,现在想起来,还好我没有珍惜……
|