Das Problem hat sich gelöst. Ich poste im folgenden den Code den ich verwendet habe, um Irrlicht in einer PictureBox zu starten.
Code:
Private Sub StartEngine(ByVal c)
' Variablen deklarieren und definieren
Dim device As IrrlichtDevice
Dim cam As ICameraSceneNode
Dim anim As ISceneNodeAnimator
Dim cube As ISceneNode
' Starte Irrlicht
device = New IrrlichtDevice(Irrlicht.Video.DriverType.DIRECT3D8, New Dimension2D(c.Width, c.Height), 32, False, False, False, True, c.Handle)
cam = device.SceneManager.AddCameraSceneNode(Nothing, New Vector3D, New Vector3D, -1)
anim = device.SceneManager.CreateFlyCircleAnimator(New Vector3D(0, 0, 0), 30.0F, 0)
cam.AddAnimator(anim)
cube = device.SceneManager.AddTestSceneNode(32.5, Nothing, -1, New Vector3D)
cube.SetMaterialTexture(0, device.VideoDriver.GetTexture("media/1.png"))
While device.Run And c.Enabled
device.VideoDriver.BeginScene(True, True, New Irrlicht.Video.Color(0, 0, 0, 0))
device.SceneManager.DrawAll()
device.GUIEnvironment.DrawAll()
device.VideoDriver.EndScene()
End While
End Sub
Die Funktion wird folgendermaßen gestartet:
Code:
StartEngine(picVorschau)