VBNet - Форум - Автопрокрутка

Вопрос: Автопрокрутка Добавлено: 15.01.03 02:55

Автор вопроса: Nonamer | Web-сайт: nonsoft.narod.ru | ICQ: 268674940

Всем привет!
Не подскажите ли мне, как програмно прокрутить полосу прокрутки ListView, и вообще как програмно крутить
полосы ....
Заранее благодарен. С уважением, Nonamer. :-)))

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Воронков Василий Вопросов: 1 Ответов: 90	Профиль \| \| #1	Добавлено: 15.01.03 11:30
	Попробуй API SetCrollPos. Ответить

Номер ответа: 2
Автор ответа:

Nonamer

ICQ: 268674940

Вопросов: 31
Ответов: 69

Web-сайт: nonsoft.narod.ru
Профиль | | #2

Добавлено: 15.01.03 12:08

Да пробовал..... :-( (( Дело в том, что скрол прокрутить кое как получается но перемещается ТОЛЬКО скролл, а не то, что этот скрол должен скролить. //Скролл уже на середине, а в ListView все еще стоид первая строка .... :-( (((

Ответить

Номер ответа: 3
Автор ответа:

Воронков Василий

Вопросов: 1
Ответов: 90

Профиль | | #3

Добавлено: 15.01.03 13:40

Предлагаю такой способ:

Private Declare Function SetScrollPos Lib "user32" Alias "SetScrollPos" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long

Dim fCountInt as Integer

Sub Command1_Click()

fCountInt=fCountInt +1

SetScrollPos List1.hWnd, 1, fCountInt, 1

List1.ListIndex=14+fCountInt

End Sub

Описание:

В List1 содержится более 15 элементом. Размер ЭУ и шрифты установлены так, что одновременно видимыми являются 15 элементов. (Отсюда - число 14 в List1.ListIndex=14+fCountInt). Конечно, этот способ явно через ж..., но - действует!

Ответить

Номер ответа: 4 Автор ответа: twinshot Вопросов: 17 Ответов: 10	Профиль \| \| #4	Добавлено: 15.01.03 15:30
	Где-то в "библиотеке кодов " я это дело видел - копни, точно помню был там примерчик хороший..... Ответить

Страница: 1 |