ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ 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

¦^´_ 1# av8d


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

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD