Office中国论坛/Access中国论坛

标题: 鼠标指针 [打印本页]

作者: zxh 时间: 2006-4-1 02:52
标题: 鼠标指针
有一个矩形框，有鼠标移动事件（Screen.MousePointer = 9），能不能有鼠标退出事件（即鼠标离开矩形时）（Screen.MousePointer = 0）？

作者: 一点通 时间: 2006-4-1 04:07
在窗体的鼠标移动事件上写上Screen.MousePointer = 0

作者: wu8313 时间: 2006-4-1 04:33
可以利用鼠标移动到矩形框上的时候，获取该矩形框的名称，根据这个string变量做出一个判断，可以做到一个类似退出的效果。

鼠标交替在两个矩形框上面移动，可以看到效果。

==================================

Option Compare Database
Option Explicit

Private Sub Rectangle_properties(ByVal Rectanglename As String)

'-----------------------------------------------------
'Dim frm As Form
'Set frm = Screen.ActiveForm ' 返回指向活动窗体的 Form 对象。
Dim CtlA As Access.Control
'循环处理活动窗体的所有控件
For Each CtlA In Me.Controls
   If CtlA.ControlType = acRectangle Then  '针对矩形控件进行遍历设置
      If CtlA.Name = Rectanglename Then
      With CtlA
         ' .borderwith = 3
         .BackStyle = 1
         .BorderColor = 16744448
         .BorderStyle = 1
      End With

      Else

      With CtlA
         ' .borderwith = 1
         .BackStyle = 0
         .BorderColor = 0
         .BorderStyle = 0
      End With

      End If
   End If
Next CtlA

End Sub

Private Sub 矩形1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Rectangle_properties(Me.矩形1.Name)

End Sub

Private Sub 矩形2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Rectangle_properties(Me.矩形2.Name)

End Sub
[attach]16810[/attach]

[此贴子已经被作者于2006-3-31 20:35:49编辑过]

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