| Вопрос: WebBrowser | Добавлено: 21.03.07 13:41 |
Автор вопроса:  MIRC | ICQ: 254226129 |
|
Привет! Я извиняюсь, не подскажете как програмно прокрутить скролл в самый низ контрола?
Спасибо. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #1 | Добавлено: 21.03.07 17:12 |
|
Так ставиш HScroll1.Value=HScroll1.Max
|
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 21.03.07 18:23 |
|
Docal, боян, см заголовок топа...
MIRC, под рукой только пример на JS. Можно в принципе его засунуть в WB  Но думаю лучше послать WB нужное сообщение, для прокрутки скрола, вот только какое я непомню... Попробуй воспользоваться поиском
|
||
|
Номер ответа: 3 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #3 | Добавлено: 21.03.07 22:13 |
|
Private Const WM_VSCROLL = &H115
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Sub Command1_Click() Dim ret, i As Long ret = Split(Text1.Text, vbCrLf) For i = 1 To UBound(ret) PostMessage Text1.hwnd, ByVal WM_VSCROLL, ByVal 1, ByVal 0 Next i End Sub Private Sub Command2_Click() Dim ret, i As Long ret = Split(Text1.Text, vbCrLf) For i = 1 To UBound(ret) PostMessage Text1.hwnd, ByVal WM_VSCROLL, ByVal 0, ByVal 0 Next i End Sub Private Sub Form_Load() Command1.Caption = "Scroll Down" Command2.Caption = "Scroll Up" End Sub |
||
|
Номер ответа: 4 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #4 | Добавлено: 22.03.07 10:45 |
| WBBR.Document.body.scrollTop = WBBR.Document.body.scrollHeight | ||
|
Номер ответа: 5 Автор ответа: MIRC ICQ: 254226129 Вопросов: 6 Ответов: 6 |
Профиль | | #5 | Добавлено: 22.03.07 11:35 |
| Серёга! Твой код для Text1, который можно написать одной строкой, это я знаю, а вот для WebBrowser'a незнаю... | ||
|
Номер ответа: 6 Автор ответа: MIRCICQ: 254226129 Вопросов: 6 Ответов: 6 |
Профиль | | #6 | Добавлено: 22.03.07 11:40 |
| Sur! Твой код может и пойдёт, но в нём чего-то не хватает, ошибку выдаёт "вейрибл нот сет" | ||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 22.03.07 17:43 |
|
MIRC
1) Ненадо комне стучаться в асю, с просьбой ответить на твой вопрос на форуме. 2) Используя код Серёги, замени Text1 на WebBrowser1, получится что-то вроде PostMessage WebBrowser1.hwnd, ByVal WM_VSCROLL, ByVal 0, ByVal 0 Используя код Sur'a 3) WebBrowser1.Document.body.scrollTop = <значние> 4) Используй и свою голову тоже... |
||
Страница: 1 |