我想做一个自定义控制件

Question

我在VB中做个自定义控件,自定义控件里面有四个TEXT文本框,在调用控件的时候如何能弄读到文本框中的数据,可以赋值给他,还可以控制高度

Answer 1

控件中的代码：Option Explicit'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text1,Text1,-1,Text
Public Property Get Text01() As String
    Text01 = Text1.Text
End PropertyPublic Property Let Text01(ByVal New_Text01 As String)
    Text1.Text() = New_Text01
    PropertyChanged "Text01"
End Property'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text2,Text2,-1,Text
Public Property Get Text02() As String
    Text02 = Text2.Text
End PropertyPublic Property Let Text02(ByVal New_Text02 As String)
    Text2.Text() = New_Text02
    PropertyChanged "Text02"
End Property'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text3,Text3,-1,SelText
Public Property Get Text03() As String
    Text03 = Text3.Text
End PropertyPublic Property Let Text03(ByVal New_Text03 As String)
    Text3.Text() = New_Text03
    PropertyChanged "Text03"
End Property'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text4,Text4,-1,Text
Public Property Get Text04() As String
    Text04 = Text4.Text
End PropertyPublic Property Let Text04(ByVal New_Text04 As String)
    Text4.Text() = New_Text04
    PropertyChanged "Text04"
End Property'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)    Text1.Text = PropBag.ReadProperty("Text01", "Text1")
    Text2.Text = PropBag.ReadProperty("Text02", "Text2")
    Text3.Text = PropBag.ReadProperty("Text03", "Text3")
    Text4.Text = PropBag.ReadProperty("Text04", "Text4")
End Sub'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)    Call PropBag.WriteProperty("Text01", Text1.Text, "Text1")
    Call PropBag.WriteProperty("Text02", Text2.Text, "Text2")
    Call PropBag.WriteProperty("Text03", Text3.Text, "Text3")
    Call PropBag.WriteProperty("Text04", Text4.Text, "Text4")
End Sub
假设控件实例名称为MyText，则MyText.Text01、MyText.Text02、MyText.Text03、MyText.Text04分别对应四个文本框中的Text属性。调整高度的代码也是如此。