|
|
发表于 2006-12-17 18:26:00
|
显示全部楼层
Re:怎么现在VB区越来越冷清了啊?
Dim tVertexsBuf As Direct3DVertexBuffer8
Dim tIndexBuf As Direct3DIndexBuffer8 '这个不是定义Dx的吗?
Dim lp_buf As Long
Dim lp_index_buf As Long
Dim lp_SafeArray As Long
Set tIndexBuf = tMesh.GetIndexBuffer
Set tVertexsBuf = tMesh.GetVertexBuffer
-------------------------------------------------
API还可以定义成类啊,还不知道呢。
With VertexsBufs(i)
'Debug.Print .x; ","; .y; ","; .z, , .tu, .tv, .color
datas.AddFloat .x
datas.AddFloat .y
datas.AddFloat .z
datas.AddFloat .tu
datas.AddFloat .tv
datas.AddLong .color
End With
Next
---------------------------------
还可以设置属性,坐标还是三维的。这个是画图的吧,有颜色和坐标
|
|