Окна Locals и Immediate

Использование окна Locals — простой способ просмотра всех перемен­ных, находящихся в области видимости.

Простые переменные перечислены с их зна­чениями, а за объектами следует знак " плюс", щелкнув на котором, можно просмот­реть свойства объекта. Если свойство само является объектом, рядом с ним также на­ходится знак " плюс". В этом окне можно легко просмотреть все переменные одновременно, избавив себя от необходимости искать их в программном коде.

Окно Immediate можно использовать для тестирования строк кода без запуска программы. Для пробы наберите в окне Immediate строку

Print 2*3

Под оператором print появится ответ 6.

Окно Immediate работает только с однострочными операторами. В окне нельзя объявлять переменные, можно лишь использовать переменные, находящиеся в облас­ти видимости.

Задание:

1. Поставьте КТ и запустите программу

2. Откройте окно Locals – Вы увидите значения всех переменных (до КТ) области видимости.

3. Пощелкайте Step Into – переменные в окно будут добавляться.

4. Остановите программу

5. В конце процедуры обработки события Command_Click добавьте строку:

Debug.Print Greater(a, b, c, d, e)

6. Запустите программу

7. Откройте окно Immediate – увидите результат выполнения программы (здесь).

Итак, кратко:

· Без контрольных точек отладка работать не будет

· Watch служит для просмотра заданных переменных

· Locals служит для просмотра всех видимых переменных

· Динамику изменения переменных удобно наблюдать в окне Locals или Watch с помощью Step Into (Step Over)

ПОЛОСЫ ПРОКРУТКИ

1. Создайте новый проект

2. Добавьте в форму горизонтальную полосу прокрутки HscrollBar

3. Добавьте в форму текстовое поле:

4. Установите свойства HScrollBar:

Min = 0

Max = 100

SmallChange = 1

LargeChange = 10

Минимальное и максимальное значение полосы прокрутки понятно. Малое изменение = 1 при щелчке на кнопке с треугольничком. Большое изменение = 10 при щелчке на полосе прокрутки между бегунком и кнопкой.

5. Щелкните дважды на полосе прокрутки и добавьте код:

Private Sub HScroll1_Change()

Text1.Text = CStr(HScroll1.Value)

End Sub

6. Запустите программу

Вертикальная полоса прокрутки работает аналогично.