data properties

[vishalmarya]

I want to create an activex control with properties

databindings,datasource,datafield,dataformat,datamember.

how do i create these properties ?

[peet]

Option Explicit
 
Private mvar_datasource As String
Private mvar_databindings As String
 
Public Property Get databindings() As String
    databindings = mvar_databindings
End Property
 
Public Property Let databindings(ByVal vNewValue As String)
    mvar_databindings = vNewValue
End Property
 
Public Property Get datasource() As String
    datasource = mvar_datasource
End Property
 
Public Property Let datasource(ByVal vNewValue As String)
    mvar_datasource = vNewValue
End Property
'.
'.
'.
'.
'.
'.
'.

[ozerbursa]

Firstly you must create a property for example Text property for Textbox in your activex control. Then from <Tools> menu select <Procedure Attributes>. In the window select Text property. After that click <Advanced> button, at the bottom of the window you can see <Data Binding> frame. Click <Property is data bound> check box and next two items which are <This property binds to DataField>,<Show in DataBindings collection at design time> and that's all. Good Luck.

[peet]

Originally posted by vishalmarya
I want to create an activex control with properties

databindings,datasource,datafield,dataformat,datamember.

how do i create these properties ?

I think he wants to make a control of his own... or?