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

[µo°Ý] ¦p¦ó¦b«ö¤UToggleButtonªº®É­Ô~«ö¶sªº¦rÅé¤]§ïÅÜ?

[µo°Ý] ¦p¦ó¦b«ö¤UToggleButtonªº®É­Ô~«ö¶sªº¦rÅé¤]§ïÅÜ?

¥»©«³Ì«á¥Ñ av8d ©ó 2012-4-19 10:49 ½s¿è

¦p¦ó¦b«ö¤UToggleButtonªº®É­Ô~«ö¶sªº¦rÅé¤]§ïÅÜ?

§Ú¤@¯ë³£§âToggleButtonºÙ¬°¶}Ãö«ö¶s~
¦pªG·Q»s§@¤@­Ó³Ì²³æªº¶}Ãö«ö¶s¡A¥²¶·©Ò¨ã³Æªº´N¬O²LÅã©öÀ´ªº¤å¦r~
¨Ò¦p §Ú³o­Ó«ö¶sÁÙ¨S«ö¤U¥H«e   
¥L¥Y°_ªº®É­Ô¥Nªí¥L¨S³Q«ö¤U  ©Ò¥HÀ³¸ÓÅã¥Üªº¤å¦r¬O"¶}" Åý¨Ï¥ÎªÌª¾¹D¥Ø«e¬OÃöµÛªº «ö¤U¥hªº®É­Ô·|¶}±Ò
¥L¥W°_ªº®É­Ô¥Nªí¥L¤w¸g³Q«ö¤U  ©Ò¥HÀ³¸ÓÅã¥Üªº¤å¦r¬O"Ãö" Åý¨Ï¥ÎªÌª¾¹D¥Ø«e¬O¶}µÛªº «ö¤U¥hªº®É­Ô·|Ãö³¬

¦p¦óÅý¥L¦b¦rÅé¤W°µ§ïÅÜ©O?

°µ§ïÅܪº¦P®É­n¤À§O°õ¦æ ¶}±Ò  ©M Ãö³¬ªº¥\¯à¸Ó¦p¦ó¤U«ü¥O©O?
§Ú¤Wºô´M§ä¤F¤@¤U¡A¥Ø«e¬ÒµLµ²ªG¡C

4/19 10:11 §ä¨ì¤F¤@­Ó¥i¦æ¤è®×~
Sheet1
  1. Private Sub ToggleButton1_Click()
  2.     If ToggleButton1 Then
  3.         TC
  4.         ToggleButton1.Caption = "Ãö³¬"
  5.     Else
  6.         KTimer
  7.         ToggleButton1.Caption = "¶}±Ò"
  8.     End If
  9. End Sub
½Æ»s¥N½X
¥H¤WÂà¸ü©ó

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-4-19 10:49 ½s¿è

¦^´_ 1# av8d ¤§©Ò¥H³´¤J¦º°j°é
¥i¯à¬O¦]¬° §A«ö¶s«ö¤U«á ¨S¦³³]©wÅý¥L¸õ°_¨Ó..

¦p
1 2 3 4 5 6 7 8 9 10
(1-10-1-10)

¦³³]©w°±ªº¸Ü
1 2 3 4 5 6 7 8 9 10
(1-10)
  1. Private Sub ToggleButton1_Click()
  2.     If ToggleButton1.Value = True Then
  3.         With ToggleButton1
  4.             .Value = True
  5.             .FONT.SIZE = 14
  6.             .Caption = "¤w¸g«ö¤U"
  7.             MsgBox ("¤w¸g«ö¤U")
  8.             .Value = False
  9.         End With
  10.     Else
  11.         With ToggleButton1
  12.             .Caption = "«ö¤U¨ú®ø"
  13.         End With
  14.    
  15.    
  16.     End If
  17.    
  18. End Sub
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 2# mark15jill


    ½Ð°Ý¤j¤j~¦p¦óÅýªÅ¦æ~Á|¨Ò¦p¤U:

.Caption ="§Ú¤w¸g«ö¤U" & Chr(10) & "[½T©w]"



Åý¥LÅã¥Ü

§Ú¤w¸g«ö¤U
[½T©w]

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-4-19 11:35 ½s¿è
  1.             .Caption = "§Ú¤w¸g«ö¤U" & Chr(10) & "[½T©w]"
½Æ»s¥N½X
ª½±µ¥´´N¦n

TOGGLEBUTTON ©Ô¤jÂI..

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD