Passing a simple structure from VB6 to VB.Net Options

  • Thread starter Thread starter Bully
  • Start date Start date
B

Bully

Hi

I have created a simple COM Class in VB.Net containing a simple
structure and function:

Public Structure MyStruct
Dim Param1 As Byte
End Structure

Public Function ShowStruct(ByRef MyPassedStruct As MyStruct)

' Do nothing

End Function


In VB6, I want to call the .Net function and pass the structure.

Public Type MyStruct
Param1 As Byte
End Type

Private Sub Command1_Click()
Dim netCall as New netDll
Dim testStruct as MyStruct

testStruct.Param1 = 10

Call netCall.ShowStruct(testStruct)

End Sub


When I try and comple my VB app it gives me an error saying 'ByRef
Argument Mismatch'. What am I doing wrong?


I have managed to pass integers and strings ok, I'm just having a
problem with structures.


Thanks
Jon
 
Bully said:
Hi

I have created a simple COM Class in VB.Net containing a simple
structure and function:

Public Structure MyStruct
Dim Param1 As Byte
End Structure

In VB6, I want to call the .Net function and pass the structure.

Public Type MyStruct
Param1 As Byte
End Type
Click to expand...
When I try and comple my VB app it gives me an error saying 'ByRef
Argument Mismatch'. What am I doing wrong?
Click to expand...

You can't define MyStruct again in VB6. That makes it a different structure
(regardless of name or how much they look alike).

After removing that, you're VB6 Call needs declare an instance of MyStruct as
defined in your dll.
It might look something like

Private Sub Command1_Click()
Dim netCall as New netDll
Dim testStruct as netDll.MyStruct

testStruct.Param1 = 10

Call netCall.ShowStruct(testStruct)

End Sub
 
Back
Top