·t¶Â

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Detail   §ï¦¨  §Aªºªí³æ¦WºÙ   ¦p¡G  UserForm

·t¶Â

§ï¥Î³o¤@­Ó
§Ú¨S§ïµ{¦¡½X¡AÁÙ¬O¸ò¤W¦¸¦^ÂФ@¼Ë¡A¥u¬O§ó§ï©pªº¨Æ¥óÅX°Ê
¥t...§Ú¬O¥Î µ{¦¡½s¿èµ¡µø¤Wªº¨Æ¥ó¬D¿ï¾¹
§Ú´ú¸Õ¹L  ·Æ¹«ªº§¤¼Ð·|¦b  label ¤W Åã¥Ü(¨ä¥L¨S¸Õ)¡A¦³°ÝÃD¦b»¡§a

1. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2. 
   
3. 
   
4. 
   
5.     Dim intShiftDown As Integer, intLeftButton As Integer
   
6. 
   
7.     Me!Coordinates.Caption = X & ", " & Y
   
8.     ' Use bit masks to determine state of
   
9.     ' SHIFT key and left button.
   
10.     intShiftDown = Shift And acShiftMask
    
11.     intLeftButton = Button And acLeftButton
    
12.     ' Check that SHIFT key and left button
    
13.     ' are both pressed.
    
14.     If intShiftDown And intLeftButton > 0 Then
    
15.         MsgBox "Shift key and left mouse button were pressed."
    
16.     End If
    
17. 
    
18. 
    
19. End Sub

½Æ»s¥N½X