none
[VBA]請問 MulitPage 要如何使用 RRS feed

  • 問題

  • 請問  MulitPage 要如何使用
    因為 我參考 EXCLE的說明
    一個 MultiPage,命名為 MultiPage1。


    三個 CommandButton,命名為 CommandButton1 到 CommandButton3。
    備註   對 MultiPage 裏的個別 Page 來說,它的 ControlTipText 只有在這個 MultiPage 擁有駐點,或者是 MultiPage 的現行 page 擁有駐點時才有作用。
    Private Sub UserForm_Initialize()
        MultiPage1.Page1.ControlTipText = "Here in page 1"  <----不支援此物件-
        MultiPage1.Page2.ControlTipText = "Now in page 2"
        
        CommandButton1.ControlTipText = "And now here's"
        CommandButton2.ControlTipText = "a tip from"
        CommandButton3.ControlTipText = "your controls!"
    End Sub
    -------------------------
    Dim MyTextBox As Control

    Private Sub CommandButton1_Click()
    Set MyTextBox = MultiPage1.Pages(0).Controls.Add("MSForms.TextBox.1", "MyTextBox", Visible)
      <---------也不支援End Sub

    Private Sub CommandButton2_Click()
        MultiPage1.Pages(0).Controls.Clear
    End Sub

    Private Sub CommandButton3_Click()
        If MultiPage1.Pages(0).Controls.Count > 0  Then
            MultiPage1.Pages(0).Controls.Remove "MyTextBox"
        End If
    End Sub

    Private Sub UserForm_Initialize()
        CommandButton1.Caption = "Add control"
        CommandButton2.Caption = "Clear controls"
        CommandButton3.Caption = "Remove control"
    End Sub
    2007年4月20日 上午 12:21

解答

  • 建議你安裝 Excel VBA 線上手冊看,那個是選擇性安裝,請拿安裝光碟新增元件。

    你也滿奇怪的,下面知道要用 Page(0) ,上面不知道...


    寫錯的語法:

    MultiPage1.Page(0).ControlTipText = "Here in page 1" ' Index = 0 ~ nPage -1

    Set MyTextBox = MultiPage1.Pages(0).Controls.Add("Forms.TextBox.1", "MyTextBox", Visible)

    2007年4月20日 上午 02:09
    版主
  • ... 線上手冊裝了沒?

    裝好後,下面位置貼到 IE 網址列有詳細說明:

    mkAngryMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\VBA\VBA6\1028\fm20.chm::/html/f3proValue.htm


    Value 屬性

    MultiPage 用來代表目前作用中頁籤的整數。
      零 (0) 表示第一頁,最大值小於總頁數 1。

    2007年4月20日 上午 07:49
    版主
  • ... 山不轉路轉,路不轉人轉。


    MultiPage1.Value = MultiPage1.Pages("Page2").Index

    2007年4月20日 上午 08:57
    版主

所有回覆

  • 建議你安裝 Excel VBA 線上手冊看,那個是選擇性安裝,請拿安裝光碟新增元件。

    你也滿奇怪的,下面知道要用 Page(0) ,上面不知道...


    寫錯的語法:

    MultiPage1.Page(0).ControlTipText = "Here in page 1" ' Index = 0 ~ nPage -1

    Set MyTextBox = MultiPage1.Pages(0).Controls.Add("Forms.TextBox.1", "MyTextBox", Visible)

    2007年4月20日 上午 02:09
    版主
  • 謝謝您幫忙!
    不好意思!
    因為我上面資料也都是看 "說明" 的,我沒改到資料

    我以為 可以不用 Page(0). 的方式
    直接以名稱 PageX1 來 實做
    可是 我再試
    MultiPage1.PageX1.ControlTipText = "S"  ,卻也可以用


    另外
    "Forms. ...."
    我也以為 要用 Form 的實際名稱



    2007年4月20日 上午 03:57
  • 不好意思!
    想再請問
    若使我要 控制 選哪一個 page , 預設呈現 出來
    請問 要如何 用呢!


    謝謝!
    2007年4月20日 上午 05:18
  • ... 線上手冊裝了沒?

    裝好後,下面位置貼到 IE 網址列有詳細說明:

    mkAngryMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\VBA\VBA6\1028\fm20.chm::/html/f3proValue.htm


    Value 屬性

    MultiPage 用來代表目前作用中頁籤的整數。
      零 (0) 表示第一頁,最大值小於總頁數 1。

    2007年4月20日 上午 07:49
    版主
  • 您好,謝謝您!
        原本就已經有裝了!
    不好意思!沒注意到 要用VALUE來做
    一般 印象中,VALUE都是取值

    不過 想在請教,他只能用 MultiPage.VALUE=1  ...

    的方式來做嗎
    沒辦法 直接也名字 做嗎
    ....若不寫陣列 來對應的話

    2007年4月20日 上午 08:09
  • ... 山不轉路轉,路不轉人轉。


    MultiPage1.Value = MultiPage1.Pages("Page2").Index

    2007年4月20日 上午 08:57
    版主