今天写了一个比较简单的游戏引擎wrapper

只是实现了init。如果想做函数方便设计程序的话可以参考。

Sub wTVInitWindow(Engine As TVEngine, wHWnd As Long, wTVEnableTL As Boolean, Optional IsDebug As Boolean = False, Optional IsWriteToConsole As Boolean = False, Optional IsWriteToStdOut As Boolean = False, Optional IsEnableMiniMap As Boolean = False, Optional IsDisplayFPS As Boolean = False)
    Set Engine = New TVEngine
    Engine.Init3DWindowed wHWnd, wTVEnableTL
    If IsDebug = True Then
        Engine.SetDebugMode True, IsWriteToConsole, IsWriteToStdOut, IsEnableMiniMap
        Engine.AddToLog "Wrapper:DebugModeStarted"
    End If
    If IsDisplayFPS = True Then
        Engine.DisplayFPS True
    Else
        Engine.DisplayFPS False
    End If
End Sub

xttyctl9	2012-01-13 11:33
这个有点不方便，就是必须先填写tvengine。曾经想传送函数的，但是想想觉得不太可行？

xttyctl9	2012-01-13 11:34
wrapper在我的字典里是引导器的意思。各种类的封装引导。

xttyctl9	2012-01-13 11:34
地下室。

xttyctl9	2012-01-13 11:35
地下室。额

墨阐	2012-01-13 12:54
VB帝乃好。内容来自[手机版]

xttyctl9	2012-01-13 13:58
墨阐:VB帝乃好。内容来自[手机版] (2012-01-13 12:54) 您是VB帝？膜拜。

jybox	2012-01-13 14:14

xttyctl9	2012-01-13 14:16
jybox:[表情] (2012-01-13 14:14) 你不是要批判VB吗JY 没看见你发的？

jybox	2012-01-13 15:24
xttyctl9:你不是要批判VB吗JY 没看见你发的？ (2012-01-13 14:16) 稍等

xttyctl9	2012-01-13 15:41
代码有错。

jybox	2012-01-13 15:53
xttyctl9:代码有错。 (2012-01-13 15:41) 反正我们看不懂

xttyctl9	2012-01-13 15:56
jybox:反正我们看不懂 (2012-01-13 15:53) - - 文章内容少于 5 个字节

abreto	2012-01-14 16:07
卧渠这是什么？.. 还有lsjy肿么能随便扣分呢

mason	2012-01-14 16:45
xttyctl9:- - 文章内容少于 5 个字节 (2012-01-13 15:56) 我表是震精。

xttyctl9	2012-01-14 20:20
abreto:[表情] 卧渠这是什么？.. 还有lsjy肿么能随便扣分呢 (2012-01-14 16:07) = =为什么Jy这么说。。。

mason	2012-01-15 22:01

outman	2012-01-19 20:26
有什么用内容来自[手机版]

jybox	2012-01-19 21:32
outman:有什么用内容来自[手机版] (2012-01-19 20:26) 看起来好像是个demo