Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.17.28.48] |
|
Сообщ.
#1
,
|
|
|
Предлагаю выкладывать в этот топик советы по уменьшению размера кода. Вот один совет:
Если поменять значение переменной Boolean на противоположное, то лучше писать так: Dim a As Boolean a=Not a чем так: Dim a As Boolean If a=True then a=False Else a=True End if |
Сообщ.
#2
,
|
|
|
Самый надежный совет по уменьшению кода:
1 Использовать объекты ActivX 2 Выносить общие функции в DLL библиотеки 3 Пользоваться Классами ) как провило данное уменьшает код процентов на 30 и делает его более читаемым |
Сообщ.
#3
,
|
|
|
Можно избавиться от конструкции If..Else, если необходимо получить контекст данных зависящих
от булевого значения. Например данную конструкцию: If X = Y Then MsgBox "Выражение верно" Else MsgBox "Выражение неверно" End If Можно заменить на: MsgBox IIf(X = Y, "Выражение верно", "Выражение неверно") |
Сообщ.
#4
,
|
|
|
Чтобы получить определенное значение из строки с разделителями можно воспользоваться сл. кодом:
Пример: Dim Tmp as String Tmp = "256;128;64;32;16;8;4;2;1" Msgbox Split(Tmp,";")(3) Вернет "32" |