ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно сдвинуть Scroll на форме?
9 сообщений из 9, страница 1 из 1
Программно сдвинуть Scroll на форме?
    #37201140
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DMK67
Гость
Встала необходимость программно сдвинуть вверх-вниз скролл Frame1

Пример прилагается...
...
Рейтинг: 0 / 0
05.04.2011, 20:19
| Ответить | Цитировать | Написать  
Программно сдвинуть Scroll на форме?
    #37201141
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DMK67
Гость
не соображу как это можно реализовать... ручками получается ... а вот через VBA?
...
Рейтинг: 0 / 0
05.04.2011, 20:20
| Ответить | Цитировать | Написать  
Программно сдвинуть Scroll на форме?
    #37201558
Yudzhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yudzhin
Участник
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, 08:50
| Ответить | Цитировать | Написать  
Программно сдвинуть Scroll на форме?
    #37202285
DMK67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DMK67
Гость
Нт это не то. Скролл на форме в прилагаемом файле - перемещается только мышкой. Как его заставить перемешаться кодом?
...
Рейтинг: 0 / 0
06.04.2011, 13:05
| Ответить | Цитировать | Написать  
Программно сдвинуть Scroll на форме?
    #37202300
Yudzhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yudzhin
Участник
DMK67Встала необходимость программно сдвинуть вверх-вниз скролл Frame1

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

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

1. Что такое yAction:=fmScrollActionLineDown
2. Как изменить шаг
3. Как одним нажатие уйти в самый низ (самый верх)
...
Рейтинг: 0 / 0
07.04.2011, 21:42
| Ответить | Цитировать | Написать  
Программно сдвинуть Scroll на форме?
    #37205908
Yudzhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yudzhin
Участник
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
08.04.2011, 07:54
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно сдвинуть Scroll на форме?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37202300&tid=2176997]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 186ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 68ms
get tp. blocked users:
 1ms
others: 242ms
total:  550ms
созд. / загр.: 550ms
x
x
Закрыть


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