Как сократить код?

[Вадим12091965]

Всем привет. Написал код, в котором пока 171 блок, а планировалось около 600, но мне сейчас уже выдоается ошибка, что процедура большая. Что можно сделать? Начало кода:

Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim ImagePath As String
        ImagePath = ThisWorkbook.Path & "\Image\"
         If TreeView1.SelectedItem = "Для вытяжки-600" And IsExists(ImagePath & "001.bmp") Then
                Image1.Picture = LoadPicture(ImagePath & "001.bmp")
                 End If
                If TreeView1.SelectedItem = "Для вытяжки-600" Then
                TextBox19.Tag = 600
                TextBox19.Text = 600
                TextBox2.Tag = 300
                TextBox2.Text = 300
                TextBox3.Tag = 720
                TextBox3.Text = 720
                TextBox4.Tag = 1
                TextBox4.Text = 1
                End If
         If TreeView1.SelectedItem = "1 откидная дверь R1000-300" And IsExists(ImagePath & "002.bmp") Then
                Image1.Picture = LoadPicture(ImagePath & "002.bmp")
                 End If
                If TreeView1.SelectedItem = "1 откидная дверь R1000-300" Then
                TextBox19.Tag = 300
                TextBox19.Text = 300
                TextBox2.Tag = 300
                TextBox2.Text = 300
                TextBox3.Tag = 720
                TextBox3.Text = 720
                TextBox4.Tag = 1
                TextBox4.Text = 1
                End If
        If TreeView1.SelectedItem = "1 откидная дверь R1000-350" And IsExists(ImagePath & "002.bmp") Then
                Image1.Picture = LoadPicture(ImagePath & "002.bmp")
                 End If
                If TreeView1.SelectedItem = "1 откидная дверь R1000-350" Then
                TextBox19.Tag = 350
                TextBox19.Text = 350
                TextBox2.Tag = 300
                TextBox2.Text = 300
                TextBox3.Tag = 720
                TextBox3.Text = 720
                TextBox4.Tag = 1
                TextBox4.Text = 1
                End If

и т.д.

[Watcher_1]

Если так сделаете, уже на много сократите код

Sub m()
    If TreeView1.SelectedItem = "Для вытяжки-600" Then Call TextValue(600, 300, 720, 1)
    If TreeView1.SelectedItem = "1 откидная дверь R1000-300" Then Call TextValue(300, 300, 720, 1)
End Sub

Sub TextValue(ByVal t19 As Variant, ByVal t2 As Variant, ByVal t3 As Variant, ByVal t4 As Variant)
    TextBox19.Tag = t19
    TextBox19.Text = t19
    TextBox2.Tag = t2
    TextBox2.Text = t2
    TextBox3.Tag = t3
    TextBox3.Text = t3
    TextBox4.Tag = t4
    TextBox4.Text = t4
End Sub

[Вадим12091965]

Спасибо, что ответили. Попробовал ваш код. В текстбоксы данные не приходят. Поставил после каждой строки End If - без изменений.
Sub m()
If TreeView1.SelectedItem = "Äëÿ âûòÿæêè-600" Then Call TextValue(600, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-300" Then Call TextValue(300, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-350" Then Call TextValue(350, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-400" Then Call TextValue(400, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-450" Then Call TextValue(450, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-500" Then Call TextValue(500, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-550" Then Call TextValue(550, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-600" Then Call TextValue(600, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-650" Then Call TextValue(650, 300, 720, 1)
End If
If TreeView1.SelectedItem = "1 îòêèäíàÿ äâåðü R1000-700" Then Call TextValue(700, 300, 720, 1)
End If

End Sub
Sub TextValue(ByVal t19 As Variant, ByVal t2 As Variant, ByVal t3 As Variant, ByVal t4 As Variant)
TextBox19.Tag = t19
TextBox19.Text = t19
TextBox2.Tag = t2
TextBox2.Text = t2
TextBox3.Tag = t3
TextBox3.Text = t3
TextBox4.Tag = t4
TextBox4.Text = t4
End Sub

[Watcher_1]

Хз, чот значит криво сделали! Должно работать.
Приложите файл будем кумекать...

[Вадим12091965]

Попробовал так

Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim ImagePath As String
        ImagePath = ThisWorkbook.Path & "\Image\"
        If TreeView1.SelectedItem = "500" And IsExists(ImagePath & "028.bmp") Then
                Image1.Picture = LoadPicture(ImagePath & "028.bmp")
                Call TextValue(500, 300, 360, 0)
                 End If
         If TreeView1.SelectedItem = "600" And IsExists(ImagePath & "028.bmp") Then
                Image1.Picture = LoadPicture(ImagePath & "028.bmp")
                Call TextValue(600, 300, 360, 0)
                 End If

и т. д. - работает.
Посмотрю на какую длину хватит. Может весь код поместится. Спасибо.




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Вадим12091965]

Ну вот я и приплыл. 2/3 кода написал и снова ошибка что код длинный. Посмотрите что еще можно сделать. Файл вложил. спасибо.

[VictorM]

Да уж, "букафф" много! Жалко такой труд.
Я в таких случаях выношу всевозможные процедуры в отдельный модуль.
В модуле формы оставляю только инициализацию.
Посмотрите пробу в файле, сделал для двух if, там все понятно.
Но может подправить надо будет, проверить не получается, нет компонента, а заморачиваться с установкой/подключением некогда.

[VictorM]

Думаю, еще можно несколько сократить код, назначив повторяющимся фразам строковые переменные.
Навскидку, у Вас повторяются многие фразы, например "Кухонные модули-Шкафы-Н=720-1 распашная плоская дверь".
Назначьте переменную этой фразе

Dim фраза1 As String
фраза1 = "Кухонные модули-Шкафы-Н=720-1 распашная плоская дверь"

и т.д. и используйте в коде уже эту переменную
глядишь код и уменьшится

[Watcher_1]

Вот если вы из этой процедуры

Private Sub UserForm_Initialize()

все данные вынесите на отдельный лист в эксель и будите добавлять в ваше дерево через цикл, то съэкономите 700 строк кода

[Вадим12091965]

Дерево у меня заполнено полностью. А вот выбор ветки для получения текстов и картинки, здесь проблема. Может вернуться в начало, как предлагал Watcher_1:

Sub m()
    If TreeView1.SelectedItem = "Для вытяжки-600" Then Call TextValue(600, 300, 720, 1)
    If TreeView1.SelectedItem = "1 откидная дверь R1000-300" Then Call TextValue(300, 300, 720, 1)
End Sub

Sub TextValue(ByVal t19 As Variant, ByVal t2 As Variant, ByVal t3 As Variant, ByVal t4 As Variant)
    TextBox19.Tag = t19
    TextBox19.Text = t19
    TextBox2.Tag = t2
    TextBox2.Text = t2
    TextBox3.Tag = t3
    TextBox3.Text = t3
    TextBox4.Tag = t4
    TextBox4.Text = t4
End Sub

только добавить переменную или константу для Image1, если это возможно. То есть сократить коды

If TreeView1.SelectedItem = "500" And IsExists(ImagePath & "028.bmp") Then
                Image1.Picture = LoadPicture(ImagePath & "028.bmp")

Может я несу ерунду, просто опыта почти нет.