Class Module Question

[Tequila_worm]

What i want to do is when i click on cmdBla that will call a function in my class module which will HIGGHLIGHT the text located in the textbox. This is what i am have, and what i am trying.

cmdBla
----------

HighlightTextBox(txtWineTypeName)


CLASS MODULE
------------------------
Private Function HighlightTextBox(oSelect As Object)
oSelect.SetFocus
oSelect.SelStart = 0
oSelect.SelLength = Len(oSelect.Text)
End Function

-----------------------------------------------------------------------------

Now that is not doing what its suppose to . Any way all help would be apreciated THX.

[Joacim Andersson]

Have you instanciated an object of your class?

Private obj As YourClassName
 
Private Sub Form_Load()
    Set obj = New YourClassName
End Sub
 
Private Sub cmdBla()
    obj.HighlightTextBox txtWineTypeName 'you cant use parantheses here if this isnt a function
End Sub

Best regards

[Tequila_worm]

It didn't work for me that way i tried to work around it as well but nothing, . Thx for the help anyway.

Where it gives me the error ir right away in form load, the error says

Set oSelect = New CWineModule

it highlights Oslect and says

Variable Not Defined

[Joacim Andersson]

When you're passing an object or a control to a sub you can't use parantheses because you will then pass it ByVal instead of ByRef.
(As mentioned in the comments of my earlier post).

Best regards

[Edneeis]

Did you declare a variable oSelect in your form first before you set it? Should be kinda like this:

'In the form
dim myObj as CWineModule
Set myObj=New CWineModule
 
myObj.HighlightTextBox txtWineTypeName
 
 
'then in the class module CWineModule
Public Sub HighlightTextBox(oSelect As Textbox)
  oSelect.SetFocus 
  oSelect.SelStart = 0 
  oSelect.SelLength = Len(oSelect.Text) 
End Sub

Make sure any subs or functions you want to call from the class are public and as long as its a class in the project not a dll you can pass the object as a textbox instead of the generic object., also since you don't return anything you'd make it a sub instead of a function.

[Tequila_worm]

That was it man, they had to be a Public function, holly crap man thx for you help.