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

[µo°Ý] °£¤F¥Î¤U©Ô¦¡¿ï³æ¡A¦³¨S¦³§óª½Æ[ªº¤G¿ï¤@¿ï¶µ

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-7-1 14:37 ½s¿è

¦^´_ 1# jasonchn

¦pªG¬O¥u¦³¥Ò¸ò¤A¡A¥h·s¼W¤@­Ó¡y¤Á´««ö¶s¡z¡AµM«á«öalt+f11¶i¤Jvbaµe­±¡A¿é¤J
  1. Private Sub ToggleButton1_Click()
  2. If ToggleButton1.Value = True Then
  3. ToggleButton1.Caption = "¤A"
  4. [a1] = "¥Ò"
  5. Else: ToggleButton1.Caption = "¥Ò"
  6. [a1] = "¤A"
  7. End If
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD