none
Menu清單列表問題 RRS feed

  • 問題

  • 請問各位大大
    小弟目前遇到一個問題
    就是我建立完一個menu後
    怎樣將menu上面所有的選項列出來
    如:  檔案   編輯  檢視
           新增    ...     ...
           修改    ...    ...
           ... 
    然後列出後應該是
    檔案
    新增
    修改
    ..
    編輯
    ..
    檢視

    希望各位大大可以不吝指教 ^^

    2006年6月6日 上午 02:48

解答

  •     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim i As ToolStripMenuItem
            Dim j As ToolStripMenuItem
            For Each i In MenuStrip1.Items
                ListBox1.Items.Add(i.Text)
                If i.DropDownItems.Count <> 0 Then
                    For Each j In i.DropDownItems
                        ListBox1.Items.Add(j.Text)
                    Next
                End If

            Next
        End Sub

    2006年6月7日 上午 01:01