Gerade nachgeguggt. Nichts gefunden, ausser MouseButtonsKaeru Gaman hat geschrieben:schau mal in die #VK Tabelle, vielleicht werden die systemseitig wie tastendrücke verarbeitet...
Code: Alles auswählen
Private Const WM_SCROLL = 277
'Code zum Scrollen:
Dim intParameter As Integer
intParameter = 1
SendMessage FensterHandle, WM_SCROLL, intParameter, 0
'andere Werte für intParameter (durch Ausprobieren herausgefunden):
'4=Ganz nach oben scrollen
'0=eine Zeile rauf scrollen
'1=eine Zeile runter scrollenpuh, [KeineAhnungHab], aber ist ein FullScreen nicht auch ein Fenster?PMTheQuick hat geschrieben:Ich brauche es aber für eine FullScreen Anwendung. (DirectX) Wie könnte ich es da machen?
Code: Alles auswählen
InitSprite() : InitKeyboard() : InitMouse()
#MOUSEEVENTF_WHEEL = $800
#WHEEL_DELTA = 120
OpenWindow(0,0,0,640,480,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0)
Repeat
EventID = WindowEvent()
ClearScreen($804020)
ExamineKeyboard()
ExamineMouse()
If MouseButton(1)
mouse_event_(#MOUSEEVENTF_WHEEL,0,0,#WHEEL_DELTA,0)
EndIf
If MouseButton(2)
mouse_event_(#MOUSEEVENTF_WHEEL,0,0,-#WHEEL_DELTA,0)
EndIf
If MouseWheel() > 0 : Y - 20 : EndIf
If MouseWheel() < 0 : Y + 20 : EndIf
StartDrawing(ScreenOutput())
Box(300,220 + Y,64,64,#Red)
DrawText(10,10,"Use mouse buttons to simulate mouse wheel motion")
StopDrawing()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape) Or EventID = #PB_Event_CloseWindow