Code: Select all
Dim Device As New Irrlicht.IrrlichtDevice(
Irrlicht.Video.DriverType.DIRECT3D9, 'driver
New Irrlicht.Core.Dimension2D(800, 600), 'dimension
32, 'Bit depth
False, 'fullscreen
False, 'stencil buffer
False, 'vsync
True, 'antiAlias
Me.Handle() ' window handle
)
Code: Select all
Public Class frmModeler
Dim Device As New Irrlicht.IrrlichtDevice(Irrlicht.Video.DriverType.DIRECT3D9, New Irrlicht.Core.Dimension2D(800, 600), 32, False, False, False, True, Me.Handle())
Private Sub frmModeler_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Node As Irrlicht.Scene.ISceneNode
'(SceneNode,Rotation Speed,MoveSpeed,Id)
device.SceneManager.AddCameraSceneNodeFPS(Node, 1, 1, 2)
End Sub
Public Sub Render()
'(BackBuffer, ZBuffer, Color)
Device.VideoDriver.BeginScene(True, True, New Irrlicht.Video.Color(255, 150, 100, 150))
Device.SceneManager.DrawAll()
Device.GUIEnvironment.DrawAll()
Device.VideoDriver.EndScene()
End Sub
Private Sub frmModeler_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
While (Device.Run())
Render()
End While
End Sub
End Class
Code: Select all
Dim device As New Irrlicht.IrrlichtDevice(Irrlicht.Video.DriverType.DIRECT3D9)Code: Select all
Public Class frmModeler
Dim device As New Irrlicht.IrrlichtDevice(Irrlicht.Video.DriverType.DIRECT3D9)
Private Sub frmModeler_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Node As Irrlicht.Scene.ISceneNode
'(SceneNode,Rotation Speed,MoveSpeed,Id)
device.SceneManager.AddCameraSceneNodeFPS(Node, 1, 1, 2)
End Sub
Public Sub Render()
'(BackBuffer, ZBuffer, Color)
Device.VideoDriver.BeginScene(True, True, New Irrlicht.Video.Color(255, 150, 100, 150))
Device.SceneManager.DrawAll()
Device.GUIEnvironment.DrawAll()
Device.VideoDriver.EndScene()
End Sub
Private Sub frmModeler_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
While (Device.Run())
Render()
End While
End Sub
End Class