|
nbsp; Case 3 ''''关闭
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]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
