真心求指导：vb传递结构体 给dll问题 如题

vc代码
typedef struct tagFS
{
LONG l;
double d;
};

BOOL __stdcall FSME_FS(tagFS* pTagFs)
{
FILE* f;
f=fopen("D:/out1.txt","w");
fprintf(f,"%s%.17g\n","d:",pTagFs->d);
fprintf(f,"%s%d\n","l:",pTagFs->l);
fclose(f);
return TRUE;
}

vb代码
Private Type tagFS
l As Long
d As Double
End Type
Private Declare Function FSME_FS Lib "FSMobileExchange.dll" (ByRef pFS As tagFS) As Boolean

Dim bRet As Boolean
Dim pFS As tagFS
pFS.d = 22.22
pFS.l = 2222

bRet = FSME_FS(pFS)

结果错误：
d:5.3225454133869018e-315
l:2222


[解决办法]

估计是对齐问题。试试：

typedef struct tagFS
{
LONG l;
LONG reserved;
double d;
};

Private Type tagFS
l As Long
reserved As Long
d As Double
End Type