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

[µo°Ý] CommandButton1_Click()¤º¦pªG¦³CommandButton1¬O§_¥i¥H¼g¦¨Me?

[µo°Ý] CommandButton1_Click()¤º¦pªG¦³CommandButton1¬O§_¥i¥H¼g¦¨Me?

¥»©«³Ì«á¥Ñ av8d ©ó 2012-8-17 12:59 ½s¿è

Private Sub CommandButton1_Click()
   TextBox1 = CommandButton1.Caption
End Sub

CommandButton1¬O§_¥i¥H¼g¦¨Me?

¥i¬O¼g¦¨Me·|¥X¿ù~¬O§_¦³Ãþ¦ü¼gªk!?

me ªº¹ï¶H¬Oform,¤£¬Oevent¹ïÀ³ªºª«¥ó

Private Sub CommandButton1_Click()
   TextBox1 = me.CommandButton1.Caption
End Sub
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-8-19 14:57 ½s¿è

¦^´_ 2# kimbal


    ¦]¬°§Æ±æ¥i¥H¤è«K½Æ»s~©Ò¥H§Æ±æ¥Îme¨ú¥N~¥i¬O¦n¹³µLªk¤£­×§ï?

CommandButton1¯à§_ª½±µ¹ïÀ³CommandButton1_Click
CommandButton2¯à§_ª½±µ¹ïÀ³CommandButton2_Click
¤]´N¬O»¡
me.CommandButton¯à§_ª½±µ¹ïÀ³CommandButton1_Click
me.CommandButton¯à§_ª½±µ¹ïÀ³CommandButton2_Click

TOP

¦^´_ 3# av8d
§A¬O·Q¦p¦¹¶Ü?
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     The_Control
  4. End Sub
  5. Private Sub CommandButton2_Click()
  6.     The_Control
  7. End Sub
  8. Private Sub The_Control()
  9.     TextBox1 = ActiveControl.Caption
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ¬Oªº~ÁÂÁÂG¤j!

TOP

¦^´_ 4# GBKEE


    ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk

TOP

¦^´_ 6# av8d


    ¥i¥H¤F~­ì¨Ó¬O¦WºÙ½Ä¬ð¨ì~ÁÂÁÂG¤j~

TOP

¦^´_ 4# GBKEE


1.rar (31.27 KB)
¤£¤ä´©¦¹ÄݩʩΤèªk

TOP

¦^´_ 8# av8d
UserForm2  ªº±±¨î¶µ³£¸m©ó   MultiPage1 ¤¤
©Ò¥HActiveControl ³£ª½«ü¦V MultiPage1  ±±¨î¶µ ¦Ó·|¦³¿ù»~
­×§ï¦pªþÀÉ ¨Ï¥Îª«¥óÃþ§O¼Ò²Õ
§A¨S«Å§iÅܼƪº²ßºD¨S§ï ,½Ð§A¦Û¤v«Å§iÅܼÆ

µæ³æ.rar (37.28 KB)

TOP

¦^´_ 9# GBKEE


    ÁÂÁÂG¤j~ÅܼƦpªG«D±`¦h~«Å§i¬O§_¥i²³æ¤Æ?
¨Ò¦p
L1C = Label1.Caption
L2C = "¥Ò"
TB1 = TextBox1.Value
NOP = 0

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD