MouseWheel()

Синтаксис

Result = MouseWheel()

Описание

Возвращает количество тиков (импульсных движений при проворачивании), выполненных колесом Мыши с момента последнего вызова этой функции. Перед использованием этой функции необходимо обновить состояние Мыши с помощью команды ExamineMouse().

Параметры

Ничего.

Возвращаемое значение

Возвращает количество тиков, выполненных колесом Мыши с момента последнего вызова этой функции. Значение является положительным, если колесо было перемещено вперед, и отрицательным, если оно было перемещено назад.

Пример (фран.)

; Инициализация мира 2D
InitSprite()
InitKeyboard()
InitMouse()

; Открытие окна
OpenWindow(0, 0, 0, 800, 600, "Souris - Utiliser la molette", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, 1, 0, 0)

; Управление окнами и экранами
Repeat
    Repeat        ; Управление окнами
        Event  = WindowEvent()
    Until Event = 0

    ExamineMouse() ; Состояние мыши

    ; Колесо мыши = вращение курсора
    tiks = MouseWheel()
    ; Просмотр состояния кнопок мыши
    StartDrawing(ScreenOutput())
    DrawText(10, 10, "Нажмите клавишу на клавиатуре, чтобы выйти.", RGB(255, 255, 0))
    DrawText(250, 180, "Используйте колесо мыши.", RGB(255, 0, 0), RGB(255, 255, 0))
    If tiks > 0
        DrawText(250, 230, "Колесо вверх" , RGB(255, 0, 0), RGB(255, 255, 0))
        Delay(100)
    ElseIf tiks < 0
        DrawText(450, 230, "Колесо вниз"  , RGB(255, 0, 0), RGB(255, 255, 0))
        Delay(100)
    Else
        DrawText(350, 230, "Колесо в покое" , RGB(255, 255, 255))
    EndIf

    StopDrawing()

    FlipBuffers()
    ClearScreen(RGB(0, 0, 0))

    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)
End

См. также

ExamineMouse()

Поддерживаемые OS

Windows