[RESOLVED] Pass Object to Function

[dimava]

Hi, I'm trying to pass an object to a function so that I can use the same function multiple times.

For example, this is what I have now:

'In Form
Call funMain(grid1)
 
'In Module
Function funMain(optional obj)
   frmMain.grid1.TextMatrix(5,5) = "Hello World"
End Function

I would like to change the module code to:

frmMain.obj.TextMatrix(5,5) = "Hello World"

and have it update whichever grid is passed to it. Is this possible in VB?

thanks,

Dimava

[jcis]

You can do it whis way. The parameter shouldn't be optional, you have to pass it always. Don't use the Form name in funMain, it will use the object, just that. Also make that function Public and add it to a module. Also, if you're not going to return a value from that function, it should be a sub, not a function.

Call funMain(grid1)
'In Module
Public Sub mySub(obj As Object)
    obj.TextMatrix(5,5) = "Hello World"
End Function

It would be even better if you pass more parameters, like row, col and data:

Public Sub mySub(obj As Object, pRow as long, pCol as Long, pText as String)
    obj.TextMatrix(pRow,pCol) = pText 
End Function

As you're using TextMatrix property, this will work if you pass a MSFlexgrid or MSHFlexgrid as the object, other controls offcourse will fire an error.

[dimava]

Thanks, that definately works the way I want it to. The parameter was only optional because I had the whole function written and I was playing around with the abstraction. Also good point with making it a sub instead of a function.

Edit: I'm actually passing 2 grids to the function with the column names, I just used this as a small example, the full function has over 200 lines of code.

thanks,

Dimava

[MartinLiss]

It would be more efficient to do

Public sub mySub(obj As MSFlexgrid)

[jcis]

It would be more efficient to do
Public sub mySub(obj As MSFlexgrid)

So true, this way he can keep intellisense inside that sub, when using the MSFlexgrid, this is not possible when the control is declared As Object.
Maybe the only reason for use Object, would be to pass different sort of controls, but this is not the case.

[dimava]

Thanks, I'll use it as an MSFlexgrid, it definately makes sense