Bonjour à tous

De retour sur mon vieux projet d'adaptation du jeu Skweek débuté en Freebasic avec le moteur Irrlicht, j'ai décidé de m'y remettre mais cette fois en .net via Irrlicht.Net CP (étant donné que le wrapper officiel est à la ramasse...)
Je bloque sur un énorme soucis au niveau de la gestion de OnEvent en VB.Net... pour faire simple voici un bout du code orginal en C# avec la partie qui m'interesse commentée :

   
//Le code est volontairement raccourci
        IrrlichtDevice device = new IrrlichtDevice(drivertype,
                                                       optimalmode.Resolution,
                                                       optimalmode.Depth, fullscreen,
                                                       true,
                                                       false, 
                                                       false);



            //---------------- LE ONVENTDELEGATE en C# -----------------------------------
            device.OnEvent += new OnEventDelegate(device_OnEvent); 
           //-------------------------------------------------------------------------------------



            while (device.Run() && !Exit)
            {

                driver.BeginScene(true, true, Color.From(255, 50, 50, 50));
                scene.DrawAll();
                guienv.DrawAll();
                driver.EndScene();                
            }

            device.Dispose();
   



//---------------------------GESTION DE ONVENT EN C# ---------------------------------------------
        static bool device_OnEvent(Event ev)
        {

            if (ev.Type == EventType.LogTextEvent)
            {
                Console.WriteLine(ev.LogText);
                return true;
            }

            return false;
        }
//--------------------------------------------------------------------------------------------------------

Si maintenant je tente une conversion en VB.Net j'obtient ceci :

//Le code est volontairement raccourci
Dim device As New IrrlichtDevice(drivertype, optimalmode.Resolution, optimalmode.Depth, fullscreen, True, False, False)


 //---------------- LE ONVENTDELEGATE en VB.Net -----------------------------------
device.OnEvent += New OnEventDelegate(device_OnEvent)
 //-------------------------------------------------------------------------------------

While device.Run()
	driver.BeginScene(True, True, Color.From(255, 50, 50, 50))
	scene.DrawAll()
	guienv.DrawAll()
	driver.EndScene()
End While

device.Dispose()

'---------------------------GESTION DE ONVENT EN VB.Net ---------------------------------------------
Private Function device_OnEvent(ev As [Event]) As Boolean

	If ev.Type = EventType.LogTextEvent Then
		Console.WriteLine(ev.LogText)
		Return True
	End If

	Return False
End Function
//--------------------------------------------------------------------------------------------------------

Sauf que la ligne suivante engendre 2 erreurs :

device.OnEvent += New OnEventDelegate(device_OnEvent)

Les erreurs :

Erreur 1 'Public Event OnEvent(ev As IrrlichtNETCP.Event) As Boolean' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement. D:\\Sources\\Irrlicht.net\\IrrlichtVB.net\\VideoInit.vb 30 9 IrrlichtVB.net

ainsi que

Erreur 2 Le délégué 'IrrlichtNETCP.OnEventDelegate' requiert une expression 'AddressOf' ou une expression lambda en tant qu'unique argument de son constructeur. D:\\Sources\\Irrlicht.net\\IrrlichtVB.net\\VideoInit.vb 30 47 IrrlichtVB.net

Et impossible de m'en sortir vu le manque de code en VB.Net utilisant le wrapper...
Je fais appel aux codeur VB.Net ou aux autres ayant trouver ma coquille...

Merci d'avance

Bonjour à tous

De retour sur mon vieux projet d'adaptation du jeu Skweek débuté en Freebasic avec le moteur Irrlicht, j'ai décidé de m'y remettre mais cette fois en .net via Irrlicht.Net CP (étant donné que le wrapper officiel est à la ramasse...)
Je bloque sur un énorme soucis au niveau de la gestion de OnEvent en VB.Net... pour faire simple voici un bout du code orginal en C# avec la partie qui m'interesse commentée :

   
//Le code est volontairement raccourci
        IrrlichtDevice device = new IrrlichtDevice(drivertype,
                                                       optimalmode.Resolution,
                                                       optimalmode.Depth, fullscreen,
                                                       true,
                                                       false, 
                                                       false);



            //---------------- LE ONVENTDELEGATE en C# -----------------------------------
            device.OnEvent += new OnEventDelegate(device_OnEvent); 
           //-------------------------------------------------------------------------------------



            while (device.Run() && !Exit)
            {

                driver.BeginScene(true, true, Color.From(255, 50, 50, 50));
                scene.DrawAll();
                guienv.DrawAll();
                driver.EndScene();                
            }

            device.Dispose();
   



//---------------------------GESTION DE ONVENT EN C# ---------------------------------------------
        static bool device_OnEvent(Event ev)
        {

            if (ev.Type == EventType.LogTextEvent)
            {
                Console.WriteLine(ev.LogText);
                return true;
            }

            return false;
        }
//--------------------------------------------------------------------------------------------------------

Si maintenant je tente une conversion en VB.Net j'obtient ceci :

//Le code est volontairement raccourci
Dim device As New IrrlichtDevice(drivertype, optimalmode.Resolution, optimalmode.Depth, fullscreen, True, False, False)


 //---------------- LE ONVENTDELEGATE en VB.Net -----------------------------------
device.OnEvent += New OnEventDelegate(device_OnEvent)
 //-------------------------------------------------------------------------------------

While device.Run()
	driver.BeginScene(True, True, Color.From(255, 50, 50, 50))
	scene.DrawAll()
	guienv.DrawAll()
	driver.EndScene()
End While

device.Dispose()

'---------------------------GESTION DE ONVENT EN VB.Net ---------------------------------------------
Private Function device_OnEvent(ev As [Event]) As Boolean

	If ev.Type = EventType.LogTextEvent Then
		Console.WriteLine(ev.LogText)
		Return True
	End If

	Return False
End Function
//--------------------------------------------------------------------------------------------------------

Sauf que la ligne suivante engendre 2 erreurs :

device.OnEvent += New OnEventDelegate(device_OnEvent)

Les erreurs :

Erreur 1 'Public Event OnEvent(ev As IrrlichtNETCP.Event) As Boolean' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement. D:\\Sources\\Irrlicht.net\\IrrlichtVB.net\\VideoInit.vb 30 9 IrrlichtVB.net

ainsi que

Erreur 2 Le délégué 'IrrlichtNETCP.OnEventDelegate' requiert une expression 'AddressOf' ou une expression lambda en tant qu'unique argument de son constructeur. D:\\Sources\\Irrlicht.net\\IrrlichtVB.net\\VideoInit.vb 30 47 IrrlichtVB.net

Et impossible de m'en sortir vu le manque de code en VB.Net utilisant le wrapper...
Je fais appel aux codeur VB.Net ou aux autres ayant trouver ma coquille...

Merci d'avance