返回列表 上一主題 發帖

[發問] [發問] 關於 Controls.Add 的問題

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題