Unable to implement class in VB6

Question

I am trying to implement an interface in VB6. I defined a class Cast_Speedlike this ...

Public Function Run_Time() As Long

End Function

and an implementation like this ...

Option Explicit
Implements Cast_Speed

Public Function Cast_Speed_Run_Time() As Long
    Cast_Speed_Run_Time = 0
End Function

but trying to compile it gives an "object module" to implement "Run_Time" for the Cast_Speed ​​interface. Can anyone see what I'm doing wrong? My routines seem to be all right, but all the functions I'm trying to do have this problem.

Answer 1

The underscore in the method name is not like. Use instead RunTime().

I just tested it without underscore and it works fine for me:

'// class Cast_Speed
Option Explicit

Public Function RunTime() As Long

End Function


'// class Class1
Option Explicit

Implements Cast_Speed

Public Function Cast_Speed_RunTime() As Long
  Cast_Speed_RunTime = 0
End Function

Answer 2

, , , , , . , VB6.:)

:

• instancing - PublicNotCreatable.
• .

:

Dim x as iMyInterface

x = new MyiMyInterfaceImplementation

x.CalliMyInterfaceMethodA

x.CalliMyInterfaceMethodY

. - , , - , , .

Answer 3

, VB6 ( ).

:

Public Function Cast_Speed_Run_Time() As Long

To:

Private Function Cast_Speed_Run_Time() As Long

You can also read the implementation of interfaces in VB6 here (which seems to support me).

Answer 4

For a good overview of this topic, see http://msdn.microsoft.com/en-us/library/aa260635(v=vs.60).aspx#ifacebased_vbifaces .