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

15757753770

0 _) E, R4 g/ T2 A0 w& s. c, s4 H
& l0 }; |1 `* x- Y
8 O7 @3 O! d9 q+ i& R# S7 R以下内容转载来的 部分亲测 部分未测试
# G# D. G, r6 ~  w
( M1 C& U' S/ E! E* n
& ~/ S$ a2 X! J7 D1 k
VB调用C DLL时的参数传递

函数在C中的原型，参数类型和传递方式 对应关系   
! Y7 M1 |( Q. O( w) H
( C6 t: o9 e0 e9 y# A, O: x
) p1 j* Z' g- f# i7 _, l
C DLL 原型         VB声明                 VB调用
( F. [$ \/ }* O5 F
USHORT a         ByVal a as long           Call func(…,a,…)

2 ?8 ]2 F6 e7 j  X+ Xint a                   ByVal a as long           Call func(…,a,…)
" \2 c4 {$ D7 S# C( Y
2 [% P1 e5 U2 k: I7 d" R! Zlong a                ByRef a as long          Call func(…,byval a,…)

int *pa                ByRef pa as long        Call func(…,pa,…)

3 H7 a8 J) E2 }8 I! Jlong *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)
+ O8 |+ w+ W% ~9 h! N- w5 v
LPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)
0 {- U5 p% W4 K# x* W+ d
char *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)

! b/ u% v: O' x$ |wchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)

- d% l& D4 I, |$ ?! u. m" ystruct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)

  e* p% J4 S/ M0 \. G0 vHANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)
8 A3 o; m+ E: `1 }$ }
" f7 H% R, r/ X* W6 e3 g0 H" Z. Y( b备注  

+ W+ f; Y# T% `) T1)不推荐使用此方式

2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50
. N; h0 m( W& Z( [2 f- x
. T2 T6 m, E, P  t( F3)用户定义子类型必须用ByRef方式传递，

4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。


# z9 @1 n  I( W& q& M* y8 j
$ r; x& B4 f5 T( D* }" Y) O9 t5 x
& P; ]0 N& ~6 i& F) g! {
% J! i$ v% K8 x  ^5 y& D
1 P! @7 L' j! Z/ ?4 C
数组传递     

& @' {6 z) B* T! i        数组传递值用ByRef
3 t4 o% _* W+ C3 z2 T
* D# a7 E! }: L* E        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。
. _! K: R+ q2 v9 u0 W  U8 L
" M. q4 z8 S  \, X$ W

% o3 k" X' A. M' I! _9 s         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。

) ^4 @8 C6 ]8 C



dll函数直接返回字符串


! M+ f' p! t+ p
/ B: G1 Z, a, m: p% p        VB下的字符串格式和VC中的char有些不同的

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



     EXTERN_C BSTR WINAPI RetStr()
& j8 x2 l; d0 I% e1 n% s
& |, O2 R- o6 `, T  n     {
) j$ p' s2 r" ~7 N$ x( H
             char *str = "1234567890";
; o$ c) P5 z, p2 J
- Z3 X+ q# i/ n% E3 L  c             return SysAllocString((BSTR)str);
  Y- {1 H6 k' j  {+ X- Y4 @
      }

或者参考一下VB下调用GeTComputerName的方法.
  O% K; _  R8 X- w  l/ \; |8 }8 H
- D4 Y# x! m- Y2 K8 k
: u  v) ]+ t$ o


  VC++与VB数据类型对应关系

9 x/ o- ]8 J7 E+ I& dVC++        VB
short        Integer
int        Long
long        Long
UNIT        Long
9 q; t+ c. q# {$ M/ g$ V1 @" [ULONG        Long
, J/ P- _7 L: V) x' q, eWORD        DWORDLong
9 J' V2 W& {. F2 @# ]$ J8 m+ cWPARAM        LPARAMLong
WMSG        UMSGLong
HRESULT        Long
BOOL        Boolean
/ }! U$ u0 J8 v$ i& ~& U3 H6 n' UCOLORREF        Long
, R( S7 a6 U/ F5 Y0 P2 d; vHWND,HDC,HBRUSH,HKEY,等等        Long
LPSTR        LPCSTRString
LPWSTR,OLECHARBSTR        String
LPTSTR        String
. Y" l+ ]6 u: R% `# Y1 JVARIANT_BOOL        Boolean
unsignedchar        Byte
% Y" l0 q& O+ \1 ]( l/ F: _BYTE        Byte
VARIANTVariant
) q6 ]- x& d7 t6 y( `9 t# Z(任何以*或**结尾的数据类型)        Long
4 T$ O4 L( B) Q( ?, b* y
& I. V- j% C5 ^' l" }" J8 k
c中的数据类型        VB中的声明        结果
2 w/ a( h$ L3 i6 B% n& U- z0 P                  
ATOM        ByVal variable As Integer        结果为Integer 类型的表达式
9 W+ v3 P7 ~* e3 v# u* \BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
BYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
CHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
* |& k* s' N; M# T: `9 UCOLORREF        ByVal variable As Long        结果为 Long 类型的表达式
( f* f: E6 J' O( W8 q/ JDWORD        ByVal variable As Long        结果为 Long 类型的表达式
HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
3 H1 Y7 N/ S. y9 b: R: ~INT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
LONG        ByVal variable As Long        结果为 Long 类型的表达式
+ m* D# g9 w8 c' p3 D* \LPARAM        ByVal variable As Long        结果为 Long 类型的表达式
LPDWORD        variable As Long        结果为 Long 类型的表达式
+ O' f) L  O6 J3 GLPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
LPRECT        variable As type        自定义类型的任意变量
: I0 H' p4 c  x7 k# @& y  QLPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
1 }( s0 B% `$ U* ?1 c: N9 E& G7 rLPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
LPWORD        variable As Integer        结果为Integer 类型的表达式
* s8 A- @$ V/ g5 o  a' N$ ~LRESULT        ByVal variable As Long        结果为 Long 类型的表达式
6 N+ A, B6 O6 ~, s% Q! fNULL        As Any 或 ByVal Nothing 或 ByVal variable As Long ByVal 0& 或 VBNullString SHORT ByVal variable As Integer        结果为Integer 类型的表达式
VOID        Sub procedure        不可用
, l: R- U1 c; E' O) z; e3 U* {WORD        ByVal variable As Integer        结果为Integer 类型的表达式
1 i) Q7 a" M& ^$ T: ^2 W, _WPARAM        ByVal variable As Long
- A- N* H: X' E* L9 Y2 Y
9 ~3 O: [- w7 V0 o