двухмерного разноцветного треугольника.
Там есть такая функия:
- Код: Выделить всё
Function InitVB() As Boolean
On Error Resume Next
Dim Vertices(2) As CUSTOMVERTEX 'массив 3d вершин, которые затем вставляются в буффер
Dim VertexSizeInBytes As Long 'переменная, содержащая длину типа CUSTOMVERTEX
VertexSizeInBytes = Len(Vertices(0))
'задание координат, цвета и RHW 3d вершин
'треугольник двухмерный, поэтому z всех точек равны
With Vertices(0): .x = 150: .y = 50: .z = 0.5: .rhw = 1: .color = &HFFFF0000: End With
With Vertices(1): .x = 250: .y = 250: .z = 0.5: .rhw = 1: .color = &HFF00FF00: End With
With Vertices(2): .x = 50: .y = 250: .z = 0.5: .rhw = 1: .color = &HFF00FFFF: End With
'создание буффера 3d вершин
Set g_VB = g_D3DDevice.CreateVertexBuffer(VertexSizeInBytes * 3, _
0, D3DFVF_CUSTOMVERTEX, D3DPOOL_DEFAULT)
If g_VB Is Nothing Then Exit Function
'заполнение буффера данными из массива Vertices
D3DVertexBuffer8SetData g_VB, 0, VertexSizeInBytes * 3, 0, Vertices(0)
InitVB = True 'инициализация буффера 3d вершин прошла нормально
End Function
В ВБ6 вроде все работало, а в .НЕТ не хочет.
Ругается на D3DVertexBuffer8SetData: "Name 'D3DVertexBuffer8SetData' is not declared."
"Imports DxVBLibA" я в самом начале написал...
Подскажите пожалуйста, в чем дело?
Заранее спасибо![/syntax]
