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

15757753770

( P8 t/ }* D& [6 G5 o" x& x$ |
% G# I, ]6 n2 z" A& W! Z0 V5 A, r* k以下内容转载来的 部分亲测 部分未测试

8 L) g* [& ~! ~5 n
: ^6 [( B% n- w3 `% t; [
VB调用C DLL时的参数传递

函数在C中的原型，参数类型和传递方式 对应关系   
4 B+ Y4 y/ u% v" E7 R
9 }9 \1 m! h) n1 Z& L. V

3 z! J% f: k" Z4 s9 F- rC DLL 原型         VB声明                 VB调用

: }0 ^! `) n3 Z- @7 T+ s2 xUSHORT a         ByVal a as long           Call func(…,a,…)

int a                   ByVal a as long           Call func(…,a,…)
  _3 C3 `: Z4 g3 ~2 `/ R/ p* z
# I6 Y0 K8 h8 J' Z0 Along a                ByRef a as long          Call func(…,byval a,…)

$ T% }9 J# l3 j/ w# pint *pa                ByRef pa as long        Call func(…,pa,…)
3 S! ?4 B% I+ V! |$ Y/ Q
& O, G" u. |6 B3 flong *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)
- P0 W; Q, i7 p, p: C% q. W! ]
, `  T2 g! a% Q1 lLPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)
* w7 H+ V7 F& q3 v
char *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)
" r' `. i8 I( X$ b9 y' G
( _" J2 m% Q( p' |8 _3 swchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)
  k& w: \5 T: ?1 N3 C3 f
struct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)
# X* V( x/ j' k
HANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)

备注  
- N: t; \6 j" o/ Y
1)不推荐使用此方式
9 i5 d& F/ m8 a
4 F* @5 U0 S0 v) i5 Z0 ?0 @' }4 J2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50

3)用户定义子类型必须用ByRef方式传递，

3 E: I: M4 I+ a9 o2 s4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。
: d$ g$ q+ D$ [, x7 U/ \: X


$ ]* d( d+ w$ X3 u2 t) |9 v/ q) _
+ A2 f) g: X' e4 z9 O4 [/ p& O


( r8 P4 O! L) ^: M数组传递     

! G3 j, o( g+ m1 V        数组传递值用ByRef

9 v4 W! i7 ~- O% b2 C# C8 r        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。

3 _* Y; ^& R  K% @6 J6 m. j5 y; }

         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。
* X; M5 H  z+ A# N

  ]4 u/ o+ z4 F& f0 G1 i


dll函数直接返回字符串


, L; m# y- m# @7 n# u  m* g- S
1 s8 _* c7 |- U        VB下的字符串格式和VC中的char有些不同的

8 D2 N- u" B* @8 v% _1 ^4 j        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:



     EXTERN_C BSTR WINAPI RetStr()
4 K+ k7 q; I: }* l
     {
2 r$ D, x+ a! ~0 Q7 [! _: T6 F. ~* r
, E' O$ }# h1 w             char *str = "1234567890";
5 E4 B  U- ~4 e: o4 J  p
             return SysAllocString((BSTR)str);
. b1 u3 r3 k/ a9 I) Y2 T
- @2 d' F3 E0 L- f  g, l+ e% d1 q      }
1 Y  m9 D: a- ]' e0 u# L; V) L% ^
或者参考一下VB下调用GeTComputerName的方法.


% m4 b% H3 S; g' _

4 l' n, C3 z/ J* w7 I
  VC++与VB数据类型对应关系
4 L/ M$ A# y: {. B
' [  x) D8 M0 I3 n9 F2 @! _8 AVC++        VB
5 i; C. y+ a; |$ `( Cshort        Integer
int        Long
5 X4 y4 R8 O/ L* s4 i, Ylong        Long
UNIT        Long
ULONG        Long
WORD        DWORDLong
: C; f$ a9 f9 c4 l  z3 l7 ?, F$ EWPARAM        LPARAMLong
WMSG        UMSGLong
" N& i/ ~" ^& \! o5 D' _% C3 G8 jHRESULT        Long
  e& p: a6 }2 h; y- I+ E, _BOOL        Boolean
- p6 [1 d6 }6 l) E, ZCOLORREF        Long
HWND,HDC,HBRUSH,HKEY,等等        Long
LPSTR        LPCSTRString
5 w/ g% k* N1 _9 q& \LPWSTR,OLECHARBSTR        String
& s3 x4 V; m( n3 N1 N' \LPTSTR        String
VARIANT_BOOL        Boolean
unsignedchar        Byte
BYTE        Byte
VARIANTVariant
7 T7 i$ v5 L: z6 u' x" }1 O/ P0 F(任何以*或**结尾的数据类型)        Long

. C  K2 J, L9 p6 R: G. L: ]
c中的数据类型        VB中的声明        结果
. X" ]" m! j* r5 `* x                  
) y, l) O8 V1 N+ L( T$ CATOM        ByVal variable As Integer        结果为Integer 类型的表达式
BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
BYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
) w, R5 W& @) M$ \. v, w; CCHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
' v  L  K8 p# xCOLORREF        ByVal variable As Long        结果为 Long 类型的表达式
. }2 B5 \% x% L! rDWORD        ByVal variable As Long        结果为 Long 类型的表达式
HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
INT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
8 u5 b) q4 f3 Q! f# X9 OLONG        ByVal variable As Long        结果为 Long 类型的表达式
LPARAM        ByVal variable As Long        结果为 Long 类型的表达式
5 D7 g" N% s' C9 F. `+ y1 zLPDWORD        variable As Long        结果为 Long 类型的表达式
0 j& s- q( [9 u' O! z! U4 M% Y) MLPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
LPRECT        variable As type        自定义类型的任意变量
6 }6 e2 f% J# g3 o4 _! X) k: N+ nLPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
- i3 A4 @3 P( j4 E( ^LPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
) i3 e0 u7 c$ sLPWORD        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 类型的表达式
WPARAM        ByVal variable As Long