Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно сдвинуть Scroll на форме? / 9 сообщений из 9, страница 1 из 1
05.04.2011, 20:19
    #37201140
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
Встала необходимость программно сдвинуть вверх-вниз скролл Frame1

Пример прилагается...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2011, 20:20
    #37201141
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
не соображу как это можно реализовать... ручками получается ... а вот через VBA?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2011, 08:50
    #37201558
Yudzhin
Yudzhin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
DMK67,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub AssignDown()
    Application.OnKey "{Down}", "DownTen"
End Sub
Sub DownTen()
    ActiveCell.Offset( 10 ,  0 ).Select
End Sub
Sub ClearDown()
    Application.OnKey "{Down}"
End Sub

ClearDown процедура ворачивает нормальное функционирование кнопки DOWN.

OnKey может быть использована для отключения команд клавиатуры (например, Ctrl+C):
Код: plaintext
1.
2.
3.
Sub StopCopyShortCut()
    Application.OnKey "^c", ""
End Sub
Заметь - используется строчная с . Для восстановления клавиатурной команды:
Код: plaintext
1.
2.
3.
Sub ClearCopyShortCut()
    Application.OnKey "^c"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2011, 13:05
    #37202285
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
Нт это не то. Скролл на форме в прилагаемом файле - перемещается только мышкой. Как его заставить перемешаться кодом?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2011, 13:08
    #37202300
Yudzhin
Yudzhin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
DMK67Встала необходимость программно сдвинуть вверх-вниз скролл Frame1

Программно ЧЕМ???? Нажатием кнопки, перемещением мышки... ЧЕМ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2011, 13:32
    #37202373
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
Yudzhin, если можно сразу при инициализации формы с условием если не всё фото видно, тогда потихоньку вниз со скоростью а
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2011, 13:57
    #37202444
Yudzhin
Yudzhin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
DMK67,

А вот так?
Код: plaintext
1.
2.
3.
Private Sub CommandButton1_Click()
    Frame1.Scroll yAction:=fmScrollActionLineDown
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 21:42
    #37205658
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
Круто, а можно пояснения?

1. Что такое yAction:=fmScrollActionLineDown
2. Как изменить шаг
3. Как одним нажатие уйти в самый низ (самый верх)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2011, 07:54
    #37205908
Yudzhin
Yudzhin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программно сдвинуть Scroll на форме?
DMK67Круто, а можно пояснения?

1. Что такое yAction:=fmScrollActionLineDown
2. Как изменить шаг
3. Как одним нажатие уйти в самый низ (самый верх)

1. Метод Scroll объекта Frame принимает два параметра: xAction и yAction. Другими словами, сдвиг по оси X и оси Y.
2. Scroll имеет жёстко заданные параметры (см. 3).
3. Параметры следующие:
fmScrollActionNoChange (0) - Не двигацо
fmScrollActionLineUp (1) - На 1 линию вверх
fmScrollActionLineDown (2) - На 1 линию вниз
fmScrollActionPageUp (3) - На 1 страницу вверх
fmScrollActionPageDown (4) - На 1 страницу вниз
fmScrollActionBegin (5) - В самый верх
fmScrollActionEnd (6) - В самый низ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно сдвинуть Scroll на форме? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 417ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176997]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 154ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 199ms
total:  417ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]