首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于此程序的实现,该如何解决

2012-03-22 
关于此程序的实现调用外部一个vc写的函数Declare Function VC_Seal Lib seal.dll () As Integer现想实现

关于此程序的实现
调用外部一个vc写的函数Declare Function VC_Seal Lib "seal.dll" () As Integer
现想实现以下的功能:直接调用VC_Seal函数,该函数会自动处理一些数据,如果函数返回值为-1,则说明一种情况,返回值为0,说明一种情况,返回值为正值,又说明一种情况。
程序具体该如何实现呢?

[解决办法]
直接拿返回值比较啊……
[解决办法]
Declare Function VC_Seal Lib "seal.dll" () As Integer

sub aSub()
select case VC_Seal 
case -1
....
case 0
.....
case >0
.....
end select
end sub

热点排行