转贴 'MSVBVM60.DLL

VB 专栏收录该内容
15 篇文章 0 订阅

'MSVBVM60.DLL Declare Sub rtcBeep Lib "msvbvm60.dll" () Declare Sub rtcDoEvents Lib "msvbvm60.dll" () Declare Function rtcTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcRightTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcLeftTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcUpperCaseBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcLowerCaseBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcSpaceBstr Lib "msvbvm60.dll" (ByVal lCount As Long) As String Declare Function rtcRightCharBstr Lib "msvbvm60.dll" (ByVal lpString As Long, ByVal lCount As Long) As String Declare Function rtcLeftCharBstr Lib "msvbvm60.dll" (ByVal lpString As Long, ByVal lCount As Long) As String Declare Function rtcGetDateBstr Lib "msvbvm60.dll" () As String Declare Function rtcGetTimeBstr Lib "msvbvm60.dll" () As String Declare Function rtcGetTimer Lib "msvbvm60.dll" () As Long Declare Function rtcInStrRev Lib "msvbvm60.dll" (ByVal lpStringCheck As Long, ByVal lpStringMatch As Long, ByVal lStart As Long, ByVal lCompare As Long) As Long Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long Declare Function vbaLenBstr Lib "msvbvm60.dll" Alias "__vbaLenBstr" (ByVal lpString As Long) As Long Declare Function vbaLenBstrB Lib "msvbvm60.dll" Alias "__vbaLenBstrB" (ByVal lpString As Long) As Long Declare Function vbaInStr Lib "msvbvm60.dll" Alias "__vbaInStr" (ByVal lStart As Long, ByVal lpStringMatch As Long, ByVal lpStringCheck As Long, ByVal lCompare As Long) As Long Declare Sub GetMem1 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Byte) Declare Sub GetMem2 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Integer) Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long) Declare Sub GetMem8 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Currency) Declare Sub PutMem1 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Byte) Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer) Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long) Declare Sub PutMem8 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Currency)

 

 

'VBA6.DLL Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long Declare Sub EbTerm Lib "vba6.dll" () Declare Function EbDoIdle Lib "vba6.dll" () As Long Declare Function EbMode Lib "vba6.dll" () As Long Declare Function EbShutdownEventMonitors Lib "vba6.dll" () As Long

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值