請問 准提 大師 (六層List選單N2) 問題

近日研讀 大師 20120306a01(六層List選單N2).rar ,有疑問,請大師指導:

1. Listbox 為何多個☉的選項符號.如何產生.

2. Private Sub UserForm_Activate()

For i = 1 To 6: Set List(i) = MyForm("List" & i): Next i

End Sub

把此行移置Sub Form_Show(),為何出現錯誤.

此程序段,只在Sub Form_Show()執行1次,或每次Listbox1.2.3....異動時,

都會執行.

3. Sub Form_Show()的For i = 1 To xDic.Count,為何不是0 To xDic.Count,

Dictionary不是從0開始嗎?改為0,又出現錯誤.

4. Private Sub List6_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

的DblClick 用法不明白.

5.因剛使用yahoo知識團,不知如何給點數,上次20120309a01(選單及核取).rar

的解答,未給點數,實在抱歉.

Update:

為何又找不到 (選為最佳回答的點擊紐) ??????

請大師告知,其他的發問都找得到.

1 Answer

Rating
  • 8 years ago
    Favorite Answer

    問1:Listbox 為何多個☉的選項符號.如何產生

       在〔屬性〕表,〔資料〕.〔ListStyle〕項中選擇

    2012-03-20 11:58:50 補充:

    問2:移置Sub Form_Show(),為何出現錯誤.

       請看〔表單〕頂端的宣告變數 List(1 To 6) As Object

       若要移置Sub Form_Show()

       先刪去表單頂端的宣告,再到〔模組〕頂端宣告:

       Public List(1 To 6) As Object(共用變數.不可重覆宣告)

       注意:若用 Dim List(1 To 6) As Object,表單碼區是無法引用

       ---------------------------

       基本上在〔表單〕宣告即可,除非〔模組〕中也用到此變數。

       只在表單載入執行一次,其他物件程式皆可引用此變數。

    2012-03-20 12:03:50 補充:

    問3:Dictionary 個數由1開始,〔陣列〕才預設由0開始。

    問4:Private Sub List6_DblClick 的功用

       與Private Sub CmdOK_Click() 相同,都是〔填入資料〕用,

       只是多提供一個方式,看個人操作習慣!可不用!

    問5:上題未選答,無妨,主要是該題也許有人會有相類似需求,

       留個底本讓多一些人參考!

    2012-03-20 12:08:06 補充:

    今天才看到此題,就以如上簡略說明!

    建議去買相關書籍來看,至少要看三本以上,才能建立基本功!

    2012-03-20 18:20:08 補充:

    EXCEL VBA.關於〔表單.六層 List 選單〕的問題

                           <.准提部林.>

    -------------------------------

    題引:

    EXCEL 如何利用Listbox做選單

    利用〔表單.ListBox〕製作6層〔關聯式〕清單

    http://tw.knowledge.yahoo.com/question/question?qi...

    <範例檔>:http://www.funp.net/468475

     

    ■問1:Listbox 為何多個 ☉ 的選項符號,如何產生? 

     --說明--

     請在〔屬性〕表,〔資料〕項目的〔ListStyle〕項中選擇。

     

    ■問2:下一段程式碼移置 Sub Form_Show() 為何出現錯誤?

     Private Sub UserForm_Activate()

       For i = 1 To 6: Set List(i) = MyForm("List" & i): Next i

     End Sub 

    --說明--

     1.請看〔表單〕頂端的宣告變數 List(1 To 6) As Object,

       若要移置到 Sub Form_Show()

       須先刪去表單頂端的宣告,再到〔模組〕頂端宣告,

       Public List(1 To 6) As Object(共用變數.不可重覆宣告)

       注意:若用 Dim List(1 To 6) As Object,表單碼區是無法引用

     2.基本上在〔表單〕宣告即可,除非〔模組〕中也用到此變數。

       只在表單載入執行一次,其他物件程式皆可引用此變數。

     

    ■問3:Sub Form_Show() 的 For i = 1 To xDic.Count

        為何不是 0 To xDic.Count?

        Dictionary 不是從 0 開始嗎?改為 0 又出現錯誤? 

    --說明--

     Dictionary 個數由1開始,〔陣列〕才預設由0開始。

     

    ■問4:Private Sub List6_DblClick 用法不明白? 

    --說明--

     Private Sub List6_DblClick 的功用,

     與 Private Sub CmdOK_Click() 相同,都是〔填入資料〕用,

     只是多提供一個方式,看個人操作習慣!可不用! 

    -------------------------------

    2012-03-21 09:38:22 補充:

    DblClick 用法不明白

    用法:

    它是指〔當按了二次滑鼠左鍵〕後,要執行的動作!

    • Login to reply the answers
Still have questions? Get your answers by asking now.