求解一段VB代码

悬赏园豆：10 [已解决问题] 解决于 2013-06-17 16:12

'移动Flow图形
Private Sub FlowMoveImg(ImgIdx As Integer, ImgValue As String, ShowIndex As Integer, ShowTime As Date, ShowLab As String)
    Dim iSum As Integer, MyHeight As Single, i As Integer, ChkFIN() As String, StrH As Single

    iSum = ImgIdx

    MyFShowIdx = ShowIndex

    For i = 0 To LastShow
        If ShowAdd(i) = CStr(MyFShowIdx) Then MyFShowIdx = MyFShowIdx + 1        '不让图形重叠
    Next
    '移动
    'ImgFlow(iSum).Move (PicFlow.Width / LineSum) * MyFShowIdx - (ImgFlow(iSum).Width / 2), (PicFlow.Height - ImgFlow(iSum).Height) / 2 - 30
    ImgFlow(iSum).Move (PicFlow.Width / LineSum) * MyFShowIdx - (ImgFlow(iSum).Width / 2), PicFlow.Height
    ImgFlow(iSum).ToolTipText = ShowTime & " " & ImgValue
    ImgFlow(iSum).Visible = True

    LabFName(iSum).BackStyle = 0
    LabFName(iSum).Width = Abs(PicFlow.TextWidth("好"))
    LabFName(iSum).Height = PicFlow.Height
    LabFName(iSum).Move (PicFlow.Width / LineSum) * MyFShowIdx - (LabFName(iSum).Width / 2), PicFlow.Height - ImgFlow(iSum).Height
    LabFName(iSum).ToolTipText = ShowTime & " " & ImgValue
    LabFName(iSum).FontSize = 8

    If ShowLab = "0" Then
        LabFName(iSum).Visible = True
    Else
        If ShowLab = "5" Then
            If InStr(ImgValue, "置管") <> 0 Then
                ChkFIN = Split(ImgValue, "置管")
                ImgValue = Replace(ImgValue, "置管", "         ")
                StrH = Len(ChkFIN(0)) * Abs(PicFlow.TextHeight("好"))

                LabFName(iSum).Move (PicFlow.Width / LineSum) * MyFShowIdx - (LabFName(iSum).Width / 2), PicFlow.Height
                ImgFlow(iSum).Move (PicFlow.Width / LineSum) * MyFShowIdx - (ImgFlow(iSum).Width / 2), PicFlow.Height - StrH
            End If

            LabFName(iSum).Visible = True

        Else
            LabFName(iSum).Visible = False
        End If
    End If

    LabFName(iSum).Caption = ImgValue

    If FlowLock = True Then
        ImgFlow(iSum).Enabled = False
        LabFName(iSum).Enabled = False
    Else
        ImgFlow(iSum).Enabled = True
        LabFName(iSum).Enabled = True
    End If

    ShowAdd(ImgIdx) = MyFShowIdx           '记住要秀的位置

    LastShow = ImgIdx
End Sub