Прокрутка у PictureBox

[dorido]

как отловить прокрутку колёсика над picturebox`ом.

зы просьба в поиск не посылать ибо возможности в данный момент ограничены...Ж)

[Naked]

Код: Выделить всё

Sub Hook(hwnd As Long)
    PrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc)
End Sub
Sub UnHook(hwnd As Long)
    Call SetWindowLong(hwnd, GWL_WNDPROC, PrevWndProc)
End Sub

Private Function WndProc(ByVal hwnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    Select Case message
        Case WM_MOUSEWHEEL
            If HiWord(wParam) < 0 Then
                Msgbox “0”
            Else
                Msgbox “1”
            End If
            WndProc = CallWindowProc(PrevWndProc, hwnd, message, wParam, lParam)

        Case Else
            WndProc = CallWindowProc(PrevWndProc, hwnd, message, wParam, lParam)
    End Select
End Function

Function HiWord(LongIn As Long) As Long
     HiWord = (LongIn And &HFFFF0000) \ &H10000
End Function


[Хакер]

Naked
Это ведь копипаст?

Msgbox “0”

Где вы такие кавычки берёте? VB это не как строку "0" поймёт. А как переменную. Ибо

Код: Выделить всё

Dim “переменная” As Integer
“переменная” = “переменная” + 515
MsgBox “переменная”

[Naked]

Хакер угу
сначала в вёрд скопировал из своей проги, подправил, добавил msgbox
а потом сюда