Using Objects

[Mc Brain]

Using Objects in UserControls
Is there any way to let the user interact with an object in it?

[crptcblade]

Could you explain a little more?

You can allow access to private objects through a property if that is what you mean...

Public Property Get SomeObject() As SomeObject
    Set SomeObject = mSomeObject
End Property

[Mc Brain]

I mean something like this:

Public Function TV() As TreeView
    Set TV = TreeView
End Function

[crptcblade]

I don't know if it works the same way with functions vs properties, I would use a property. It should allow that.

[Mc Brain]

I'd tried your code as well... but didn't work.

[crptcblade]

What happens? Can you supply the code?

[Lethal]

All you have to do is create an instance of the object in your class and return a ref to the calling code. I would use a property get.

[Mc Brain]

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Private object modules cannot be used in public object modules as parameters or return types for public procedures, as public data members, or as fields of public user defined types
---------------------------
Aceptar Ayuda
---------------------------

[Mc Brain]

Originally posted by Lethal
All you have to do is create an instance of the object in your class and return a ref to the calling code. I would use a property get.

How would you do that?

[crptcblade]

Originally posted by Mc Brain
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Private object modules cannot be used in public object modules as parameters or return types for public procedures, as public data members, or as fields of public user defined types
---------------------------
Aceptar Ayuda
---------------------------

Are you using an actual Treeview, or something of your own? If its your own class, then set the Instancing property to 5 MultiUse and it should work.

[Mc Brain]

I'm using a TreeView, and would like to let the user access their methods and properties without any coding.

[Lethal]

Here's an example:

Option Explicit
Public Name As String

Public Property Get Clone() As MyObject
    Dim clsClone As New MyObject
    clsClone.Name = Me.Name
    Set Clone = clsClone
End Property

[Mc Brain]

I don't think that would let me do what I'm after....

[crptcblade]

Originally posted by Mc Brain
I'm using a TreeView, and would like to let the user access their methods and properties without any coding.

Well, then its a bit tricky, you'll need to make the property type an Object, then to get the intellisense and all that, you can set a treeview variable to the property

'In the Usercontrol
Public Property Get TV() As Object
  Set TV = Treeview1
End Property
 
'On a form
 
Private Sub Command1_Click()
Dim tvw as Treeeview 'Only need for intellisense purposes
 
  Set tvw = Usercontrol1.TV
 
  Call tvw.Nodes.Add (Text:="Hello")
 
End Sub

[Lethal]

For a treeview, swap out the textbox code:

Option Explicit
Private myBox As TextBox

Public Property Let MyTextBox(txtExample As TextBox)
    Set myBox = txtExample
End Property

Public Property Get MyTextBox() As TextBox
    Set MyTextBox = myBox
End Property

[Mc Brain]

Damned!! I was trying to avoid that! I mean, it won't be that intuitive for the UserControl's user.

[Mc Brain]

Originally posted by Lethal
For a treeview, swap out the textbox code:

Option Explicit
Private myBox As TextBox

Public Property Let MyTextBox(txtExample As TextBox)
    Set myBox = txtExample
End Property

Public Property Get MyTextBox() As TextBox
    Set MyTextBox = myBox
End Property

Am I not following you? I don't think that code would work. The TreeView is on the UserControl. I would like to let the user Interact with it.

[Lethal]

Ah..got ya...i read the question 2 quick...then, you are left with the code crypt provided or just expose methods through your code that automate what you want to provide for the user.

[Mc Brain]

This is what I'm after... I want the user to be able to load and remove items as if he/she had a TreeView on his/her form.

[Mc Brain]

Sorry... I've uploaded the file again because the first one didn't work.

[Mc Brain]

Ok... here's the version with all the "View" (ViewTree, ViewAddress, ViewWebStyle) properties coded. I guess I should have told (just in case) that the MS Windows Common Controls have to be loaded.