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

15757753770

以下内容转载来的 部分亲测 部分未测试
& L/ i5 I9 O- y" ]! H0 c
# Q- S: P0 u6 {, d' B2 K

VB调用C DLL时的参数传递

; c2 X- k* F9 I% L6 M" m1 }函数在C中的原型，参数类型和传递方式 对应关系   


4 `9 O# ]% s* j$ t- W6 O
C DLL 原型         VB声明                 VB调用

1 V* I  Y, F5 E+ o% ]USHORT a         ByVal a as long           Call func(…,a,…)
$ }- o* Y' z3 b2 M; b2 I4 |% D
. A  U7 |4 h# ]; a  Cint a                   ByVal a as long           Call func(…,a,…)
2 f1 D1 j4 A- ?- Q5 R8 k- n
7 J5 Q, B7 Z: J7 T7 b8 Along a                ByRef a as long          Call func(…,byval a,…)
! d* o. N8 G( Z3 t$ U; \  Z
1 q$ u8 |! h2 W# L7 c) ~9 J; gint *pa                ByRef pa as long        Call func(…,pa,…)

. k$ |# y1 S6 T3 Q4 `' B; glong *pa             ByVal pa as long         Call func(…,varptr(pa),…)              <---------(1)
8 T7 y+ b; j; E; |5 A4 k% L2 D
LPSTR  lpStr      ByVal lpStr as string    Call func(…,lpStr,…)

char *pstr           ByVal pstr as string    Call func(…,pstr,…)                       <---------(2)
+ n* o9 E0 S" G3 B
wchar *pstr         ByRef pstr as string   Call func(…,byval pstr,…)

struct tagX *p      ByRef p as tagX         Call func(…,ptag,…)                      <---------(3)
; K0 t* E5 k6 H- q
2 }' u! J3 p6 i, G7 g9 _HANDLE h           ByVal h as long          Call func(…,h,…)                           <---------(4)

; p, S& `" w6 S7 L* ]备注  
6 ^* }7 B- C) S! {
; b. @* d! L" {& {1)不推荐使用此方式
' }) _( c( \5 K5 R: [0 ]' ?: J5 V
2)如果DLL要求一个字符串缓冲区，一定要在调用前初始化字串，即dim t as string * 50

! t7 l' A  L$ p3)用户定义子类型必须用ByRef方式传递，
* ^3 |3 |; V# E* p) H; s; }& D" g! f
4)任何内核对象的句柄(process, thread, module, file, filemapping, semaphore等)和大多数GDI对象的句柄都能用此方式传递。
7 a$ q  r& B# F. q- ]& K  a7 A  _; i
. T& H) \" I- {6 n

8 I+ ]8 V% Z  Q) e& v4 z! p+ p


( ~' o* ^* ?* u# w8 u
数组传递     

        数组传递值用ByRef
6 ^5 }2 V' ~* O
- c, S* @. H2 N$ Z& f        VB地址到VC的传递，只需要将数组第一个值得地址作为ByVal参数传递过去就可以。

2 }, q0 H2 J( v# O
3 W2 N/ D6 j( E7 v7 x3 Z
: ]+ X( ]8 q; \" P         VC中的数组的第一个的元素的地址传递到VB，只需要通过API函数CopyMemory就可以将整个数组拷贝到VB数组中。


7 g' D" U# V0 f: Q9 ]# w- g


5 V- H# H5 i0 b. W, u! y- ~9 Fdll函数直接返回字符串

+ L. B- I% m+ W( H% b/ z1 e/ L, @
+ ]" K( a% E$ D: ^) E7 P6 M- {7 y1 H
        VB下的字符串格式和VC中的char有些不同的

        直接返回char *是不行的，VB不支持这种做法。正如你在资料中看到，大多数都是在VB中先给字符串分配空间，再传递给VC，在DLL中可以修改字符串，但不能超过VB中分配的空间。如果你希望直接返回字符串，必须使用BSTR类型，这实际上就是VB中的字符串所使用的类型。下面是一个简单的例子:
: S6 Y( ~0 X& g5 \
7 r7 h- f: x- A6 \
9 [1 _& T6 \, A# _$ R0 g3 f8 u
# O, B. X, H- ?6 D. k4 }     EXTERN_C BSTR WINAPI RetStr()

9 V/ S. E6 J0 v( d7 c0 s, [% X     {
8 M3 A" y; d9 H( d  D
             char *str = "1234567890";
3 R- u7 M1 w* e* e" Q; ?1 a1 s
: R: `: S- t1 ^2 ^. h5 `+ T             return SysAllocString((BSTR)str);
7 ~; J' E# M$ u& L3 d  V; X! ?0 d( _
+ g- H& J9 E8 Q4 p6 E; M      }

或者参考一下VB下调用GeTComputerName的方法.
; E# `% ~) @* \6 n


