Office中国论坛/Access中国论坛

标题: 关于"全ListView攻略"例子中的一段vba........ [打印本页]

作者: mrl 时间: 2005-4-14 05:49
标题: 关于"全ListView攻略"例子中的一段vba........
以下vba是应用于ListView，能否应用于图片上并且有同样效果（鼠标移出图片后图片为不可见）呢？应如何改写？

Private Sub ListView_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
With ListView
If Button = 0 Then
      If (x < 0) Or (y < 0) Or (x > .Width) Or (y > .Height) Then
         Set .DropHighlight = Nothing
         ListView.Visible = False
         ShowEffect lvMenuBtn1, 0
         ReleaseCapture
      Else
         If Not ListView.HitTest(x, y) Is Nothing Then
            If Not ListView.DropHighlight Is ListView.HitTest(x, y) Then Set ListView.DropHighlight = ListView.HitTest(x, y)
         Else
            Set ListView.DropHighlight = Nothing
         End If
         SetCapture .hwnd
      End If
End If
End With
End Sub

作者: mrl 时间: 2005-4-16 01:42
顶上来，或者有其他方法吗？

作者: test2000 时间: 2005-4-16 19:46
ShowEffect 代码没贴上?

作者: mrl 时间: 2005-4-18 21:49

以下是引用mrl在2005-4-15 17:41:37的发言：
顶上来，或者有其他方法吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)