, минуя DX8VB.DLL.
Вот такой код в форме (поместите d3dx8d в текущую папку):
- Код: Выделить всё
Option Explicit
Private Type vec2
x As Single
y As Single
End Type
Private Declare Sub D3DXVec2Normalize Lib "d3dx8d" (ByRef vOut As vec2, ByRef v As vec2)
Private Sub Form_Click()
Dim v1 As vec2, v2 As vec2
v2.x = 2
v2.y = 3
D3DXVec2Normalize v1, v2
Print v1.x, v1.y, v1.x * v1.x + v1.y * v1.y
End Sub
демонстрирует, что ActiveX функцию можно вызвать, как обычную
С функциями, работающими с необъектными переменными, все понятно и просто, но как быть с объектами? Допустим, я найду, как вызвать ф-цию, создающую нужный объект, например d3dDevice и возвращающую указатель на него, но объект перед этим нужно описать, иначе, если и удастся вызвать какой-нибудь метод полученного объекта, то только поздним связыванием (или даже это не удастся?)
Вообще, на этом пути есть перспективы, или сразу бросить?
