¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-18 00:17 ½s¿è
·í·Æ¹«¥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 |