首页
社区
课程
招聘
[旧帖] vb6的这几个函数你知道吗 0.00雪花
发表于: 2010-3-13 12:19 6793

[旧帖] vb6的这几个函数你知道吗 0.00雪花

2010-3-13 12:19
6793
vb6中的这几个函数干什么用的?
VbaGenerateBoundsError
VbaErrorOverflow
vbaExceptHandler
vbaHresultCheckobj

[注意]APP应用上架合规检测服务,协助应用顺利上架!

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 145
活跃值: (85)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
2
VbaGenerateBoundsError VBA函数里的吧?根据名字应该是获取通常的维数错误
VbaErrorOverflow      错误 溢出
vbaExceptHandler  异常的句柄
vbaHresultCheckobj  检查对象的返回值
2010-3-13 21:26
0
雪    币: 364
活跃值: (91)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
3
VbaGenerateBoundsError 数组下标越界
VbaErrorOverflow 错误 溢出
vbaHresultCheckObj 对某个控件进行控件校验。
vbaExceptHandler,VB的万能断点,VB在每个过程的开始都要安装一个线程异常处理过程。
2010-3-13 23:24
0
雪    币: 246
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
4
这是VB的内部函数,在MSVBVM60.DLL内,微软从来没有公布过MSVBVM60.DLL  API资料,因此世界范围内除了微软VB的开发人员外,没几个人真正理解和懂得这些东西的真正含义。但是,这并不意味着没有办法搞懂他们,只是需要非常艰苦的努力。我就认识一个牛人,专门研究VB内部函数,下面他给的一个函数,只可惜与你的问题没有多大关系,发这些只是让大家明白问题的性质。

vbaVarCat:
       将一个字符串加到另一个后面。

VB应用实例:
Declare Function vbaVarCat Lib "MSVBVM60.DLL" Alias "__vbaVarCat" (var1 As Variant, var2 As Variant) As Variant

Private Sub Command2_Click()
    MsgBox CStr(vbaVarCat("lo!", "Hel"))
End Sub
2010-3-14 12:38
0
雪    币: 145
活跃值: (85)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
5
'**************************************
'数学相加运算
Declare Function vbaVarAdd Lib "MSVBVM60.DLL" Alias "__vbaVarAdd" (var1 As Variant, var2 As Variant) As Variant
'数学相减运算
Declare Function vbaVarSub Lib "MSVBVM60.DLL" Alias "__vbaVarSub" (var1 As Variant, var2 As Variant) As Variant
'数学相乘运算
Declare Function vbaVarMul Lib "MSVBVM60.DLL" Alias "__vbaVarMul" (var1 As Variant, var2 As Variant) As Variant
'字符串合并,把X放到M之后
Declare Function vbaVarCat Lib "MSVBVM60.DLL" Alias "__vbaVarCat" (var1 As Variant, var2 As Variant) As Variant

'例如:
    MsgBox "1+2=" & Trim$(Str$(vbaVarAdd(2, 1)))
    MsgBox "10-5=" & Trim$(Str$(vbaVarSub(5, 10)))
    MsgBox "6*6=" & Trim$(Str$(vbaVarMul(6, 6)))
    MsgBox CStr(vbaVarCat("lo!", "Hel"))
2010-3-17 20:40
0
游客
登录 | 注册 方可回帖
返回
//