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

15757753770

  E6 T. \2 [" @, M9 z' \
0 {% s+ K( z" D$ x7 y  k1 Z1 f( r以下内容转载来的 部分亲测 部分未测试
7 j5 Q3 w( O  z, ]5 G: i


" E  p+ K: L1 P) PVB调用C DLL时的参数传递

函数在C中的原型，参数类型和传递方式 对应关系   
; h; {5 M* c) p* g" p# r& V
; k1 V1 P/ U  I! q8 W

C DLL 原型         VB声明                 VB调用
/ w7 n' D0 h; a8 t+ D7 \
USHORT a         ByVal a as long           Call func(…,a,…)
, F7 i* _" l3 M( k8 T; m) R* M$ P3 i9 R+ f
" i. t# U/ V% Jint a                   ByVal a as long           Call func(…,a,…)
5 H" k9 K& U5 A( K- j) g2 g2 D0 U
  s& e. P: w4 r/ R: v" slong a                ByRef a as long          Call func(…,byval a,…)

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

long *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)

LPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)
+ F0 C  N  J: u# x- D  i
6 D2 e& s7 A9 k; Kchar *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)
" H  @+ @) ]+ c4 I  ^
# I$ M+ f9 c- Q7 c! M+ j# b+ Y, \wchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)

struct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)
' d. V" R! N: H3 ^! _9 F4 h  M! n
HANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)

8 O4 B$ ~4 n* \% d1 {# R, U备注  

1)不推荐使用此方式
$ e5 w" N3 r  J; Y. G' u1 T  G+ M9 A
2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50

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

+ O- L" C( K1 ]& M1 d4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。



; D. N! Y3 E, Q* ^



数组传递     

        数组传递值用ByRef

; ]. c6 G( a. [4 S: G2 _        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。
# U7 v. h7 X6 K
2 t5 H3 e4 q% Q7 h" b( d; _

' S  O( O, d2 ^8 z9 e         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。

$ l/ p3 M4 O/ C$ f

5 N  K/ y# |" e  Y8 j& ]

% ~: D1 I0 u$ g$ hdll函数直接返回字符串

9 P8 P0 B, T, R* A

        VB下的字符串格式和VC中的char有些不同的
+ S+ q/ R* t+ I
        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:
+ @) H# h7 F( f) S2 J& [

  d% q) ^( K5 z2 @
     EXTERN_C BSTR WINAPI RetStr()

     {
1 s, B& N( k5 X/ e; [
/ Y/ Y* h* |" N4 J9 S( m             char *str = "1234567890";

             return SysAllocString((BSTR)str);

      }
& x4 J9 h! z, R) J; ^: _6 w
4 Z2 e, j$ Z4 a! L9 P% i) i或者参考一下VB下调用GeTComputerName的方法.
, }) M4 W8 {  E2 t3 m
6 @" R+ l  a' ~/ w

+ M6 ?5 o/ U0 q! i/ c
% v- c6 `+ p! A4 M
  VC++与VB数据类型对应关系
6 R% T' o# V( T# _
' U: ~9 x+ n" _+ R) _- I% ?VC++        VB
short        Integer
int        Long
5 p! g9 ], d0 d1 U6 Flong        Long
5 X: w" R) y. }8 M! L' L! s) ?! CUNIT        Long
ULONG        Long
WORD        DWORDLong
9 h/ Y. A5 c9 R. `0 oWPARAM        LPARAMLong
! X% `! K* H$ ~2 |6 o2 i% iWMSG        UMSGLong
5 }1 i: d7 a2 P/ S' ?8 x% fHRESULT        Long
, Q- p1 F" h" [1 w5 cBOOL        Boolean
COLORREF        Long
" T2 |7 m; F+ ^; r9 {1 IHWND,HDC,HBRUSH,HKEY,等等        Long
LPSTR        LPCSTRString
LPWSTR,OLECHARBSTR        String
$ k, k& |: j% N6 yLPTSTR        String
: F& d% w  k2 C+ T* d5 EVARIANT_BOOL        Boolean
unsignedchar        Byte
BYTE        Byte
" g& z8 V& p5 z3 y7 R9 YVARIANTVariant
! Y, B* o" x4 A( y; T( S, O% R$ h7 U(任何以*或**结尾的数据类型)        Long

, X( y1 ~4 P& s- v6 N, U! V( _
. z9 d$ X! \; E: x0 @) kc中的数据类型        VB中的声明        结果
                  
ATOM        ByVal variable As Integer        结果为Integer 类型的表达式
BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
# Y' D$ T6 Q( ~- j. o* sBYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
CHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
COLORREF        ByVal variable As Long        结果为 Long 类型的表达式
! E6 ]% V0 G; dDWORD        ByVal variable As Long        结果为 Long 类型的表达式
HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
INT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
/ b4 O  h/ z8 s3 z; H9 oLONG        ByVal variable As Long        结果为 Long 类型的表达式
LPARAM        ByVal variable As Long        结果为 Long 类型的表达式
  T+ V! N8 j% p. ~: FLPDWORD        variable As Long        结果为 Long 类型的表达式
LPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
0 ?) @3 p" O% Z) I9 K7 F( ]* dLPRECT        variable As type        自定义类型的任意变量
LPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
LPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
/ L' w6 }3 V& k7 y6 e( X  |LPWORD        variable As Integer        结果为Integer 类型的表达式
LRESULT        ByVal variable As Long        结果为 Long 类型的表达式
. d, e0 \' N9 l$ CNULL        As Any 或 ByVal Nothing 或 ByVal variable As Long ByVal 0& 或 VBNullString SHORT ByVal variable As Integer        结果为Integer 类型的表达式
: H: O: e, Y$ O& h" w1 C9 UVOID        Sub procedure        不可用
/ C& E1 ^- H+ S' @4 G2 Q  V5 s0 |WORD        ByVal variable As Integer        结果为Integer 类型的表达式
WPARAM        ByVal variable As Long