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

15757753770

& R7 O+ u& M& `& q+ N以下内容转载来的 部分亲测 部分未测试
$ F; Y3 g( u& w$ n; @$ n
  T; ]# D: t8 p
: f* U3 D3 M2 N
VB调用C DLL时的参数传递
. t+ N" A! c  x8 S- B; p' A
( q+ F  L0 n5 ]& _; w: F函数在C中的原型，参数类型和传递方式 对应关系   
" E' h; H9 k4 |
8 V/ m! l( Z) q' Q4 A
$ W  [; n* g5 j- }
$ l. t* L3 t& i) n% [C DLL 原型         VB声明                 VB调用
# |7 Q; ~! J/ |
  h0 I& a6 j" M  UUSHORT a         ByVal a as long           Call func(…,a,…)
6 V) j4 b2 o# [$ P1 v
int a                   ByVal a as long           Call func(…,a,…)
/ u4 F2 z4 h, Y' h9 O
: w0 _0 V! G7 p, R% v2 C" L% ~long a                ByRef a as long          Call func(…,byval a,…)

! ?% S! Q0 X6 ^int *pa                ByRef pa as long        Call func(…,pa,…)

long *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)
% u  Q) c1 R+ W& O& ]
LPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)

9 O0 ~5 Z3 |1 o* G" Qchar *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)

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

struct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)

/ D; b! s7 Q1 d( n0 E) D9 sHANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)

备注  

1 ^  n$ L: L0 |% v$ p7 Z3 \4 B  b1)不推荐使用此方式
. y& p' m$ ~& V$ H- C" C
$ h4 I, V8 X8 |, p6 \2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50

3)用户定义子类型必须用ByRef方式传递，
0 e# e* N. }& @& F: [" w4 X; V) S9 _
8 H7 V7 z" p& Z5 G4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。

( E" A) k3 W  Y
- ~0 E. a3 h2 w3 j/ D; b3 R
3 T; f2 _/ s  R  d* X' ~8 z4 \) L
( P7 r$ a7 [, g6 p+ i
3 x1 ?$ Q( H" ^6 J8 Z7 ^
; j( ]6 A* @7 N( ^
0 A" D/ B. ~) x5 W+ ]数组传递     
5 P9 u8 M. V& K5 u  g
        数组传递值用ByRef

        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。
$ B. O: Q/ ~  v# V0 b

1 I* o2 T6 M1 q" q' ^8 _
         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。

4 k9 @4 t8 W! f) k( c



dll函数直接返回字符串



; b. U& g* O) }' _/ m$ R        VB下的字符串格式和VC中的char有些不同的

8 j% F  {( x& @7 W& F6 b- @5 `+ B$ Q        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:



     EXTERN_C BSTR WINAPI RetStr()

     {

             char *str = "1234567890";

& ?! O0 M/ Y! X, i) u  D/ l4 i             return SysAllocString((BSTR)str);
' E, O. V* Z" N+ F
      }

/ @( r: z% d0 C: K3 v( h或者参考一下VB下调用GeTComputerName的方法.
5 V6 I0 ?: t7 d* Q! k
; l* o+ o7 P; i) W2 Q

3 V* }' M. y, v4 Z  v* P% `

  VC++与VB数据类型对应关系
) T3 g0 w; q* H
VC++        VB
* m  B5 N( n9 Z8 a( eshort        Integer
int        Long
' C; t; T3 N. @* c0 }long        Long
2 _' l! M( t# N$ a, ?UNIT        Long
- r  Q0 s- _6 z0 V/ G* ]1 w+ kULONG        Long
6 F3 `/ V! x! K# N$ x& Q& d/ m6 Y$ EWORD        DWORDLong
8 ]( G( j  J5 R8 y# p! OWPARAM        LPARAMLong
2 j% k0 \  H0 e- z; l9 GWMSG        UMSGLong
HRESULT        Long
BOOL        Boolean
! X" \* x3 a+ J) nCOLORREF        Long
HWND,HDC,HBRUSH,HKEY,等等        Long
) B  T) V4 E) H2 ]# f4 C- LLPSTR        LPCSTRString
' `( P% ]( g0 e: P9 ?, Q! [3 {LPWSTR,OLECHARBSTR        String
LPTSTR        String
% y* D% h2 V+ SVARIANT_BOOL        Boolean
unsignedchar        Byte
BYTE        Byte
VARIANTVariant
9 k( Q4 x1 N- L4 X. [, \: `(任何以*或**结尾的数据类型)        Long


c中的数据类型        VB中的声明        结果
% V1 y2 S9 ]) F5 Y5 b$ u/ g& ?                  
7 I& @0 ?* u1 q! a5 uATOM        ByVal variable As Integer        结果为Integer 类型的表达式
BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
) j+ R) u6 H$ B: jBYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
6 }6 j- l8 \, D% t5 w3 Z6 }CHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
& M" r% a5 e2 ^* _. vCOLORREF        ByVal variable As Long        结果为 Long 类型的表达式
3 `$ {0 f$ f" x# v% ^DWORD        ByVal variable As Long        结果为 Long 类型的表达式
HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
. L! d) k' a: y, W" [3 e  Z/ sINT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
LONG        ByVal variable As Long        结果为 Long 类型的表达式
3 Q0 D) ?9 Y1 E: {7 x$ E+ XLPARAM        ByVal variable As Long        结果为 Long 类型的表达式
LPDWORD        variable As Long        结果为 Long 类型的表达式
LPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
LPRECT        variable As type        自定义类型的任意变量
3 m! z. c+ E- K2 ]; N, HLPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
LPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
3 d, ]+ h5 e& M, O  Q4 @* n# SLPWORD        variable As Integer        结果为Integer 类型的表达式
* ^" S, |9 u  P) m" G- G3 K. C( r8 QLRESULT        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        不可用
' Y) n0 l+ N3 O, UWORD        ByVal variable As Integer        结果为Integer 类型的表达式
8 j8 ^2 k3 v* c* e1 w9 f3 w3 X) p' S' M  xWPARAM        ByVal variable As Long
/ O6 y5 m( l+ {1 }- Y( h
3 g3 G$ O, N0 A6 b