Как сделать список выбора цветов - VB

Формулировка задачи:

Здравствуйте уважаемые программисты и форумчане! Долгое время бился над одной проблемой, требовалось программно пополнять меню программы (MenuStrip) следую иерархии заданной папки...
   Dim patch As String = Application.StartupPath
   Dim foundF = IO.Directory.GetDirectories(patch & "\Папка\")
        ListBox1.Items.AddRange(foundF)
        For Each item In ListBox1.Items
            ListBox3.Items.Add(item)
        Next
a1:     If ListBox1.Items.Count >= 1 Then
            ListBox1.SelectedIndex = 0
            ListBox2.Items.Add(ListBox1.Text.Replace(patch & "\Папка\", ""))
            ListBox1.Items.Remove(ListBox1.SelectedItem)
            GoTo a1
        End If
b1:     If ListBox2.Items.Count >= 1 Then
            ListBox2.SelectedIndex = 0
            Me.МатериалToolStripMenuItem.DropDownItems.Add(ListBox2.SelectedItem, Nothing)
                   ListBox2.Items.Remove(ListBox2.SelectedItem)
            GoTo b1
        End If
               For Each item In Me.МатериалToolStripMenuItem.DropDownItems
            Dim found = IO.Directory.GetDirectories(patch & "\Папка\" & item.text)
            ListBox1.Items.AddRange(found)
a2:         If ListBox1.Items.Count >= 1 Then
                ListBox1.SelectedIndex = 0
                ListBox2.Items.Add(ListBox1.Text.Replace(patch & "\Папка\" & item.text & "\", ""))
                ListBox1.Items.Remove(ListBox1.SelectedItem)
                GoTo a2
            End If
b2:         If ListBox2.Items.Count >= 1 Then
                ListBox2.SelectedIndex = 0
                item.DropDownItems.Add(ListBox2.SelectedItem)
                            ListBox2.Items.Remove(ListBox2.SelectedItem)
                GoTo b2
            End If
            For Each item1 In item.DropDownItems
                Dim found2 = IO.Directory.GetDirectories(patch & "\Папка\" & item.text & "\" & item1.text)
                ListBox1.Items.AddRange(found2)
a3:             If ListBox1.Items.Count >= 1 Then
                    ListBox1.SelectedIndex = 0
                    ListBox2.Items.Add(ListBox1.Text.Replace(patch & "\Папка\" & item.text & "\" & item1.text & "\", ""))
                    ListBox1.Items.Remove(ListBox1.SelectedItem)
                    GoTo a3
                End If
b3:             If ListBox2.Items.Count >= 1 Then
                    ListBox2.SelectedIndex = 0
                    item1.DropDownItems.Add(ListBox2.SelectedItem)
                    ListBox2.Items.Remove(ListBox2.SelectedItem)
                    GoTo b3
                End If
     Next
Next
Программа добавляет в меню элементы следую структуре папке "Папка"... Листбоксы обрабатывают список папок.. Сам вопрос - как прикрутить действие к этим динамически созданным элементам меню? P.S. знаю, код ужасен и не оптимизирован, но мне сейчас главное разобраться с этой проблемой... Спасибо! Добавлено через 19 часов 36 минут Собратья знатоки, помогите!(( Пробовал через
addressof
программа выдаёт ошибку. Что-то об отсутствии или не принадлежности к типу делегата... Добавлено через 21 час 32 минуты Что же все такие неотзывчивые?((

Код к задаче: «Как сделать список выбора цветов - VB»

textual
Private Sub Combo1_Click()
Form1.BackColor = QBColor(Combo1.ListIndex + 1)
End Sub
 
Private Sub Form_Load()
clr = Array("цвет1", "цвет2", "цвет3")
For i = LBound(clr) To UBound(clr)
Combo1.AddItem clr(i)
 Next i
Combo1.ListIndex = 0
End Sub

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