上一篇
下一篇
挖掘MSVBVM60.DLL内的API （1）
作者:JiaJia 日期:2008-01-24
引用内容'**************************************
' VBVM60.DLL API Calls
'**************************************
'数学相加运算
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"))
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论