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

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

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

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD