TV3D学习例程1[原创]

 

Option Explicit
'声明引擎
Private TV8 As TVEngine
Private DoLoop As Boolean
Private Sub cmdQuit_Click()
    DoLoop = False
End Sub
Private Sub Form_Load()
    '定义引擎
    Set TV8 = New TVEngine
        
        TV8.Init3DWindowedMode Picture1.hWnd
        '显示fps
        TV8.DisplayFPS = True
        Form1.Show
            DoLoop = True
    Main_Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
    DoLoop = False
    Main_Quit
End Sub

Private Sub Main_Loop()
    Do
        DoEvents
        '清除
        TV8.Clear
        '渲染
        TV8.RenderToScreen
    Loop Until DoLoop = False
    Main_Quit
End Sub

Private Sub Main_Quit()
  '清除对象为空
    Set TV8 = Nothing
    End
End Sub