自定义控件的问题

Question

请教高手:如果用一个现有控件来做自定义控件的话,如果在VB6的控件接口向导中的第二个窗口的可选名称栏中没有出现现有控件的某个重要属性或方法,该怎么办呢?如果没有的话,就不能往选定名称栏中加了.这时我应该怎么办呢?怎么把这个重要的东西找到添加到右边的选定名称栏中呢?请大家指点下.多谢了!

Answer 1

如果没有,你随便添加一个属性看看代码.再将些属性中的名称都改为你认为重要的那个属性名称.比如:
'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text1,Text1,-1,Enabled
Public Property Get Enabled() As Boolean
    Enabled = Text1.Enabled
End PropertyPublic Property Let Enabled(ByVal New_Enabled As Boolean)
    Text1.Enabled() = New_Enabled
    PropertyChanged "Enabled"
End Property'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)    Text1.Enabled = PropBag.ReadProperty("Enabled", True)
End Sub'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)    Call PropBag.WriteProperty("Enabled", Text1.Enabled, True)
End Sub
'以上是 Text 的 Enabled 属性.
'如果你要 Text 的重要属性 fvflove (设定Text的此属性)
'那你就将上面的 Enabled 全改为 fvflove ,再看一下属性的数据类型是否对.再修正一下.

Answer 2

不太明白是个啥意思... 控件里 你就把那个控件当成普通窗体里的控件,然后你在里面随便写个PRIVATE SUB XXX
'这放让他初始话的代码
END然后在控件的INITXXX  忘记这个咋拼了 的初始化里 加上 XXX就可以了