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

[Âà¶K] ¨Ì·ÓÅܼƧó§ïCommandButton©³¦â

¦^´_ 2# PD961A
¶}±Ò¨S°ÝÃD

TOP

  1. Private Sub UserForm_Initialize()
  2.     Dim i%, A
  3.     For i = 1 To 20
  4.         Set newclass(i) = New Ãþ
  5.      Set newclass(i).che = Controls("CommandButton" & i)
  6.         Controls("CommandButton" & i).BackColor = QBColor(IIf(i < 15, i - 1, i - 14))
  7.     Next
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD