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

av8d

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

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

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

kimbal

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

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

av8d

¦^´_ 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

GBKEE

¦^´_ 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

av8d

¦^´_ 4# GBKEE


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

av8d

¦^´_ 4# GBKEE


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

¤U¸ü (154.54 KB)

2012-8-21 10:19

av8d

¦^´_ 6# av8d


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

av8d

¦^´_ 4# GBKEE


1.rar (31.27 KB)

¤U¸ü¦¸¼Æ: 4

2012-8-21 10:49

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

GBKEE

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

µæ³æ.rar (37.28 KB)

¤U¸ü¦¸¼Æ: 6

2012-8-21 13:03

av8d

¦^´_ 9# GBKEE


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