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

15757753770

, @0 g4 a  o$ }4 m+ R6 p) ?; _以下内容转载来的 部分亲测 部分未测试
1 R8 F3 L1 j  k. x9 \$ Z+ K
, a% K" i8 G- t( Y0 _- l
( Y1 B4 ]: H) |6 |; @, c/ b
VB调用C DLL时的参数传递

函数在C中的原型，参数类型和传递方式 对应关系   


6 i+ N0 q( z) t. b/ f
! l+ i+ _6 e) D# jC DLL 原型         VB声明                 VB调用
! H9 Z, b7 J* b3 G  h2 K' T
USHORT a         ByVal a as long           Call func(…,a,…)

int a                   ByVal a as long           Call func(…,a,…)
6 a  M0 p6 D4 n. C- G6 r; I
long a                ByRef a as long          Call func(…,byval a,…)
# o3 I$ R$ H) f. B! ]) G- B
' p, c8 x0 L+ O/ Lint *pa                ByRef pa as long        Call func(…,pa,…)
9 Q3 ~* {: R$ ~/ m
  s7 Q. H( \  t! _long *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)
" V# p7 ^2 ~+ J& q! i! J
LPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)

3 J3 x* p  G4 h( Wchar *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)

+ a3 C3 C+ @6 O+ P4 @wchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)
) H. }  y* }. o: `& ?
0 q* P& Y6 t# u" M6 @struct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)
1 _8 u: P7 T+ h% m& L
HANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)
4 S* R7 I- k  c0 r# f# `$ V
/ o3 [5 P9 C$ p7 c9 A/ N" @备注  

( p2 L6 x% E: ]6 V5 H1)不推荐使用此方式
4 O" f. t+ ^7 z; I  ^$ q
2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50

% M- `, y4 J- J3)用户定义子类型必须用ByRef方式传递，
' C# [- |( ?& ]4 {
4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。


& h+ l* N0 D% U# t0 x
. Q) a/ B9 r9 B
! C% Z& S' K3 p$ O$ @4 y


1 R  U' T$ a/ y, k数组传递     
1 H; E9 ~7 Q2 w$ J
( M# L: y1 r5 y2 e" d/ f' N        数组传递值用ByRef
2 G2 M, u- r- A' N$ V
        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。


' p) k, C- o2 E" b  {( @# M
         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。

. _* }4 N  b' x% @" J



dll函数直接返回字符串
: g0 _' M% P9 I5 i. T- k$ G

# S0 E3 }/ e; p9 k) y. Z4 l" m
        VB下的字符串格式和VC中的char有些不同的
# S# s# _! {1 k- p2 ?
& d5 d; {  G1 o1 I9 b! e' y( e3 }        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:



     EXTERN_C BSTR WINAPI RetStr()

     {
) G( T7 g. g  p+ f% {5 e: ^
; ], o2 d9 r* E: U             char *str = "1234567890";

             return SysAllocString((BSTR)str);
  a/ m; A4 D3 n" n0 T$ X/ \/ n, K
      }
# E' I  E7 F4 {
或者参考一下VB下调用GeTComputerName的方法.


; R  K# c; \' ^, I


. q6 Z" P. M" ]  VC++与VB数据类型对应关系

VC++        VB
short        Integer
int        Long
long        Long
- x, w- g) m3 y, t; R1 c- vUNIT        Long
ULONG        Long
WORD        DWORDLong
WPARAM        LPARAMLong
( L9 X- M! K+ ^) l/ b  oWMSG        UMSGLong
HRESULT        Long
BOOL        Boolean
COLORREF        Long
. G: r. Y$ p) S- Q4 w% HHWND,HDC,HBRUSH,HKEY,等等        Long
LPSTR        LPCSTRString
LPWSTR,OLECHARBSTR        String
8 R0 D& H$ c8 Z2 i5 ELPTSTR        String
4 s8 s1 b$ b4 H: iVARIANT_BOOL        Boolean
8 }: z9 U* y( O/ [2 D9 {: [9 Nunsignedchar        Byte
' B- p' y4 \, n2 x# s7 Z% [. QBYTE        Byte
- u* {3 @0 c& w4 O6 i# w9 M* }VARIANTVariant
(任何以*或**结尾的数据类型)        Long

2 }1 c3 k/ [$ T+ u4 _$ ?- V4 [
& i5 d3 a1 R4 l- c+ o4 xc中的数据类型        VB中的声明        结果
/ D3 \! O0 t; T- o& s  T" x( ~, \                  
, a4 V7 C% p+ {$ b3 `$ X- AATOM        ByVal variable As Integer        结果为Integer 类型的表达式
BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
. S" P* {% O$ ^1 l4 YBYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
% X! O' v) r0 s) O& t( o! xCHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
$ @4 [0 z. c6 W$ Y- g8 {" [COLORREF        ByVal variable As Long        结果为 Long 类型的表达式
' I1 I  N) P: k' b" t0 QDWORD        ByVal variable As Long        结果为 Long 类型的表达式
HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
3 w3 Q$ C) n, Q/ R/ ?8 G, ]INT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
; z( Q) f, p) _3 qLONG        ByVal variable As Long        结果为 Long 类型的表达式
* y3 [" Q8 S" v' tLPARAM        ByVal variable As Long        结果为 Long 类型的表达式
# _$ u2 M- `) Z' R; ALPDWORD        variable As Long        结果为 Long 类型的表达式
LPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
LPRECT        variable As type        自定义类型的任意变量
- g8 p; k1 z% S2 l5 SLPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
LPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
LPWORD        variable As Integer        结果为Integer 类型的表达式
LRESULT        ByVal variable As Long        结果为 Long 类型的表达式
5 z8 J8 @1 L% R0 t1 b! S. eNULL        As Any 或 ByVal Nothing 或 ByVal variable As Long ByVal 0& 或 VBNullString SHORT ByVal variable As Integer        结果为Integer 类型的表达式
6 h) U5 a! }8 @; ]! m5 PVOID        Sub procedure        不可用
WORD        ByVal variable As Integer        结果为Integer 类型的表达式
. h* B2 |  y/ mWPARAM        ByVal variable As Long

; U0 {, ?; z' J3 H  k