Sorry for the delay, here it is, a working example with flashing object.
Just change the initialization to use the generic tutorial version.
This is simple enough example, should be easy to follow.
Option Explicit On
Imports System
Imports System.Threading
Imports System.windows.forms
Module modMain
Private dInit As DCrawlerInit.DCI
Private initState As Boolean
Friend Property pInitState() As Boolean
Get
Return initState
End Get
Set(ByVal Value As Boolean)
initState = Value
End Set
End Property
Private genCounter As Integer
Friend Property pGenCounter() As Integer
Get
Return genCounter
End Get
Set(ByVal Value As Integer)
genCounter = Value
End Set
End Property
Private genMax As Integer
Friend Property pGenMax() As Integer
Get
Return genMax
End Get
Set(ByVal Value As Integer)
genMax = Value
End Set
End Property
Private tAddObj As New Thread(AddressOf addObject)
Public Sub Main()
genMax = 10
dInit = New DCrawlerInit.DCI("YourLongKey")
pInitState = dInit.returnState
If pInitState = False Then End
oDBDisplay.SetDisplayMode(800, 600, 16)
oDBCamera.AutoCamOff()
oDBCamera.SetCameraRange(1, 1400)
oDBCamera.PositionCamera(10, 10, 10)
oDBCamera.PointCamera(0, 0, 0)
oDBCore.SyncOn()
While oDBP.LoopGDK()
If genCounter <= genMax Then
Try
If tAddObj.ThreadState = ThreadState.Stopped Then
tAddObj = New Thread(AddressOf addObject)
tAddObj.Start()
Else
Try
tAddObj.Start()
Catch ex As Exception
End Try
End If
Catch ex As Exception
LogError("clsMain.Main", Now.ToString, ex.ToString)
End Try
End If
oDBCore.Sync()
End While
End Sub
Private Sub addObject()
Try
genCounter += 1
oDB3D.LoadObject("box\block.x", genCounter)
oDB3D.HideObject(genCounter)
oDB3D.PositionObject(genCounter, 10 * genCounter, 0, 10 * genCounter)
Debug.WriteLine("Thread Finished")
Catch ex As Exception
LogError("clsMain.addObject", Now.ToString, ex.ToString)
Debug.WriteLine("Thread Terminated Unexpectantly")
End Try
End Sub
End Module
