114网址导航> VB调用VC的dll函数返回值为HANDLE即为一个设备句柄，怎么设置返回值
VB调用VC的dll函数返回值为HANDLE即为一个设备句柄，怎么设置返回值
xieyufang & &
发布时间： & &
浏览：11 & &
回复：2 & &
悬赏：0.0希赛币
VB调用VC的dll函数返回值为HANDLE即为一个设备句柄，如何设置返回值如题所示，返回的值为HANDLE一个设备的句柄，在vb中声明函数时该用怎样的返回值啊？
Longlidali & &
11:25:05 & &
& & （0）（0）引用
lidan00 & &
11:25:05 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&请问高手：VB如何调用VC编写的类和模块？请问高手：VB如何调用VC编写的类和模块？问题补充：太感谢b-知识宝库
你可能对下面的信息感兴趣4844人阅读
第一种类型：数值传递 注意：在VB中，默认变量传递方式为ByRef为地址，而传递值就是用ByVal，还要注意在C++中，int类型的变量是32位的，在VB中要用long型变量来配合。
VC++部分：
extern "C" _declspec(dllexport) int __stdcall TestCalc(int source)
//AFX_MANAGE_STATE(AfxGetStaticModuleState());
return(++source);
EXPORTS TestCalc
VB部分声明：Private Declare Function TestCalc Lib "Dll.dll" (ByVal Source As Long) As Long
Dim Tint As Long
Tint = TestCalc(45)
MsgBox Tint, vbExclamation&
第二种类型：传递字符串，主要用于字符串返回或者处理。
VC++部分：
extern "C" _declspec(dllexport) int __stdcall MidStr(CHAR * src,CHAR * dest)
//AFX_MANAGE_STATE(AfxGetStaticModuleState());
strcpy(dest,src+1);
EXPORTS MidStr
VB部分：声明：Private Declare Function MidStr Lib "Dll.dll" (ByVal src As String, ByVal dest As String) As Long
Dim i As Long, s As String * 255
tempstr = "Hello!World"
i = MidStr(tempstr, s)
或者 i = MidStr("Hello!World", s)
MsgBox s, vbExclamation&
第三种类型：传递数组和变量指针，主要用于从dll中读出大量数据
VC++部分：
extern "C" _declspec(dllexport) int __stdcall TestByte(BYTE *p,int *length)
//AFX_MANAGE_STATE(AfxGetStaticModuleState());
*(p+1)=46;
*length=2;
EXPORTS TestByte
VB部分声明：Private Declare Function TestByte Lib "Dll.dll" (ByRef src As Any, ByRef length As Long) As Long 调用：
Dim a(0 To 10) As Byte
Dim i As Integer, length As Long
i = TestByte(a(0), length)
MsgBox a(0) & " " & a(1) & vbCrLf & length, vbExclamation&
第四种类型：传递字符串数组
1、VB TO VC :
extern "C" _declspec(dllexport) int WINAPI StringArray(LPSAFEARRAY *VbArray)
BSTR bSTR;
// UNICODE 字符串
LPSAFEARRAY pSa;
SAFEARRAYBOUND iB
char *arry[10];
for(i = 0;i & 10;i++)
arry[i] = "A";
iBound.lLbound = 0;
// 数组起始位
iBound.cElements = 10;
// 数据长度
// SafeArray描述符
if (*VbArray == NULL)
if ((pSa = SafeArrayCreate(VT_BSTR,1,&iBound)) == NULL)
// 创建SafeArray描述符
return FALSE;
*VbArray = pSa;
// 返回SafeArray描述符
if ((*VbArray)-&cDims != 1)
// 释放为一维数组
return FALSE;
for (i = iBound.lLi & iBound.cEi++)
bSTR = SysAllocString((BSTR)arry[i]);
if(FAILED(safeArrayGetElement(*VbArray,(long*)&i,&bSTR))) // 从VbArray数组读取数据
return FALSE;
// 放数组元素到VbArray数组
if(FAILED(safeArrayPutElement(*VbArray,(long*)&i,bSTR)))
return FALSE;
SysFreeString(bSTR); // 释放空间
Public Declare Function StringArray Lib "xxx.DLL" (byval s() As String) As Integer
Sub StringArrayTest()
tmp = StringArray(s)
Debug.Print s(0)
2、VB TO VC
VB的字符串数组是由BSTR组成的SafeArray类型，所以VB里DLL函数如此声明：
Private Declare FunctionMyFun Lib "MyDll" (ByVal strarr As Variant) As Long
建立MFC DLL工程，名为 ShowVBStrArr 编译生成 ShowVBStrArr.DLL
DLL函数原形：
extern "C" BOOL __stdcall ShowVBStrArray(VARIANT VBpStrArray)
SAFEARRAY FAR *pStrArrTemp = NULL;
BSTR HUGEP *
if(V_VT(&VBpStrArray) != (VT_ARRAY | VT_BSTR))//判断是否为字符数组
return FALSE;
pStrArrTemp = V_ARRAY(&VBpStrArray);
if (SafeArrayGetDim(pStrArrTemp)!=1)//判断是否为一维数组
return FALSE;
SafeArrayGetLBound(pStrArrTemp,1,&LBound);
SafeArrayGetUBound(pStrArrTemp,1,&UBound);
SafeArrayAccessData(pStrArrTemp, (void HUGEP* FAR*)&pbstr);
for (int i=0;i&(UBound-LBound)+1;i++)
strtemp+=LPWSTR(pbstr);
MessageBox( 0,strtemp,"结果",MB_OK);
SafeArrayUnaccessData(pStrArrTemp);
return TRUE;
在DLL工程的def文件里编辑如下：
ShowVBStrArray
Option Explicit
Private Declare Function ShowVBStrArray Lib "xxx.dll" (ByVal pstr As Variant) As Long
Private Sub Command1_Click()
Dim prompt(1) As String
prompt(0) = "Hello"
prompt(1) = "World"
ShowVBStrArray prompt
第五种 传结构体
由于需要根据需求向DLL中传入多种值或者需要从DLL中返回多种数据，都可以传结构体，不过得注意VB和VC的类型对应。具体操作如下：
extern "C" _declspec(dllexport) BOOL WINAPI cPowerAlarm(PowerAlarm* tagPower,PowerResult* tagResult)
&结构体定义：
// 电源报警模块 参数结构体
typedef struct tagPowerAlarm
char* strSIM;
// SIM 卡号
char* cStartT // 开始时间
char* cEndT
// 终止时间
// 电源报警模块 返回结果结构体
typedef struct tagPowerResult
char cResultCH[20]; // 充电情况判断
char cResultQuality[20]; // 电池品质判断
char cResultHV[20]; // 过充判断
char cResultLV[20]; // 欠压判断
Public Declare Function cPowerAlarm Lib "DataDiagnose.DLL" (ByRef myPower As h_PowerAlarm, ByRef myPowerResult As h_PowerResult) As Integer
结构体定义：
' 电源报警模块 参数结构体
Public Type h_PowerAlarm
' SIM 卡号
strStartTime As String
' 开始时间
strEndTime
' 终止时间
' 电源报警模块 返回结果结构体
Public Type h_PowerResult
strResultCH As String * 20
' 充电情况判断
strResultQuality As String * 20 ' 电池品质判断
strResultHV As String * 20
' 过充判断
strResultLV As String * 20
' 欠压判断
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：69078次
排名：千里之外
原创：24篇
转载：10篇
评论：46条
请有问题的小伙伴们可以加入群一起讨论：
(1)(2)(1)(1)(1)(1)(3)(2)(1)(3)(1)(1)(4)(7)(1)(1)(3)您现在的位置：&>&&>&&>&
育龙网&WWW.CHINA-B.C0M&& 日&&来源：互联网
核心提示：
我们在编写VisualBasic应用程序的时候常常需要自己动手编写一些库函数或ActiveX控件，而这些函数或者控件常常采用VC语言来写，因而
我们在编写VisualBasic应用程序的时候常常需要自己动手编写一些库函数或ActiveX控件，而这些函数或者控件常常采用VC语言来写，因而也常为VB和VC两种语言之间不同参数类型、内存空间使用方法等问题为难，怎么做好呢？本文介绍了在VB和VC混合编程的情况下对这些问题的解决方法。一、自定义类型参数向DLL库函数的传递用VB，VC进行混合编程时，通常需要在VB中调用VC编写的DLL库函数，这时，一般都要遇到向库函数传递参数的问题。对于标准类型参数，其传递比较简单，只要保证了VB中对库函数的声明和VC中对库函数的定义在参数类型、次序和传递方式上的一致性，参数就不会被错误传递。但是，如果需要向库函数传递自定义类型的参数，情况就会变得复杂了。情况一：自定义类型的所有成员变量都是同一种类型。TypePensRedPenNumAsLongGreenPenNumAsLongB1uePenNumAsLongEndType这时，只要在VB和VC中对该结构采用相同的定义，并充分注意到VB和VC对某些数据类型存储上的差异，就不会发生参数传递错误。情况二：自定义类型中成员变量的类型不完全一致。这时，又要区分两种情况：情况没有Double型成员变量。这时一般也不会出现参数的传递错误。情况含有Double型成员变量。这时参数通常就会被误传。比如传递下面的Person类型的参数到VC开发的DLL库函数，Double型成员Height的值就会在传递中丢失：TypePersonAgeAsLongHeightAsDoubleEndType造成Height值丢失的原因是由于在VC中存储Person型变量时，将自动在Long型成员Age和Double型成员Height之间插入若干字节的分隔空间，而VB则不会。所以，VC中存储一个Person型变量需要的内存要多于12字节，而VB只需要12个。因此，从VB传入DLL库函数的Person型变量就不能被正确接收。解决这一问题的方法有多种，这里介绍一种比较简便和普适的，称之为“引入补位成员法”:在Person这种自定义类型中引入若干个内存补位成员，使得任一个Double型成员之前的所有成员占用的字节总数都是单个Double型变量所占字节数的整数倍。仍以Person类型为例，由于Age成员占用4字节内存，所以要在其后引入一个占用4字节的补位成员，不妨引入一个String型的成员Tempst：TypePersonAgeAsLongTempstAsString4HeightAsDoubleEndType于是，Double型成员Height之前的所有成员占用的内存总数变成了8个字节，是8的整数倍。此时，将DLL库函数中对Person的定义作同样的修改后，就可以正确接收从VB传来的Person型参数了。注意：引入补位成员时，不但要合理分配其占用的字节数，而且要正确安排其在结构体中的位置，二者缺一不可。上例中，若把补位成员放在Height之后，Doubl型变量Height之前的所有成员占用的字节总数仍然是4，不是8的整数倍。在自己编写DLL库函数时，往往会在函数接口处使用复杂的自定义结构。在VB中调用这种函数时，采用“引入补位成员法”适当修改结构体的定义，就可以有效地避免参数传递上的错误。二、使用在VC中动态申请的内存混合语言编程时，有时需要在VB代码中使用通过VC动态申请到的内存。这时，可以通过下述方法实现：1)VC中申请动态内存的DLL库函数charAPIENTRYCreateStringBuffer2)VB中接收动态内存指针的代码......DeclareFunctionCreateStringBufferLib"C:“DLLTest“Test.dll"_AsLong‘Long型变t接收动态内存指针......DimslBuffer&atBuffer=CreateStringBuffer‘申请一块可存放20个字符的内存，得到指向该内存的指针......‘使用该动态内存......注意：VB中使用完动态内存后，为了避免内存泄漏二要将其指针传回VC进行内存释放工作。三、自定义类型参数向ActiveX控件的传递在编写VB程序时，如果使用的是标准ActiveX控件，那么一般不需要向控件传递自定义类型的参数，因为大多数控件的大多数属性都是标准类型的。但是，在混合语言编程中，当我们采用VC中的ATL3.0模板自行开发ActiveX控件时，往往希望能够向控件的某些属性或方法传递自定义类型的参数，以提高参数的传递效率。这里介绍一种向控件传递自定义类型参数的简便方法。假设要以VB为客户端开发一个ActiveX控件AX，它有一个Student属性，类型是自定义结构Person：TypePersonAgeAsLongHeightAsDoubleEndType第一，正确编写Student属性的接口函数。我们将Student属性存取函数的接口参数类型写成一个long型的指针，而不再是BSTR。因为ActiveX内部的全部基于Unicode基础之上，所以，这样处理会避免由于字符集不匹配而造成的参数误传。相关的代码如下：1)AX.idl中对Student属性的定义[propget，id，helpstring]HRESULTS[propput，id，helpstring]HRESULTS2)AX.h中对Student属性存取函数的定义STDMETHOD;STDMETHOD;3)AXcpp中对Student属性存取函数的实现STDMETHODIMPCAX::get_StudentSTDMETHODIMPCAX::put_Student第二，正确编写VB向AX的Student属性动态赋值的代码。在VB中，先声明一个Person型变量，给该变量赋值后，获取该变量的内存地址并赋给Student属性即可。代码如下:......DimStudentPropAsPersonDimStudentAddrAsLongStudentProp.Age=23StudentProp.Heigth=1.78‘得到StudentProp变量的内存地址，赋给StudentAddrAX1.Student=StudentAddr......借助指针完成自定义类型参数向ActiveX控件的传递所依据的是以下事实：不论控件是.dll还是.ocx，它都是与其客户同在一个内的。所以，只要AX被编译成.dll或.ocx，指针的传递就是安全可靠的。四、中英文混合型字符串输出长度的确定中英文混合型字符串输出长度的确定问题在VB编程中经常遇到，而且可以通过VB，VC混合编程有效解决，所以在此一并给出。VB编程中，经常需要得到某个字符串在实际输出时所需要的长度。这时，我们通常会考虑Len和LenB这两个函数。我们知道，Len返回的是字符串中字符的个数，对于不含中文字符的字符串，其返回值通常就等于该字符串的输出长度；LenB返回的则是按照双字节字符集计算出的字符串所占用的字节数，对于纯中文字符组成的字符串，其返回值通常也等于该字符串的输出长度。但是，当字符串中既有中文又有英文字符时，二者的返回值都不等于该字符串的输出长度。比如：“A中国人”这个字符串，用Len函数时将返回4；LenB则返回8；而实际输出时，它将占用7个印刷符。为了计算中英文混合型字符串的输出长度，我们可以用VC编写一个完成此计算的DLL库函数，在VB中直接调用该函数即可。该VC函数和VB中的调用代码如下：1)VC6.0中的DLL函数longAPIENTRYSizeof_vbString2)VB6.0中对Sizeof_vbString的声明和调用......DeclareFunctionSizeof_vbStringLib"C:“DLLTest.dll"_AsLong............DimstLen&stLen=Sizeof_vbStringstLen=7......应该指出：上述方法同样可以计算纯英文或纯中文字符串的输入长度。->
相关热词搜索:
-- 本站部分信息来源于互联网，不代表本站观点或立场，如有侵权，请来电告知，我们将及时处理