关于VB6和VC6混编

bigbook2000

那是VC的问题，如果你不是很清楚，那么需要学习VC，VC的例子我也用的，可以参考其他版面的帖子，在这里讨论不是很好，呵呵

zlcnkkm

VC中:

#include "stdafx.h"
#include "d3d8types.h"

BOOL APIENTRY DllMain( HANDLE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                                         )
{
    return TRUE;
}

int __stdcall RectAlphaBlend( D3DLOCKED_RECT * oRect, D3DLOCKED_RECT iRect )
{
        (*oRect) = iRect; //随便写的
        return iRect.Pitch;
}

VB中:

Private Declare Function RectAlphaBlend Lib "WDPixelProcessing.dll" (ByVal oRect As D3DLOCKED_RECT, iRect As D3DLOCKED_RECT) As Long
...
...
Dim pData As D3DLOCKED_RECT
... '这里Lock了
Debug.Print RectAlphaBlend(pData, ByVal pData) '此处出错，提示“用户定义类型不能用”

现在怎办？

bigbook2000

首先D3DLOCKED_RECT在DxVBLibA的VB库中是有定义的，你需要在VB中引用DirectX对象

或者你自己定义该对象也可以
Type D3DLOCKED_RECT
    pBits As Long
    Pitch As Long
End Type

zlcnkkm

很显然，我已经引用了DX，否则，能lock吗

zlcnkkm

自己解决了，按照MSDN上的说法，找到解决的方法了：

在VC中，自定义类型（包括DX的）的参数必须按指针传递

在VB中，不能用ByVal声明自定义类型的参数的传递方式，与VC同样做法，只能ByRef

MSDN上说：“如果不希望因过程或函数的调用而造成参数的改变，用 Dim 声明一个该类型的临时变量然后将此变量传给此过程。”

修改后DLL正常运行

bigbook2000

在VC中，自定义类型（包括DX的）的参数必须按指针传递

没这回事

这个跟VC没关系的，VC中没有传值和传地址之说，传地址就是用指针

所以按照你VC的定义，你应该将VB中的声明改一下


Private Declare Function RectAlphaBlend Lib "WDPixelProcessing.dll" (ByRef oRect As D3DLOCKED_RECT, ByVal iRect As D3DLOCKED_RECT) As Long

Debug.Print RectAlphaBlend(pData, ByVal pData)

zlcnkkm

只要在声明API时使用ByVal 声明自定义类型就错误，这是MSDN说的，因此D3DLOCKED_RECT 等自定义类型都必须以指针传递给DLL

zlcnkkm

MSDN截图：

bigbook2000

VB中我还真没用过，但VC中没有这个说法的

zlcnkkm

只要知道必须以ByRef方式传递自定义类型就OK了