先贴下源码,因为我用的是vs2015 写的vb.net 所以有些细节较原来的源码有改动
Option Explicit On
Imports TV3D65
Public Class Form1
Dim Tv As New TVEngine '调用tv3d所必需的
Dim Scene As New TVScene '调用tv3d所必需的
Dim Mesh As TVMesh '定义一个网格物体
Private Sub Form_Load()
Me.Show() '显示当前窗口,每次都加上错不了
Tv.Init3DWindowed(Handle) '用窗口模式启动tv3d
Mesh = Scene.CreateMeshBuilder '网格物体初始化,必加
Mesh.CreateTeapot '建立一个茶壶
Mesh.SetPosition(0, 0, 3) '设定物体的位置坐标
Do '主循环
Tv.Clear '清屏
Mesh.RotateY(0.001) '沿y轴以0.001每帧的速度转动
Mesh.Render '渲染茶壶
Tv.RenderToScreen '把所得最终结果渲染到屏幕
System.Windows.Forms.Application.DoEvents() '这句是把线程空出来,使其他的的程序能运行,必加
Loop
End Sub
End Class
Option Explicit On
Imports TV3D65
Public Class Form1
Dim Tv As New TVEngine '调用tv3d所必需的
Dim Scene As New TVScene '调用tv3d所必需的
Dim Mesh As TVMesh '定义一个网格物体
Private Sub Form_Load()
Me.Show() '显示当前窗口,每次都加上错不了
Tv.Init3DWindowed(Handle) '用窗口模式启动tv3d
Mesh = Scene.CreateMeshBuilder '网格物体初始化,必加
Mesh.CreateTeapot '建立一个茶壶
Mesh.SetPosition(0, 0, 3) '设定物体的位置坐标
Do '主循环
Tv.Clear '清屏
Mesh.RotateY(0.001) '沿y轴以0.001每帧的速度转动
Mesh.Render '渲染茶壶
Tv.RenderToScreen '把所得最终结果渲染到屏幕
System.Windows.Forms.Application.DoEvents() '这句是把线程空出来,使其他的的程序能运行,必加
Loop
End Sub
End Class