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

15757753770

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


5 M3 P  Z: r+ Q3 s! V
VB调用C DLL时的参数传递

函数在C中的原型，参数类型和传递方式 对应关系   
* S* e0 v: @/ @" ~

, o3 V) z! D0 x' x! v" r
C DLL 原型         VB声明                 VB调用
* h- y; V6 |4 C
USHORT a         ByVal a as long           Call func(…,a,…)

: l# C, a5 M7 ~" v: rint a                   ByVal a as long           Call func(…,a,…)

0 ]( \* L6 t  s$ X9 ?long a                ByRef a as long          Call func(…,byval a,…)
) G5 l/ @& q# A8 u0 w
int *pa                ByRef pa as long        Call func(…,pa,…)
; i. U1 Z: n  t: i6 W
/ Z' F* }, W6 m# M% R& M% k- Ylong *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)
/ i" o, h9 f) r- W
  U% }3 |2 L1 c7 w  BLPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)

char *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)

wchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)

) o5 B$ K- i# T; B1 Ustruct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)

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

( m& R# x# Y$ n2 E8 o0 ]备注  
  a/ E9 z7 t0 }$ E. Y. @
1)不推荐使用此方式
# K; Q3 r+ i/ K# r' G9 W
" [+ x" `: S3 r. n3 U4 i2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50

7 [: B7 Y0 @$ m6 b3)用户定义子类型必须用ByRef方式传递，
% `6 ~5 Z( D- A: O2 H
% a! J0 q% L  Y0 U) d4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。
, z0 k0 E5 R7 y+ s& N& e* u5 L4 Z' Z7 Q


8 O" F5 @* L! G. W
1 Y2 E7 ]5 S. y" s+ }; A- C# }
1 ]! b% O; G9 ?( E! k% \
# H5 ?' `# E! u$ s" O' b
$ W* n' O( C! U7 ]6 }数组传递     

9 i$ P3 P9 x1 n: R( k        数组传递值用ByRef

        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。
0 G3 @& V) o' r, D9 m# q
% [+ H) ~  U( \( f1 Y

9 {7 A  ^, o9 w8 z7 G1 S* ?         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。
# Q  C5 n6 `/ u$ h" o

! l7 R  {) X# _. p3 l

! M) z+ Q& B3 q4 l
dll函数直接返回字符串

& x! H2 u$ `4 B& M: s7 _" M$ F! b

+ _  u" W, e8 d4 Q4 ~! K        VB下的字符串格式和VC中的char有些不同的

        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:
, W7 I0 I. E, t
+ e' a  o9 h8 Z
8 P1 h5 p7 F2 y
     EXTERN_C BSTR WINAPI RetStr()
# j* J: O4 R; ^0 w) a$ a
  s. Q* Z) E0 K     {

" S. m  d8 V& S             char *str = "1234567890";

             return SysAllocString((BSTR)str);

5 [8 T8 e/ c' z- b: [) {      }
/ J) U+ h5 _$ D6 w" i
或者参考一下VB下调用GeTComputerName的方法.


0 U) }2 G, Q: o7 O; t
6 C1 d# {( j; \' A4 q8 T* J6 @

  VC++与VB数据类型对应关系
: C0 v- n( S' O- O
VC++        VB
short        Integer
int        Long
long        Long
1 E" [1 B0 }* {9 ~4 U3 EUNIT        Long
ULONG        Long
WORD        DWORDLong
WPARAM        LPARAMLong
WMSG        UMSGLong
HRESULT        Long
BOOL        Boolean
COLORREF        Long
HWND,HDC,HBRUSH,HKEY,等等        Long
2 P1 d, E7 j1 M9 l" Q, VLPSTR        LPCSTRString
LPWSTR,OLECHARBSTR        String
LPTSTR        String
) ]" O# x( D- p1 J; [" }$ yVARIANT_BOOL        Boolean
# Z- V! ]% G3 y0 E0 [8 i4 J, runsignedchar        Byte
, u  S9 h, \% e3 ^6 r( O3 hBYTE        Byte
VARIANTVariant
* s) D7 w9 s. E( B5 J(任何以*或**结尾的数据类型)        Long

$ a: c1 t* W( J" [
c中的数据类型        VB中的声明        结果
                  
ATOM        ByVal variable As Integer        结果为Integer 类型的表达式
BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
% ^2 L9 ^1 Y* `# z/ O+ k; iBYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
CHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
; x9 s4 e2 I2 Y( u  n8 ZCOLORREF        ByVal variable As Long        结果为 Long 类型的表达式
9 `  ~0 p* z6 D! _- A) ?5 A1 }DWORD        ByVal variable As Long        结果为 Long 类型的表达式
HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
+ B( `6 g1 n  q3 p/ _& WINT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
2 X) I0 |: V1 h  N4 y: ?; q2 pLONG        ByVal variable As Long        结果为 Long 类型的表达式
LPARAM        ByVal variable As Long        结果为 Long 类型的表达式
LPDWORD        variable As Long        结果为 Long 类型的表达式
- _& |4 T  n- M/ \! MLPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
LPRECT        variable As type        自定义类型的任意变量
: q: {) U! c- a0 C5 D) cLPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
LPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
" p1 G. i2 e6 @. ~LPWORD        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 类型的表达式
( i$ c0 T! e! ~; |- Q1 uWPARAM        ByVal variable As Long

9 @8 k* g6 G, g7 D3 Q