none
vb6.0内存溢出 RRS feed

  • 问题

  • 请高手看看问如下代码内存溢出:

    Public Function GetHByPos(ByRef vCell As GSCell, ByVal vStr As String, ByRef iNum As Integer) As Integer
    'Note:Add by braveboy at 20040525
    'Description:通过单元格位置获取单元格行号
    On Error GoTo Err1
    Dim i As Integer
    Dim sLabel As String
    Dim sData, iPos As Integer
    For i = Len(vStr) To 1 Step -1
        If Not IsNumeric(Mid(vStr, i, 1)) Then Exit For
    Next
    If i < Len(vStr) Then
        sLabel = right(vStr, Len(vStr) - i)
    Else
        GetHByPos = -1
        Exit Function
    End If

    For i = 0 To vCell.Rows - 2
        vCell.DoGetCellData -1, i, sData
        iPos = InStr(1, sData, ".")
        If iPos > 1 Then
            If Trim(left(sData, iPos - 1)) = Trim(sLabel) Then iNum = iNum + 1
        End If
        If Trim(sData) = Trim(sLabel) Then
            GetHByPos = i
            Exit Function
        End If
    Next
    GetHByPos = -1
    Err1:
        PrintErr Err.Description, "GetHByPos"
    End Function

    如上代码会溢出,请高手看看那里有问题


    scott

    • 已移动 ThankfulHeart 2012年10月28日 9:22 VB.NET问题 (发件人:Visual C#)
    • 已移动 Youen Zen 2012年11月8日 7:32 VB6 Issue (发件人:Visual Basic)
    2012年10月26日 5:43

全部回复