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

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

GBKEE

¦^´_ 10# av8d
ªí³æ¤¤¦³  CommandButton1 , Label1 , TextBox1
ªí³æµ{¦¡½X

1. Option Explicit
   
2. Dim AR()
   
3. Private Sub CommandButton1_Click()
   
4.     MsgBox Join(AR, Chr(10))
   
5. End Sub
   
6. Private Sub UserForm_Initialize()
   
7.     AR = Array(Label1, "¥Ò", TextBox1, 0)
   
8.    Label1.Caption = "THE_Caption"
   
9. End Sub

½Æ»s¥N½X