Hi all,
I have a problem with the definition of a class
in VB6. I try to translate on of the Cortona example
(Lesson 9 of the Delphi Tutorial) into VB6 and
an error occurs
here the code of the class "MyCallBack":
Implements IVRMLEventCallback
Public Sub IVRMLEventCallback_OnEvent(value As VRMLField, Hint, TimeStamp As Double)
Dim X, Y, Z As Single
Dim TempStr As String
If Hint = "Coordinates" Then
X = SFVec3f(value).X
Y = SFVec3f(value).Y
Z = SFVec3f(value).Z
Form9.Label1.Caption = "X=" + Str(X) & "#13#10" & "Y=" & Str(Y) & "#13#10" & "Z=" & Str(Z)
If Hint = "Click" Then
TempStr = Str(TimeStamp)
ShowMessage ("Time now: " & TempStr & "msec from the First of January, 1970")
End Sub
...something might be wrong with the header...
the declaration of the procedure doesn´t correspond to the event or another procedure.
I hope anybody can help me, thank you in advance.
Regards,
Martin Dolgner
Hi,
Creating an event handler is described in Lesson 4 of the Cortona SDK Visual Basic tutorial. I hope it will help you.
Regards,
Mikhail
Event Handling in VB / Delphi...classes, classes..