# v+ z% Q& c/ v/ l& v
% N' l3 V$ Y& n5 A  |' p+ ]+ L- M
  VC++与VB数据类型对应关系
/ H3 J( b) R% g( S5 C/ L- c
VC++        VB
2 x7 m9 N# I1 x$ Z' fshort        Integer
% J' Z/ d: I. R/ ^5 Y0 ]int        Long
8 O0 q# t3 P+ ~7 Vlong        Long
UNIT        Long
/ Y7 M8 r3 _( }* j. AULONG        Long
5 A7 H: M# O, @# U8 D5 eWORD        DWORDLong
WPARAM        LPARAMLong
: f  d6 @9 f8 `- e& V1 `WMSG        UMSGLong
5 K6 Y$ z- W8 ]) _6 x: s; fHRESULT        Long
9 z2 R: r. ~+ Q) d* ?( MBOOL        Boolean
1 U: C3 K. B5 z- u# u) dCOLORREF        Long
. a& B, T, P: i8 Y  {  ?" yHWND,HDC,HBRUSH,HKEY,等等        Long
LPSTR        LPCSTRString
: s* p2 ?0 b: h# ZLPWSTR,OLECHARBSTR        String
/ D- @5 z+ e6 K+ i' P! A- OLPTSTR        String
VARIANT_BOOL        Boolean
2 M8 D! Z2 u5 w7 l. Uunsignedchar        Byte
% m& H7 S, p  u% O- d/ o% Z* O+ oBYTE        Byte
6 _5 y) A! p# mVARIANTVariant
(任何以*或**结尾的数据类型)        Long
& F. z1 q) |) \0 u% r: y3 P

/ E/ B1 S% m$ M! P2 Jc中的数据类型        VB中的声明        结果
                  
/ C4 I. k, K1 r& _% |4 d. Z! hATOM        ByVal variable As Integer        结果为Integer 类型的表达式
BOOL        ByVal variable As Boolean        结果为 Long 类型的表达式
BYTE        ByVal variable As Byte        结果为 Byte 类型的表达式
CHAR        ByVal variable As Byte        结果为 Byte 类型的表达式
9 i& N, y+ p9 ?% ]5 \COLORREF        ByVal variable As Long        结果为 Long 类型的表达式
DWORD        ByVal variable As Long        结果为 Long 类型的表达式
HWND, HDC, HMENU        ByVal variable As Long        结果为 Long 类型的表达式等Windows 句柄
1 M8 F; @/ T4 I& [0 OINT, UINT        ByVal variable As Long        结果为 Long 类型的表达式
LONG        ByVal variable As Long        结果为 Long 类型的表达式
# f0 B2 ~. Y0 E3 X1 T+ ]8 ^LPARAM        ByVal variable As Long        结果为 Long 类型的表达式
LPDWORD        variable As Long        结果为 Long 类型的表达式
* Q4 @7 \" L8 z( fLPINT, LPUINT        variable As Long        结果为 Long 类型的表达式
LPRECT        variable As type        自定义类型的任意变量
0 `6 E) ~$ `$ O( {9 y1 TLPSTR, LPCSTR        ByVal variable As String        结果为 String 类型的表达式
% `* b2 r0 s# r5 Y2 `LPVOID        variable As Any 任何变量（在传递字符串的时候使用ByVal）         
LPWORD        variable As Integer        结果为Integer 类型的表达式
2 A- g! m+ M# q0 o0 v' p; ^1 pLRESULT        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 类型的表达式
& a0 r  [3 q; YWPARAM        ByVal variable As Long