Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

請問 准提 大師 (六層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
  • ?
    Lv 7
    9 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 用法不明白

    用法:

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

Still have questions? Get your answers by asking now.