標題: [發問] [發問] 關於 Controls.Add 的問題 [打印本頁]

---

作者: mark15jill    時間: 2013-1-30 16:15     標題: [發問] 關於 Controls.Add 的問題

本帖最後由 mark15jill 於 2013-1-30 16:16 編輯

普通情形下，若想新增動態元件
例如：    Set myMultiPage1 =             UserForm1.Controls.Add("forms.MultiPage.1")

想請教各位大大
假設
今天有 mylabel   mytext   mycmbox
所對應元件 label   textbox   combobox

Set myMultiPage1 = UserForm1.Controls.Add("forms.MultiPage.1")
紅字部份是否可用其他方式取代?
若用一對一方式的話 會變成三行
這樣一來若元件種類太多 難免會造成程式過長  (雖然應該不會有人這樣做~"~)

以下是原始碼 < 新增分頁 >
    Dim myForm1
    Dim myMultiPage1 As msforms.MultiPage
  
    '動態新增MultiPage控件
    Set myMultiPage1 = _
            UserForm1.Controls.Add("forms.MultiPage.1")
    '設置該MultiPage的名稱、高度、寬度、位置等
    With myMultiPage1
         .Left = 5
         .Width = 445
         .Height = 270
    End With

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)