MenuStripItemsを画像と共に動的に追加する方法

Question

ディレクトリにファイルを見つけて項目を追加する質問があります。 このスクリプトは動作します。

Private Sub LoadAddItemsToEditMenu(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    For Each dir As String In Directory.GetDirectories(".\MenuItems\Edit") 
     Dim mainMenuItem As New ToolStripMenuItem(IO.Path.GetFileName(dir)) 

     For Each fn As String In Directory.GetFiles(dir) 

      Dim subMenuItem As New ToolStripMenuItem(IO.Path.GetFileNameWithoutExtension(fn)) 

       subMenuItem.Tag = fn 

      EditToolStripMenuItem.DropDownItems.Add(subMenuItem) 

      AddHandler subMenuItem.Click, AddressOf EditExtendetItem_Click 
     Next 
    Next 
End Sub 

ファイルの画像に追加された各アイテムにはまだ調整する必要があります。

Answer 1

あなたがこれを正確に求めているかどうかわかりません。以下のコードは、各項目にファイルのアイコンを追加しています。私はこれがあなたのために働くことを願っています：

Private Sub LoadAddItemsToEditMenu(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

For Each dir As String In Directory.GetDirectories(".\MenuItems\Edit") 
    Dim mainMenuItem As New ToolStripMenuItem(IO.Path.GetFileName(dir)) 

    For Each fn As String In Directory.GetFiles(dir) 

     Dim subMenuItem As New ToolStripMenuItem(IO.Path.GetFileNameWithoutExtension(fn)) 

      subMenuItem.Tag = fn 
      subMenuItem.Image = System.Drawing.Icon.ExtractAssociatedIcon(fn).ToBitmap 

      EditToolStripMenuItem.DropDownItems.Add(subMenuItem) 

     AddHandler subMenuItem.Click, AddressOf EditExtendetItem_Click 
    Next 
Next 
End Sub 

Answer 2

まあ、上の方法で仕事をしてください。ただし、アイテムをコンテナに追加する前にハンドラを追加するようアドバイスします。見た目が良くなり、読み込み/デバッグが容易になります。ちなみに、私はVB.netに "With"という接頭辞が付いていることを知っています。私はそれを使用します。私があなたであり、あなたが心のアドバイスを気にかけていないなら、他の人があなたのコードを理解するのを助けるstackoverflowのためのコード？