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

[µo°Ý] [µo°Ý] Ãö©ó Controls.Add ªº°ÝÃD

[µo°Ý] [µo°Ý] Ãö©ó Controls.Add ªº°ÝÃD

¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-1-30 16:16 ½s¿è

´¶³q±¡§Î¤U¡A­Y·Q·s¼W°ÊºA¤¸¥ó
¨Ò¦p¡G    Set myMultiPage1 =             UserForm1.Controls.Add("forms.MultiPage.1")

·Q½Ð±Ð¦U¦ì¤j¤j
°²³]
¤µ¤Ñ¦³ mylabel   mytext   mycmbox
©Ò¹ïÀ³¤¸¥ó label   textbox   combobox

Set myMultiPage1 = UserForm1.Controls.Add("forms.MultiPage.1")
¬õ¦r³¡¥÷¬O§_¥i¥Î¨ä¥L¤è¦¡¨ú¥N?
­Y¥Î¤@¹ï¤@¤è¦¡ªº¸Ü ·|Åܦ¨¤T¦æ
³o¼Ë¤@¨Ó­Y¤¸¥óºØÃþ¤Ó¦h Ãø§K·|³y¦¨µ{¦¡¹Lªø  (ÁöµMÀ³¸Ó¤£·|¦³¤H³o¼Ë°µ~"~)

¥H¤U¬O­ì©l½X < ·s¼W¤À­¶ >
    Dim myForm1
    Dim myMultiPage1 As msforms.MultiPage
  
    '°ÊºA·s¼WMultiPage±±¥ó
    Set myMultiPage1 = _
            UserForm1.Controls.Add("forms.MultiPage.1")
    '³]¸m¸ÓMultiPageªº¦WºÙ¡B°ª«×¡B¼e«×¡B¦ì¸mµ¥
    With myMultiPage1
         .Left = 5
         .Width = 445
         .Height = 270
    End With

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD