'我用TextBox 和Command 组合做了一个控件,怎么才能把textbox 的 datasource 和datafield 属性在新控件的属性区中显示

Question

'我用TextBox 和Command 组合做了一个控件,怎么才能把textbox 的 datasource 和datafield 属性在新控件的属性区中显示

Answer 1

Public Property Get DataField() As VariantEnd PropertyPublic Property Let DataField(ByVal vNewValue As Variant)End PropertyPublic Property Get DataSource() As VariantEnd PropertyPublic Property Let DataSource(ByVal vNewValue As Variant)End Property

Answer 2

Public Property Get DataSource() As Variant
   DataSource = text1.DataSource
End PropertyPublic Property Let DataSource(ByVal vNewValue As Variant)
    text1.DataSource = vNewValue
    PropertyChanged "Datasource"
End Property
说类型不匹配

Answer 3

Public Property Get DataSource() As Variant
  set DataSource = text1.DataSource  '我用set 
End PropertyPublic Property Let DataSource(ByVal vNewValue As Variant)
    text1.DataSource = vNewValue
    PropertyChanged "Datasource"
End Property
'我用set 没提示错误但属性窗口中没有

Answer 4

这种情况应该是这样处理：
首先，你的控件应该有一个Text属性（当然起其他名字也行），将它委派给Text1.Text，这样你的控件代码中应该有如下代码。'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text1,Text1,-1,Text
Public Property Get Text() As String
    Text = Text1.Text
End PropertyPublic Property Let Text(ByVal New_Text As String)
    Text1.Text() = New_Text
    PropertyChanged "Text"
End Property'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Text1.Text = PropBag.ReadProperty("Text", "Text1")
End Sub'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Text", Text1.Text, "Text1")
End Sub然后，点击“工具->过程属性”菜单，弹出“过程属性对话框”，在名称列表中选择“Text”，再点击“高级>>”按钮，在下面的“属性为数据绑定”和“绑定该属性到数据字段”两个检查框中打勾，最后点击“确定”按钮即可。