ªð¦^¦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 : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD