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

[µo°Ý] ½Ð°Ý¦p¦ó¦bµ{§Ç°õ¦æ¤¤¡A¦bframe¥[¤Jª«¥ó

¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-7 10:43 ½s¿è

¦^´_ 3# mygod0403
°µ­Ó²³æ½d¨Ò
  1. Private Sub CommandButton1_Click()
  2. cnt = Frame1.Controls.Count
  3. With Me.Frame1.Controls.Add("Forms.CheckBox.1", "Check" & cnt)
  4. .Object.Caption = .Name
  5. .Top = cnt * .Height
  6. End With
  7. End Sub
½Æ»s¥N½X
°ÊºA·s¼W±±¨î¶µ.zip (8.53 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD