VB 和 vc 参数类型和传递方式 对应关系

15757753770

& V$ a+ i2 f1 t  L

以下内容转载来的 部分亲测 部分未测试

% ]! `) ^, j' x: p

VB调用C DLL时的参数传递
' O7 }- r. f1 N7 L, T* i0 A2 u* f
函数在C中的原型，参数类型和传递方式 对应关系   
  k7 E8 P* y1 M+ \' L, g
! s; J4 U- D, f$ x: l

C DLL 原型         VB声明                 VB调用

4 f+ |! ^' u. a( xUSHORT a         ByVal a as long           Call func(…,a,…)

4 [: b/ F1 c% n( p. c5 xint a                   ByVal a as long           Call func(…,a,…)
9 t0 y! W) q: Y# Q6 U* q8 T) z2 |
long a                ByRef a as long          Call func(…,byval a,…)

int *pa                ByRef pa as long        Call func(…,pa,…)
' A: G, I  R4 q" g! \
long *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)
$ j7 a0 B- }* h7 W8 s
8 R: S( T! d& XLPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)
: ~& r0 `* x$ x& j6 n9 A
8 y: `. \0 ^( v! O$ D$ `5 @- K) Tchar *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)
+ U% Q2 B7 P! |4 C. b# v
wchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)
$ g. N+ w) z6 |* D/ C
struct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)

HANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)

备注  

1)不推荐使用此方式

2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50

3)用户定义子类型必须用ByRef方式传递，
; G( h$ n" k* A5 I% \/ o/ U
6 {# b. D& Y2 B; W! Y1 K% i4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。

9 P: Y3 G1 V) F% O

/ X4 n+ M' B6 F) p
3 f7 N4 N+ z  t0 w' `. Z4 X


" A  Y1 T0 S: B4 S+ W8 K数组传递     

        数组传递值用ByRef

9 c% G5 y9 z- \, k/ J) Q- N# O        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。
" @2 W' U. g: X7 g4 o, S8 p. A
8 G9 ?+ T1 F' ]

         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。



( ]6 V$ s: N$ H$ y7 y
7 R/ M& h/ D0 B+ `2 J7 W
$ J) b/ c# b2 Pdll函数直接返回字符串



        VB下的字符串格式和VC中的char有些不同的

6 P! }3 ^, l  d0 J0 \        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:
, f! @2 [8 T' T+ {' }


     EXTERN_C BSTR WINAPI RetStr()
4 Z* r6 D+ G2 T6 i6 k6 p
) D1 L$ T9 R1 L1 q  i" s8 i* ~     {
( y* ~( h: T2 h# T
             char *str = "1234567890";
. O. x9 m  |# {5 Z  v
( l" g+ e& Z) k! U' g+ m             return SysAllocString((BSTR)str);
2 b5 u3 U$ q7 P+ L
      }

或者参考一下VB下调用GeTComputerName的方法.
5 I8 C8 z% W) R, I! }$ h
1 }' K2 L8 ]5 b# H4 j2 j8 `


  @, P1 x8 i* l# R- h
5 X( n9 h. n2 y* B$ n3 \  VC++与VB数据类型对应关系

7 Q* i# c. V% _5 U% B% kVC++        VB
$ p# T. e  E3 }short        Integer
int        Long
3 H2 M) K. Y: s9 b& W+ W# rlong        Long
. \& h! L; \6 c& X5 a5 aUNIT        Long
ULONG        Long
4 a2 O2 ^+ x$ `7 o0 iWORD        DWORDLong
WPARAM        LPARAMLong
WMSG        UMSGLong
HRESULT        Long
6 F+ t+ G+ a1 q3 y; [% D$ q$ Q( GBOOL        Boolean
COLORREF        Long
HWND,HDC,HBRUSH,HKEY,等等        Long
1 m( r( I/ i8 }( ^LPSTR        LPCSTRString
& Y  J$ ?0 a6 HLPWSTR,OLECHARBSTR        String
% S" p; x4 M7 u  `) r. p& DLPTSTR        String
VARIANT_BOOL        Boolean
unsignedchar        Byte
BYTE        Byte
1 Q9 e. T7 ~, I& @8 N5 v, YVARIANTVariant
(任何以*或**结尾的数据类型)        Long


6 r. k0 @1 n( i. q4 b$ wc中的数据类型        VB中的声明        结果
                  
1 X' t9 F; W# M2 ]) C8 S! F, pATOM        ByVal variable As Integer        结果为Integer 类型的表达式
BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
BYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
# b+ P/ n( {8 YCHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
COLORREF        ByVal variable As Long        结果为 Long 类型的表达式
3 r" n) a3 W6 ?" J' L' U0 nDWORD        ByVal variable As Long        结果为 Long 类型的表达式
. i; l: z# ~( P* Q, C* \HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
INT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
4 o& D% ]5 f! w+ a# a2 vLONG        ByVal variable As Long        结果为 Long 类型的表达式
LPARAM        ByVal variable As Long        结果为 Long 类型的表达式
1 W" E# Y4 H+ o3 RLPDWORD        variable As Long        结果为 Long 类型的表达式
LPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
LPRECT        variable As type        自定义类型的任意变量
LPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
7 r, d% n- Z" Z9 `# Y3 k/ zLPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
) I; T( I( t( n% pLPWORD        variable As Integer        结果为Integer 类型的表达式
LRESULT        ByVal variable As Long        结果为 Long 类型的表达式
NULL        As Any 或 ByVal Nothing 或 ByVal variable As Long ByVal 0& 或 VBNullString SHORT ByVal variable As Integer        结果为Integer 类型的表达式
VOID        Sub procedure        不可用
WORD        ByVal variable As Integer        结果为Integer 类型的表达式
0 k! m4 X; I* ~3 ]  sWPARAM        ByVal variable As Long

4 F, ^- b) }* S