| Вопрос: Mouse Wheel | Добавлено: 31.10.03 02:26 |
Автор вопроса:  Smith | ICQ: adamis@list.ru |
| Как пользоваться событием Mouse Wheel? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  SAVok ICQ: 155153916 Вопросов: 2 Ответов: 126 |
Профиль | | #1 | Добавлено: 31.10.03 08:31 |
|
Буду вести себя как настоящий программист, поэтому мой ответ будет столь же точен, сколь и бесполезен - исключительно по назначению. Если ты поконкретнее опишешь суть проблемы, то может смогу дать более полезный совет |
||
|
Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #2 | Добавлено: 31.10.03 17:21 |
| У мышки есть скроллер, так вот я незнаю как его программировать. Есть VscrollBar и нужно чтобы он реагировал на скроллер от мышки. | ||
|
Номер ответа: 3 Автор ответа: SAVokICQ: 155153916 Вопросов: 2 Ответов: 126 |
Профиль | | #3 | Добавлено: 03.11.03 07:07 |
|
Делай так Protected Overrides Sub OnMouseWheel(ByVal e As System.Windows.Forms.MouseEventArgs) Dim newVal = ScrollBarDemo.Value - (e.Delta * SystemInformation.MouseWheelScrollLines \ 120) If newVal > ScrollBarDemo.Maximum Then ScrollBarDemo.Value = ScrollBarDemo.Maximum ElseIf newVal < ScrollBarDemo.Minimum ThenScrollBarDemo.Value = ScrollBarDemo.Minimum ElseScrollBarDemo.Value = newVal End IfEnd Sub |
||
Страница: 1 |