User Defined type in Class Function

[VB IT]

I write the following testing code for checking how I can pass user defined type in function running well with in module. But when I made the same the function in class it
Not works? Give me the Error

Only Public User Defined Types Defined In Public Object Module Can Be Used As Parameters Or Return Types For Public Procedures of Class Modules Or as Fields of public User Defined Types


How can I make the same function in Class?

Public Type MyType ' In Module
    First As String
    Second As Long
End Type
Public Function TestType(ByRef TypeIN() As MyType) 'In Module
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function
 
Private Sub Command1_Click()
Dim TestingType(1 To 2) As MyType
    TestingType(1).First = "First A" ' Set Data
    TestingType(1).Second = 1 'Set Data
    TestingType(2).First = "First B"
    TestingType(2).Second = 2
    
    Call TestType(TestingType())
    MsgBox TestingType(1).First & TestingType(1).Second ' Get Data
    MsgBox TestingType(2).First & TestingType(2).Second ' Get Data
    
End Sub

[rlwhealdon]

Try changing

Public Function TestType(ByRef TypeIN() As MyType) 'In Module
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function

To

Public Function TestType(ByVal TypeIN() As Variant) 'In Module
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function

See MSDN KB Article: Q185700 for more information.

[SLH]

Originally posted by VB IT
Only Public User Defined Types Defined In Public Object Module Can Be Used As Parameters Or Return Types For Public Procedures of Class Modules Or as Fields of public User Defined Types

What this means, is that in your class module you defigned a custom type. Because the class module is the only thing that can 'see' that type it causes an error.

Keep the definition of your custom type in a module.

[VB IT]

Originally posted by rlwhealdon
Try changing

Public Function TestType(ByVal TypeIN() As Variant) 'In Module
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function

I Get The Error
Type Mismach Array or user Defined Type Expected

[Wokawidget]

Remove all the code from ya module and paste it into a class module, EXCEPT:

Public Type MyType ' In Module
    First As String
    Second As Long
End Type

Leave that in the module on it's own...

Woka

[rlwhealdon]

Okay, here's how I got it to work.

' Module1.bas
Option Explicit
 
Public Type MyType ' In Module
    First As String
    Second As Long
End Type
 
Public Function TestType(ByRef TypeIN() As MyType) 'In Module
 
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function

' Form1.frm
Option Explicit
 
Private Sub Command1_Click()
 
    Dim TestingType(1 To 2) As MyType
 
    TestingType(1).First = "First A" ' Set Data
    TestingType(1).Second = 1 'Set Data
    TestingType(2).First = "First B"
    TestingType(2).Second = 2
 
    TestType TestingType()
    MsgBox TestingType(1).First & TestingType(1).Second ' Get Data
    MsgBox TestingType(2).First & TestingType(2).Second ' Get Data
    
End Sub

[SLH]

Originally posted by Wokawidget
Remove all the code from ya module and paste it into a class module, EXCEPT:

Public Type MyType ' In Module
    First As String
    Second As Long
End Type

Leave that in the module on it's own...

Woka

That sounds familiar...

[MartinLiss]

You can also do this. Create a class called Class1 that looks like

Option Explicit
 
Public First As String
Public Second As Long

Then slightly change your code to

Option Explicit
Public Function TestType(ByRef TypeIN() As Class1) 'In Module
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function
 
Private Sub Command1_Click()
Dim TestingType(1 To 2) As New Class1
    TestingType(1).First = "First A" ' Set Data
    TestingType(1).Second = 1 'Set Data
    TestingType(2).First = "First B"
    TestingType(2).Second = 2
    
    Call TestType(TestingType())
    MsgBox TestingType(1).First & TestingType(1).Second ' Get Data
    MsgBox TestingType(2).First & TestingType(2).Second ' Get Data
    
End Sub

[Wokawidget]

A bit over kill isn't it?

...and Public varibles in a class...

Woka

[VB IT]

Originally posted by Wokawidget
Remove all the code from ya module and paste it into a class module, EXCEPT:

Public Type MyType ' In Module
    First As String
    Second As Long
End Type

Leave that in the module on it's own...

Woka

First Thanks to all For There Kind Replies
Wokawidget, I Get the Same Error By using Your method, may be I don’t understand it, here is the code.

Error:

Only Public User Defined Types Defined In Public Object Module Can Be Used As Parameters Or Return Types For Public Procedures of Class Modules Or as Fields of public User Defined Types.

'In Module
Public Type MyType
    First As String
    Second As Long
End Type
 
'Class1
Public Function TestType(ByRef TypeIN() As MyType)
Dim A As Integer
    For A = 1 To 2
        MsgBox TypeIN(A).First & TypeIN(A).Second ' Get Data
        TypeIN(A).First = "Test" & A 'Set Data
        TypeIN(A).Second = A 'Set Data
    Next A
End Function
 
'From1.Frm
Private Sub Command1_Click()
Dim TestingType(1 To 2) As MyType
Dim C As New Class1
    
    TestingType(1).First = "First A" ' Set Data
    TestingType(1).Second = 1 'Set Data
    TestingType(2).First = "First B"
    TestingType(2).Second = 2
    
    Call C.TestType(TestingType())
    MsgBox TestingType(1).First & TestingType(1).Second ' Get Data
    MsgBox TestingType(2).First & TestingType(2).Second ' Get Data
    
End Sub

[Wokawidget]

Errrr...Hmmmm...that should work...I think

Woka

PS: It should be "Sorry for my bad English"

[VB IT]

Originally posted by Wokawidget
Errrr...Hmmmm...that should work...I think

Woka

PS: It should be "Sorry for my bad English"

Thank you for your Kind Reply
Can You Please Give The Working Example

[MartinLiss]

Originally posted by VB IT
Can You Please Give The Working Example

Mine works

[Wokawidget]

Stop gloating
Mine doesn't
But why?!

Woka

[MartinLiss]

VB IT, Wokawidget objected to the Public variables in my class. You can of course do it the traditional way.

Option Explicit
 
Private mstrFirst As String
Private mlngSecond As Long
 
Public Property Get First() As String
 
    First = mstrFirst
    
End Property
 
Public Property Let First(ByVal strFirst As String)
 
    mstrFirst = strFirst
 
End Property
Public Property Get Second() As Long
 
    Second = mlngSecond
    
End Property
 
Public Property Let Second(ByVal strSecond As Long)
 
    mlngSecond = strSecond
 
End Property

[Wokawidget]

Much happier now...

Woka

[VB IT]

Originally posted by MartinLiss
Mine works

Thanks for Your Kind Reply
Your Example works but a little bit more complex as compare to pass user defined type but end result is same. You right it is the other way to make the same result. But I want to clear my mind
I can’t Pass User Define Type In Class Function!?

[MartinLiss]

I don't think you can. Do a search of the General VB Coding Questions forum for user AND type AND class. There are a number of threads on the subject.

[VB IT]

Originally posted by MartinLiss
I don't think you can. Do a search of the General VB Coding Questions forum for user AND type AND class. There are a number of threads on the subject.

Thank you for You Kind Reply

After reading Tread I Think I Can’t Pass UDT (User Define Type) In Class Function.

[randem]

VB IT


No, you can not get there from here!!!. There are numerous other way to attempt to achieve this but I have found NONE of them reliable in all cases and only asking for trouble.