VB调用VC写的DLL出了点问题
VC DLL:
BOOL __stdcall LEDShowCharge(byte addr,byte ledaddr,int staytime,int charge);
VB :
Declare Function LEDShowCharge Lib "CardPc300.dll" (ByVal Addr As Byte, ByVal ledaddr As Byte, ByVal stattime As Long, ByVal charge As Long) As Boolean
Private Sub LEDShowCharge_Click()
Dim stattime As Long
Dim charge As Long
Dim test As Byte
stattime = 20
charge = 5
test = 25
If LEDShowCharge(1, 255, stattime, charge) Then
MsgBox ("设置收费成功")
Else
MsgBox ("失败!")
End If
End Sub
结果出现 “错误地参数号或是无效地属性赋值” 的错误。查看LEDShowCharge(1, 255, stattime, charge)的定义时提示说什么被隐藏了。这VB代码是我同事写的,VC DLL是我写的,不知道会不会是我DLL的问题,但是我用VC DELPHI调用的时候都正常啊
1、 你的DLL中函数导出了吗?
2、如果DLL已经导出出现这个问题,把VB的声明返回参数用long 替换boolean试试
函数有导出,我用delphi调用也很正常。
Declare Function LEDShowCharge Lib "CardPc300.dll" (ByVal Addr As Byte, ByVal ledaddr As Byte, ByVal stattime As Long, ByVal charge As Long) As Long
---------------------------
C:
#define TRUE 1
#define FALSE 0
BOOL = int
bool = byte
VB:
True = -1
False
相关问答:
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
怎么优化查询的效率,比如我想从100万条记录中每次只查询100条记录的话,那么这条sql语句该怎么实现,注意:语言是VBScript的,
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法,goog ......
各位大虾:
我有一个VB调用水晶报表的系统,报表是作为一个Design嵌在VB里的,今天发现打印第一张报表正常,同样的数据,在点打印再调用一次就会报 Memory Full的错误,但是 ......
.net里面有没有像vb里的richtextbox控件啊?
有的。名字也差不多。RichEdit 或者 RichTextBox。
winfrom项目中工具箱有的吧
webform没的,只有win有
web可以用fckedit
引用
webform没的,只有win有 ......