одновременное нажатие клавиш модификаторов и мыши

Поделиться114.07.2022 07:26:55

Автор: newJS
Активный участник
Зарегистрирован: 28.12.2015
Приглашений: 0
Сообщений: 241
Уважение: [+2/-0]
Позитив: [+8/-0]
Пол: Мужской
Провел на форуме:
2 дня 20 часов
Последний визит:
18.01.2025 19:05:47

с клавиатурой всё понятно, а с мышью ни чего нет
канвас не предлагать, про него есть

0

Поделиться218.07.2022 10:29:35

Автор: Sergeihik
Активный участник
Зарегистрирован: 27.07.2021
Приглашений: 0
Сообщений: 184
Уважение: [+3/-3]
Позитив: [+0/-0]
Провел на форуме:
2 дня 19 часов
Последний визит:
04.01.2025 20:48:25

newJS написал(а):

с клавиатурой всё понятно, а с мышью ни чего нет
канвас не предлагать, про него есть

Так в обработчике надо при событии мыши проверять wparam,lparam и смотреть была ли клавиша нажата допустим ctrl

0

Поделиться319.07.2022 07:09:58

Автор: newJS
Активный участник
Зарегистрирован: 28.12.2015
Приглашений: 0
Сообщений: 241
Уважение: [+2/-0]
Позитив: [+8/-0]
Пол: Мужской
Провел на форуме:
2 дня 20 часов
Последний визит:
18.01.2025 19:05:47

Sergeihik написал(а):

Так в обработчике надо при событии мыши проверять wparam,lparam и смотреть была ли клавиша нажата допустим ctrl

ну и как всё это правильно сделать

0

Поделиться419.07.2022 10:26:08

Автор: Sergeihik
Активный участник
Зарегистрирован: 27.07.2021
Приглашений: 0
Сообщений: 184
Уважение: [+3/-3]
Позитив: [+0/-0]
Провел на форуме:
2 дня 19 часов
Последний визит:
04.01.2025 20:48:25

newJS написал(а):

ну и как всё это правильно сделать

Тут наверное ещё вопрос в том если сначала клавиша модификатор нажимается а потом клик мыши тогда возможно и можно посмотреть в wparam, lparam а если наоборот?,тогда наверное только переменную статическую или глобальную делать и в нее писать=допустим нажали ctrl это 1
Если клик далее будет левой то if 1,то это уже 2,else правой то это 3 endif и таким мокаром
На остальные комбинации которые нужны.

0

Поделиться519.07.2022 13:40:51

Автор: AZJIO
Активный участник
Зарегистрирован: 07.08.2020
Приглашений: 0
Сообщений: 1097
Уважение: [+15/-0]
Позитив: [+13/-0]
Провел на форуме:
22 дня 15 часов
Последний визит:
Сегодня 04:29:24

При событии нажатии мыши проверить нажата ли одна из кнопок модификаторов.
KeyboardPushed(KeyID)

0

Поделиться619.07.2022 21:41:51

Автор: Lin
Активный участник
Зарегистрирован: 18.11.2020
Приглашений: 2
Сообщений: 88
Уважение: [+5/-0]
Позитив: [+4/-0]
Провел на форуме:
5 дней 9 часов
Последний визит:
Сегодня 03:06:36

Код:

EnableExplicit
Declare MouseHook(nCode, wParam, lParam)

Define lpdwProcessId, hhkLLMouse, i
Global hGUI

Procedure MouseHook(nCode, wParam, lParam)
  Protected *MHS.MOUSEHOOKSTRUCT = lParam
  Protected bcontrol, balt, bshift, Pressed$
  Static ChangingID
  ; 	= MOUSEHOOKSTRUCT =
  ; 	pt.POINT
  ; 	hwnd.i
  ; 	wHitTestCode.l
  ; 	dwExtraInfo.i
  
  bcontrol = GetAsyncKeyState_(#VK_CONTROL)
  balt = GetAsyncKeyState_(#VK_MENU)
  bshift = GetAsyncKeyState_(#VK_SHIFT)

  If bcontrol
    Pressed$ + "CTRL +"
  EndIf
  If balt
    Pressed$ + "ALT +"
  EndIf
  If bshift
    Pressed$ + "SHIFT +"
  EndIf
  
  Select wParam
    Case #WM_LBUTTONUP
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Left Mouse UP"
    Case #WM_LBUTTONDOWN 
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Left Mouse Down"
    Case #WM_LBUTTONDBLCLK
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Left Mouse DblClicked"
    Case  #WM_RBUTTONUP
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Right Mouse UP"
    Case  #WM_RBUTTONDOWN
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Right Mouse Down"
    Case  #WM_RBUTTONDBLCLK
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Right Mouse DblClicked"
    Case  #WM_MBUTTONUP
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Middle Mouse UP"
    Case  #WM_MBUTTONDOWN
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Middle Mouse Down"
    Case  #WM_MBUTTONDBLCLK
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Middle Mouse DblClicked"
      
      ;     === click in a non-client area ===
      ;     Case  #WM_NCLBUTTONUP
      ;     Case  #WM_NCLBUTTONDOWN
      ;     Case  #WM_NCLBUTTONDBLCLK
      ;     Case  #WM_NCRBUTTONUP
      ;     Case  #WM_NCRBUTTONDOWN
      ;     Case  #WM_NCRBUTTONDBLCLK
      ;     Case  #WM_NCMBUTTONUP
      ;     Case  #WM_NCMBUTTONDOWN
      ;     Case  #WM_NCMBUTTONDBLCLK
      ;     === additional mouse button ===
      ;     Case  #WM_XBUTTONUP
      ;     Case  #WM_XBUTTONDOWN
      ;     Case  #WM_XBUTTONDBLCLK
      
    Case  #WM_MOUSEWHEEL
      Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" "+Pressed$+" Mouse wheel"
      
    Case  #WM_MOUSEMOVE
      If *MHS\hwnd <> hGUI And ChangingID <> *MHS\hwnd
        ChangingID = *MHS\hwnd
        Debug "Gadget "+Str(GetDlgCtrlID_(*MHS\hwnd))+" Changing"
      EndIf
      
  EndSelect
EndProcedure

hGUI = OpenWindow(0,0,0,600,400,"", #PB_Window_SystemMenu| #PB_Window_ScreenCentered)
For i = 0 To 9
  ButtonGadget(i,10,i * 30,80,25,Str(i))
Next

lpdwProcessId = GetWindowThreadProcessId_(WindowID(0), 0)
hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE, @MouseHook(), GetModuleHandle_(0), lpdwProcessId)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      UnhookWindowsHookEx_(hhkLLMouse)
      Break
  EndSelect
ForEver

0

Поделиться721.07.2022 06:37:08

Автор: newJS
Активный участник
Зарегистрирован: 28.12.2015
Приглашений: 0
Сообщений: 241
Уважение: [+2/-0]
Позитив: [+8/-0]
Пол: Мужской
Провел на форуме:
2 дня 20 часов
Последний визит:
18.01.2025 19:05:47

Lin спасибо, славный огород, на все случаи

0

PureBasic - форум

Меню навигации

Пользовательские ссылки

Информация о пользователе