А как отловить колесико мыши?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
al addin
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 04.07.2002 (Чт) 11:56

А как отловить колесико мыши?

Сообщение al addin » 13.11.2003 (Чт) 12:43

Как отловить использование колесика мыши, чтобы сделать скроллинг в форме?

Хук на мышь не предлагайте, если можно :?
alla ambar:)

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 13.11.2003 (Чт) 23:20

Option Explicit

Const WM_MOUSEWHEEL = &H20A
Const Mouse_Scroll = &H780000
Private Type POINTAPI
X As Long
Y As Long
End Type

Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type

Dim mMsg As MSG
Private Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, _
ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long

Function GetNapr()
Dim lMsg As Long
Dim Napr As Long
Call GetMessage(mMsg, Me.hwnd, 0, 0)
lMsg = mMsg.message
Napr = mMsg.wParam
If lMsg = 522 Then
If Napr = Mouse_Scroll Then
Label1.Caption = "Скролл вверх"
ElseIf Napr = -Mouse_Scroll Then
Label1.Caption = "Скролл вниз"
End If
End If
End Function

Private Sub Timer1_Timer()
Call GetNapr
DoEvents
End Sub

Tень
Начинающий
Начинающий
 
Сообщения: 16
Зарегистрирован: 05.11.2003 (Ср) 3:03

Сообщение Tень » 21.11.2003 (Пт) 17:00

эээ... А как делать если два колёсика?


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList