Casting variables

Harvey · Nov 30, 2005

Simple question, but yet I found no answer.

I have a function that returns an object. The object is of the class clsCompany, but it is returned as Object. I can access all the values and functions in it, but I would like to store it in a clsCompany variable again. How can I do that?

nbrcrunch · Nov 30, 2005

wouldn't it be something along the line of:

NewVariable.value = Object.Property.value

Greg Truby · Nov 30, 2005

Does this help???
<hr />' *** standard module ***

Sub TestSub()
 Dim c As clsTest, cc As clsTest
 Dim o As Object

 Set c = New clsTest

 c.Message = "mensaje"
 c.Valor = 22

 Set cc = TestFunc(c)
 Set o = c

 MsgBox cc.Message & vbCr & vbCr & cc.Valor, _
 vbInformation, "cc is of type " & TypeName(cc)

 MsgBox o.Message & vbCr & vbCr & o.Valor, _
 vbInformation, "o is of type " & TypeName(o)

End Sub

Function TestFunc(ByVal itemIn As clsTest) As clsTest
' note that itemIn is passed ByRef in spite of the BYVAL in the args list
 itemIn.Message = "gibberish"
 itemIn.Valor = itemIn.Valor * 2
 Set TestFunc = itemIn
End Function

' *** end of standard module ***
<hr />' *** clsTest class module ***

Private m_strTest As String, m_intTest As Integer

Property Let Message(strIn As String)
 m_strTest = strIn
End Property

Property Get Message() As String
 Message = m_strTest
End Property

Property Let Valor(intIn As Integer)
 m_intTest = intIn
End Property

Property Get Valor() As Integer
 Valor = m_intTest
End Property

' *** end of clsTest class module ***
<hr />If not, perhaps you could post some portions of your code to aid in understanding your situation better.

Harvey · Nov 30, 2005

hmm, It looks promising, but I am not sure if it will help me convert the variable to a clsCompany again.
Unfortunately I do not have my code here right now, but it looks like this:

Code:

function getCompanyDetails(companyID as Integer) as Object

dim myCompany as clsCompany
'a lot of actions

end function

set getCompanyDetails = myCompany


function test()

dim o as Object
dim t as clsCompany

set o = getCompanyDetails(1)

'how to put o into t?

end function

So, the code says it all. I need the object to be casted as a clsCompany. It should be possible but how to do it? Thanks for the replies so far.

Greg Truby · Nov 30, 2005

Harvey,

Take a closer look at the code I posted. Notice that TestFunc specifies that its return type is clsTest? Sounds to me like that's all you need to do. NB! In the example code you posted you are assigning the return value (Set getCompanyDetails = myCompany) after your END FUNCTION statement. I've never had very good luck getting the compiler to accept that sort of thing! :wink:

Regards,

Greg Truby · Nov 30, 2005

A further thought... If you don't have the code in front of you, it my be difficult to answer. But how is it that you have a function that is acting upon a custom class? By and large functions that deal with custom classes are coded inside the class module as a method member of said custom class. (I hope my convoluted English makes sense!)

Harvey · Dec 7, 2005

Hi. Sorry for not having replied for a while. I am using two workbooks,
one containing an address book with company addresses, and a form to display and edit them.
The other workbook calls to the form to select one company, and then return the company data to the workbook.
The function that returns the object (of type clsCmpany) is located in workbook A, and the function that receives the data is in workbook B.

I figured I cannot return a class instance in a function, that is why I had to return it as an object. Now the only thing I have to do is cast it as clsCompany again.
Greg thanks for the code you posted, but it does not cover the problem. What I need is a function like the TestFunc, but with argument object itemIn instead of clsTest. I hope this story makes sense too :wink:

Greg Truby · Dec 7, 2005

You can do that. For example...

' *** standard module ***

Sub TestSub()
 Dim c As clsTest, cc As clsTest
 Dim o As Object

 Set c = New clsTest

 c.Message = "mensaje"
 c.Valor = 22

 'Set cc = TestFunc(c)
 Set cc = TestFuncObjIn(c)
 Set o = c

 MsgBox cc.Message & vbCr & vbCr & cc.Valor, _
 vbInformation, "cc is of type " & TypeName(cc)

 MsgBox o.Message & vbCr & vbCr & o.Valor, _
 vbInformation, "o is of type " & TypeName(o)

End Sub

'Function TestFunc(ByVal itemIn As clsTest) As clsTest
'' note that itemIn is passed ByRef in spite of the BYVAL in the args list
' itemIn.Message = "gibberish"
' itemIn.Valor = itemIn.Valor * 2
' Set TestFunc = itemIn
'End Function

Function TestFuncObjIn(itemIn As Object) As clsTest
 itemIn.Message = "feefiefoefum"
 itemIn.Valor = itemIn.Valor * 20
 Set TestFuncObjIn = itemIn
End Function

' *** end of standard module ***



BUT should you? That's my question. I am still not understanding how GetCompanyDetails is in a standard module and not some type of method inside the class module itself. It may well be that this is correct and appropriate, I don't know enough to render an opinion. At this point all I can say is that it seems odd.

Harvey · Dec 14, 2005

The function TestFuncObjIn looks like you can put an onbject in, and return a clsTest, but it doesn't work for me. The code I have in my project is the following:

Code:

Sub xx()

    Dim temp As Object
    Dim contactgegevens As clsContactgegevens
    
    Workbooks.Open ("E:\Public\Offerte traject\offerte 2.0\adressen.xls")
    
    Set temp = Workbooks("adressen.xls").invoerenContactGegevens
    
    Workbooks("offerte 2.0.xls").Sheets("Contactgegevens").Activate
    
    Set contactgegevens = test(temp)
'    Debug.Print ((clsContactgegevens)temp).m_Project.Nr
    
End Sub

Private Function test(ByVal par1 As Object) As clsContactgegevens

    Set test = par1

End Function

The function invoerenContactgegevens returns an object that represents a clsContactgegevens instance, but when I try to cast it back, the error I get is "Types are not the same" (translated from dutch)

Am I doing something wrong or is there another way to work around this?

Greg Truby · Dec 14, 2005

Hi Harvey,

I am having the same trouble. Excel is declaring a “type mismatch” on me too; even when it appears that it should not do so. Perhaps you could post the code for invoerenContactGegevens and we could see if there might be a way to move that functionality into the class module itself.<ul>[*][Code for clsTest class module same as in previous post.][/list]' *** standard module in book1 ***
Public Sub testsubin1()
 MsgBox "Hello from 1"
End Sub

Public Function OtherTest() As String
 OtherTest = "Text"
End Function

Public Function ReturnTestClass() As clsTest
 Dim c As clsTest
 Set c = New clsTest
 With c
 .Message = ActiveWorkbook.ActiveSheet.Range("A1")
 .Valor = ActiveWorkbook.ActiveSheet.Range("B1")
 End With
 Set ReturnTestClass = c
End Function

' *** end of standard module in book1 ***


' *** standard module book 2 ***

Sub TestSub()

 Dim c As clsTest, cc As clsTest
 Dim o As Object

 b = Application.Run("CustomClassExperimentBook1.xls!othertest")

 Set c = New clsTest
 Set cc = New clsTest
 c.Message = "lower"
 c.Valor = 38
 Set o = DoubleUpper(c)
 Debug.Print c.Message, c.Valor

 ' cannot set CC - get TYPE MISMATCH error
 On Error Resume Next
 Set cc = Application.Run("CustomClassExperimentBook1.xls!returntestclass")
 On Error GoTo 0
 Set o = Application.Run("CustomClassExperimentBook1.xls!returntestclass")
 ' still cannot set CC - get TYPE MISMATCH error
 Set cc = o
End Sub

Function DoubleUpper(ByRef itemIn As Object) As clsTest

 itemIn.Message = UCase(itemIn.Message)
 itemIn.Valor = itemIn.Valor * 2
 Set DoubleUpper = itemIn
End Function

' *** end of standard module in book 2***

Casting variables

Harvey

Well-known Member

Excel Facts

nbrcrunch

Well-known Member

Greg Truby

MrExcel MVP

Harvey

Well-known Member

Greg Truby

MrExcel MVP

Greg Truby

MrExcel MVP

Harvey

Well-known Member

Greg Truby

MrExcel MVP

Harvey

Well-known Member

Greg Truby

MrExcel MVP

Similar threads

Forum statistics

Share this page

Casting variables

Well-known Member

Excel Facts

Well-known Member

MrExcel MVP

Well-known Member

MrExcel MVP

MrExcel MVP

Well-known Member

MrExcel MVP

Well-known Member

MrExcel MVP

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock