- Код: Выделить всё
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mDirInfo As DirectoryInfo, mFileInfo As FileInfo, mListItem As ListViewItem, plgModule As Plugin
mDirInfo = New DirectoryInfo(Application.StartupPath & "\mod\")
For Each mFileInfo In mDirInfo.GetFiles("*.dll")
If mFileInfo.Name <> "PluginsHost.HostObject.dll" Then
mListItem = New ListViewItem
mListItem.Text = mFileInfo.Name
plgModule = New Plugin(mFileInfo.FullName)
mListItem.Tag = plgModule
lstPlugins.MenuItems.Add(mListItem)
End If
Next
lstPlugins.SelectedItem = lstPlugins.Items(0)
End Sub
Хочу сделать не списком, а меню