Как сократить код? - Microsoft Office Excel - Страница 2

VictorM · 18.09.2013, 19:09

Я Вам предложил 2 варианта.
Первый - (даже пример выложил) сразу уменьшает "вес" кода формы и все начинает работать. Об этом Вам и Watcher_1 говорит.
Переделок совсем немного - расставить точки перед объектами формы.
Второй - можно значительно сократить "вес" кода самого модуля формы.
Что не так?

Вадим12091965 · 19.09.2013, 20:39

Спасибо за помощь. Все получилось. Разбил код на несколько частей.

Код:

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

18.09.2013, 19:09	#11
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Я Вам предложил 2 варианта. Первый - (даже пример выложил) сразу уменьшает "вес" кода формы и все начинает работать. Об этом Вам и Watcher_1 говорит. Переделок совсем немного - расставить точки перед объектами формы. Второй - можно значительно сократить "вес" кода самого модуля формы. Что не так? "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
сократить код	kostan3	Паскаль, Turbo Pascal, PascalABC.NET	2	17.02.2013 17:24
Как сократить код	Вадим12091965	Microsoft Office Excel	6	28.10.2012 11:04
как можно сократить код	sergio280888	БД в Delphi	0	17.04.2011 17:09
Как сократить код DLL	ProgDel	Общие вопросы Delphi	3	16.02.2010 21:12
Как можно сократить код	jocry	Общие вопросы Delphi	2	20.01.2009 08:35