Unload Me

    End Select

    Exit Sub

ErrLab:

    If Err.Number = 32755 Then

        Exit Sub

    Else

        Err.Raise Err.Number, , Err.Description

        Exit Sub

    End If

End Sub

Private Sub lstInfo_ItemClick(ByVal Item As MSComctlLib.ListItem)

    EditLstvInfo Item

End Sub

Private Sub lstInfo_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

    Dim ItemInfo As MSComctlLib.ListItem

    Set ItemInfo = lstInfo.HitTest(x, y)

    If Not (ItemInfo Is Nothing) Then

        lstInfo.ToolTipText = "[第" & Trim(ItemInfo) & "列]  源信息：" & Trim(ItemInfo.SubItems(1)) & _

                              "  目标信息：" & Trim(ItemInfo.SubItems(2))

    Else

        lstInfo.ToolTipText = ""

    End If

    Set ItemInfo = Nothing

End Sub

Private Sub txtEditInfo_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

    txtEditInfo(Index).ToolTipText = Trim(txtEditInfo(Index))

End Sub

 << 上一页  [11] [12]