vb6functions.bas

来自「一个完整的HTML编辑器」· BAS 代码 · 共 20 行

Attribute VB_Name = "VB6Functions"
Option Explicit
' These are vb6 functions not in vb5. If using vb 6 comment out these functions or
' remove this module from the project... note that i have edited some of these functions
' for my use and the vb 6 functions may not work the same. You could always change the
' name of these functions and replace the call in the code. These functions were taken from
' support.microsoft.com

Public Function RevInStr(ByVal sIn As String, sFind As String, Optional nStart As Long = 1, Optional bCompare As VbCompareMethod = vbBinaryCompare) As Long
Dim nPos As Long
    nPos = InStr(nStart, sIn, sFind, bCompare)
    If nPos = 0 Then
        RevInStr = 0
    Else
        RevInStr = Len(sIn) - nPos - Len(sFind) + 2
    End If
End Function
 
' End VB6 functions