[µo°Ý] ·í·Æ¹««ü¨ìCommandButtonÅܦâ~²¾¶}«ì´_­ì¦â~(¤w§¹¦¨)

av8d

·í·Æ¹«¥u¨ìCommandButtonÅܦâ
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton1.BackColor = &H80000018
End Sub

²¾¶}«ì´_­ì¦â½Ð°Ý¬O­þ¤@­Ó«ü¥O?ÁÂÁÂ

¦³MouseLeave¶Ü?

©Î¬O»¡·í·Æ¹«²¾°Ê¨ì¤u§@ªí¤W®É§@¥Î~¬O§_¦³³o­Ó«ü¥O?

-----------------------------------------------------------------------------------------------------------------------------------------------
§ä¨ì¸Ñ¨M¤èªk¤F~(¦p¤U³o¬O°ß¤@¼È®É¯à¥Îªº¤èªk)
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton1.BackColor = &H80000018
    CommandButton2.BackColor = &HFFFFFF
    CommandButton3.BackColor = &HFFFFFF
End Sub

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton2.BackColor = &H80000018
    CommandButton1.BackColor = &HFFFFFF
    CommandButton3.BackColor = &HFFFFFF
End Sub

Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton3.BackColor = &H80000018
    CommandButton1.BackColor = &HFFFFFF
    CommandButton2.BackColor = &HFFFFFF
End Sub

oobird

¦^´_ 1# av8d


  ¬Ý°_¨Ó§Aªº¥Ø¦a©|¥¼§¹¦¨吔¡IÄ~Äò§V¤O§a¡I

¤U¸ü (23.24 KB)

2012-6-18 08:36