|
Zdravím, zaujal mě článek o zásuvných modulech, publikovaný na vašich stránkách. Pokusil jsem se ho upravit, abych mohl načítat pluginy do menu. Mám v hlavní aplikaci nadefinované menu "Moduly", do kterého načítám zásuvné moduly. Asi takto: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Private Sub doplnFormular()
Dim PluginMenu As New ToolStripMenuItem()
For i As Integer = 0 To operaceMenu.Count - 1
With PluginMenu
.Text = operaceMenu(i).ProgMenu
.Tag = 0
End With
Next
ModulyToolStripMenuItem.DropDownItems.Add(PluginMenu)
End Sub
|
Vím, že dělám někde chybu, protože se mi zobazí pouze jeden modul, ten který je podle abecedy první. mohl by mě nškdo pomoc nebo případně aspoň nakopnout? Díky
|