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

15757753770

" s; q/ s6 k/ \$ X2 u
以下内容转载来的 部分亲测 部分未测试
6 D6 f8 a- B7 M2 j
( Q$ m7 [9 {2 A

VB调用C DLL时的参数传递
$ G4 X* y! H( b) k% B) Q  X
函数在C中的原型，参数类型和传递方式 对应关系   


+ [' V  b; n  ^
, d$ H2 D, I  U( ^6 B- hC DLL 原型         VB声明                 VB调用
/ H- V8 h, ^+ A. \& J% o& |! Z
USHORT a         ByVal a as long           Call func(…,a,…)
! s- [9 l) w" m! m1 a6 L! @
0 K7 ?) Q# {  wint a                   ByVal a as long           Call func(…,a,…)
; x) Z+ ?# m* P0 N
! D( G  v& @2 p' z' u' `. dlong a                ByRef a as long          Call func(…,byval a,…)

" u5 F+ n4 K( i: n7 e, Z( Zint *pa                ByRef pa as long        Call func(…,pa,…)

8 A" ~* G6 ?& _$ p3 j4 Jlong *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)

& o( B4 C5 L0 [& B3 mLPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)

& f# M3 K( _+ N9 J4 Gchar *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)
; P) Y& Q3 l& n
9 y! J. H# Z9 x5 V& Awchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)

4 p3 m: Y; n  r, ?0 C+ e' bstruct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)
% f( l, {9 }% N* r
HANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)
, |+ n# e7 z2 E& C# P
备注  

8 X, Z% u& \3 T( W1)不推荐使用此方式
* y! @, ?1 h8 {3 M7 M% g5 W
2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50
3 y0 u  ^' l- V2 A
3)用户定义子类型必须用ByRef方式传递，

4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。
# i  S- d$ D; P4 \6 C



9 d5 w; A9 P( L8 E, z( j

9 Y% z# I$ _9 V# k7 O2 ~
) ]. a. P' j2 T6 {4 ^数组传递     

2 H9 e) k0 U- S# f, U, T        数组传递值用ByRef

        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。



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


1 O7 e+ f1 L" _9 z


dll函数直接返回字符串
5 ^$ K9 y0 T7 h* |
' q$ S+ `" c7 U8 W" Q
" I. U" p- K5 y
& P( a2 D  i/ b9 ?! G& l6 w4 {        VB下的字符串格式和VC中的char有些不同的

        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:
4 ^! P; q/ n3 P' M
2 u4 P6 f" U) X: y) O! @
/ @& F  g) E% U; T/ a. x! t8 x
     EXTERN_C BSTR WINAPI RetStr()
. f4 L5 r5 n2 z' |
/ q/ e) G. [/ q. p/ J     {

             char *str = "1234567890";
0 }" r) C% j# U: Q
6 J7 @7 v: f3 T/ w             return SysAllocString((BSTR)str);

$ K5 V/ K2 _6 P. _6 |      }

" _- J! u( L0 X9 B+ W* [, S2 K( h或者参考一下VB下调用GeTComputerName的方法.

" m- ]+ ]  Z& P; v) [  w+ T9 p

1 w9 N- H+ g  ]7 I7 U7 m0 a' F

  VC++与VB数据类型对应关系
. l5 E: x7 ?$ W! i, k( B: P/ F
VC++        VB
short        Integer
int        Long
+ }2 p# [2 `. M% D+ }long        Long
" o6 k$ [2 |9 O& x2 I+ w9 RUNIT        Long
* E. h1 L/ ^4 n/ _" ~$ \+ a$ TULONG        Long
: u2 ^! V2 B# J, c! tWORD        DWORDLong
WPARAM        LPARAMLong
WMSG        UMSGLong
* y& U& p6 }) sHRESULT        Long
BOOL        Boolean
7 p# H4 l0 k0 g; \, qCOLORREF        Long
HWND,HDC,HBRUSH,HKEY,等等        Long
  [1 c+ }! n' dLPSTR        LPCSTRString
LPWSTR,OLECHARBSTR        String
+ P4 V4 k% R! s% c' ?LPTSTR        String
VARIANT_BOOL        Boolean
unsignedchar        Byte
BYTE        Byte
/ r6 O/ l6 d3 l# R9 w) OVARIANTVariant
, Y- d2 k+ H6 i) R' @! ^# z7 n(任何以*或**结尾的数据类型)        Long

, y9 z8 ^, F9 V: M! ]6 t5 E) k3 N
c中的数据类型        VB中的声明        结果
                  
ATOM        ByVal variable As Integer        结果为Integer 类型的表达式
: Z; c; x7 n  J2 b1 r2 \BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
' V9 z0 n+ [! z  RBYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
CHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
; g. ^( \4 M7 ~! GCOLORREF        ByVal variable As Long        结果为 Long 类型的表达式
DWORD        ByVal variable As Long        结果为 Long 类型的表达式
$ t+ }% s( _& t4 rHWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
. u3 ?+ W! [9 Z* ^* e, ?INT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
7 j6 l# Z, b7 E( v  K1 W) rLONG        ByVal variable As Long        结果为 Long 类型的表达式
8 p$ y( I" [4 g4 G. q! ?/ w7 JLPARAM        ByVal variable As Long        结果为 Long 类型的表达式
) M8 h) `, z' ~8 kLPDWORD        variable As Long        结果为 Long 类型的表达式
! p- w' N6 i9 G0 pLPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
! ]$ L0 T8 H1 |; @LPRECT        variable As type        自定义类型的任意变量
LPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
LPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
# w2 S- n- a- hLPWORD        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 类型的表达式
, D1 C3 {# g6 ?1 AVOID        Sub procedure        不可用
0 P2 b5 T& i8 o9 l5 g) iWORD        ByVal variable As Integer        结果为Integer 类型的表达式
7 p2 b/ j- }' X' w# j# kWPARAM        ByVal variable As Long