Know the Constant_VK

Kwai chang caine · Post by **Kwai chang caine** » Fri Feb 10, 2012 3:54 pm

Hello at all

I have today a problem to know the Constant_VK of a special touch of my keyboard
http://www.purebasic.fr/english/viewtop ... 03#p373603
If a day someone have the same...perhaps this simple code can help him

Thanks to RASHAD, TORP, FOZ and SHIELD to help me for create it

Code: Select all

Structure Constante
 Nom.s
 Valeur.l
EndStructure

Dim TabloConstanteVK.Constante(200)

x+1:TabloConstanteVK(x)\Nom = "#VK_LBUTTON"
x+1:TabloConstanteVK(x)\Nom = "#VK_RBUTTON"
x+1:TabloConstanteVK(x)\Nom = "#VK_CANCEL"
x+1:TabloConstanteVK(x)\Nom = "#VK_MBUTTON"
x+1:TabloConstanteVK(x)\Nom = "#VK_BACK"
x+1:TabloConstanteVK(x)\Nom = "#VK_TAB"
x+1:TabloConstanteVK(x)\Nom = "#VK_CLEAR"
x+1:TabloConstanteVK(x)\Nom = "#VK_RETURN"
x+1:TabloConstanteVK(x)\Nom = "#VK_SHIFT"
x+1:TabloConstanteVK(x)\Nom = "#VK_CONTROL"
x+1:TabloConstanteVK(x)\Nom = "#VK_MENU"
x+1:TabloConstanteVK(x)\Nom = "#VK_PAUSE"
x+1:TabloConstanteVK(x)\Nom = "#VK_CAPITAL"
x+1:TabloConstanteVK(x)\Nom = "#VK_ESCAPE"
x+1:TabloConstanteVK(x)\Nom = "#VK_SPACE"
x+1:TabloConstanteVK(x)\Nom = "#VK_PRIOR"
x+1:TabloConstanteVK(x)\Nom = "#VK_NEXT"
x+1:TabloConstanteVK(x)\Nom = "#VK_END"
x+1:TabloConstanteVK(x)\Nom = "#VK_HOME"
x+1:TabloConstanteVK(x)\Nom = "#VK_LEFT"
x+1:TabloConstanteVK(x)\Nom = "#VK_UP"
x+1:TabloConstanteVK(x)\Nom = "#VK_RIGHT"
x+1:TabloConstanteVK(x)\Nom = "#VK_DOWN"
x+1:TabloConstanteVK(x)\Nom = "#VK_SELECT"
x+1:TabloConstanteVK(x)\Nom = "#VK_PRINT"
x+1:TabloConstanteVK(x)\Nom = "#VK_EXECUTE"
x+1:TabloConstanteVK(x)\Nom = "#VK_SNAPSHOT"
x+1:TabloConstanteVK(x)\Nom = "#VK_INSERT"
x+1:TabloConstanteVK(x)\Nom = "#VK_DELETE"
x+1:TabloConstanteVK(x)\Nom = "#VK_HELP"
x+1:TabloConstanteVK(x)\Nom = "#VK_0"
x+1:TabloConstanteVK(x)\Nom = "#VK_1"
x+1:TabloConstanteVK(x)\Nom = "#VK_2"
x+1:TabloConstanteVK(x)\Nom = "#VK_3"
x+1:TabloConstanteVK(x)\Nom = "#VK_4"
x+1:TabloConstanteVK(x)\Nom = "#VK_5"
x+1:TabloConstanteVK(x)\Nom = "#VK_6"
x+1:TabloConstanteVK(x)\Nom = "#VK_7"
x+1:TabloConstanteVK(x)\Nom = "#VK_8"
x+1:TabloConstanteVK(x)\Nom = "#VK_9"
x+1:TabloConstanteVK(x)\Nom = "#VK_A"
x+1:TabloConstanteVK(x)\Nom = "#VK_B"
x+1:TabloConstanteVK(x)\Nom = "#VK_C"
x+1:TabloConstanteVK(x)\Nom = "#VK_D"
x+1:TabloConstanteVK(x)\Nom = "#VK_E"
x+1:TabloConstanteVK(x)\Nom = "#VK_F"
x+1:TabloConstanteVK(x)\Nom = "#VK_G"
x+1:TabloConstanteVK(x)\Nom = "#VK_H"
x+1:TabloConstanteVK(x)\Nom = "#VK_I"
x+1:TabloConstanteVK(x)\Nom = "#VK_J"
x+1:TabloConstanteVK(x)\Nom = "#VK_K"
x+1:TabloConstanteVK(x)\Nom = "#VK_L"
x+1:TabloConstanteVK(x)\Nom = "#VK_M"
x+1:TabloConstanteVK(x)\Nom = "#VK_N"
x+1:TabloConstanteVK(x)\Nom = "#VK_O"
x+1:TabloConstanteVK(x)\Nom = "#VK_P"
x+1:TabloConstanteVK(x)\Nom = "#VK_Q"
x+1:TabloConstanteVK(x)\Nom = "#VK_R"
x+1:TabloConstanteVK(x)\Nom = "#VK_S"
x+1:TabloConstanteVK(x)\Nom = "#VK_T"
x+1:TabloConstanteVK(x)\Nom = "#VK_U"
x+1:TabloConstanteVK(x)\Nom = "#VK_V"
x+1:TabloConstanteVK(x)\Nom = "#VK_W"
x+1:TabloConstanteVK(x)\Nom = "#VK_X"
x+1:TabloConstanteVK(x)\Nom = "#VK_Y"
x+1:TabloConstanteVK(x)\Nom = "#VK_Z"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD0"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD1"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD2"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD3"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD4"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD5"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD6"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD7"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD8"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMPAD9"
x+1:TabloConstanteVK(x)\Nom = "#VK_MULTIPLY"
x+1:TabloConstanteVK(x)\Nom = "#VK_ADD"
x+1:TabloConstanteVK(x)\Nom = "#VK_SEPARATOR"
x+1:TabloConstanteVK(x)\Nom = "#VK_SUBTRACT"
x+1:TabloConstanteVK(x)\Nom = "#VK_DECIMAL"
x+1:TabloConstanteVK(x)\Nom = "#VK_DIVIDE"
x+1:TabloConstanteVK(x)\Nom = "#VK_F1"
x+1:TabloConstanteVK(x)\Nom = "#VK_F2"
x+1:TabloConstanteVK(x)\Nom = "#VK_F3"
x+1:TabloConstanteVK(x)\Nom = "#VK_F4"
x+1:TabloConstanteVK(x)\Nom = "#VK_F5"
x+1:TabloConstanteVK(x)\Nom = "#VK_F6"
x+1:TabloConstanteVK(x)\Nom = "#VK_F7"
x+1:TabloConstanteVK(x)\Nom = "#VK_F8"
x+1:TabloConstanteVK(x)\Nom = "#VK_F9"
x+1:TabloConstanteVK(x)\Nom = "#VK_F10"
x+1:TabloConstanteVK(x)\Nom = "#VK_F11"
x+1:TabloConstanteVK(x)\Nom = "#VK_F12"
x+1:TabloConstanteVK(x)\Nom = "#VK_F13"
x+1:TabloConstanteVK(x)\Nom = "#VK_F14"
x+1:TabloConstanteVK(x)\Nom = "#VK_F15"
x+1:TabloConstanteVK(x)\Nom = "#VK_F16"
x+1:TabloConstanteVK(x)\Nom = "#VK_F17"
x+1:TabloConstanteVK(x)\Nom = "#VK_F18"
x+1:TabloConstanteVK(x)\Nom = "#VK_F19"
x+1:TabloConstanteVK(x)\Nom = "#VK_F20"
x+1:TabloConstanteVK(x)\Nom = "#VK_F21"
x+1:TabloConstanteVK(x)\Nom = "#VK_F22"
x+1:TabloConstanteVK(x)\Nom = "#VK_F23"
x+1:TabloConstanteVK(x)\Nom = "#VK_F24"
x+1:TabloConstanteVK(x)\Nom = "#VK_NUMLOCK"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_PLUS"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_COMMA" ;  "<"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_MINUS";  "_"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_PERIOD" ; ">"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_1"      ;   ";"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_2"      ;  "?"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_3"      ;  "~"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_4"      ;  "{"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_5"      ;  "|"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_6"      ;  "}"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_7"      ;  """
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_8"
x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_102"   ;  "/"
; x+1:TabloConstanteVK(x)\Nom = "#VK_ICO_F17"
; x+1:TabloConstanteVK(x)\Nom = "#VK_ICO_F18"
; x+1:TabloConstanteVK(x)\Nom = "#VK_ICO_HELP"
; x+1:TabloConstanteVK(x)\Nom = "#VK_ICO_00"
; x+1:TabloConstanteVK(x)\Nom = "#VK_ICO_CLEAR"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_RESET"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_JUMP"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_PA1"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_PA2"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_PA3"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_WSCTRL"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_CUSEL"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_ATTN"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_FINNISH"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_COPY"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_AUTO"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_ENLW"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_BACKTAB"
; x+1:TabloConstanteVK(x)\Nom = "#VK_ATTN"
; x+1:TabloConstanteVK(x)\Nom = "#VK_CRSEL"
; x+1:TabloConstanteVK(x)\Nom = "#VK_EXSEL"
; x+1:TabloConstanteVK(x)\Nom = "#VK_EREOF"
; x+1:TabloConstanteVK(x)\Nom = "#VK_PLAY"
; x+1:TabloConstanteVK(x)\Nom = "#VK_ZOOM"
; x+1:TabloConstanteVK(x)\Nom = "#VK_NONAME"
; x+1:TabloConstanteVK(x)\Nom = "#VK_PA1"
; x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_CLEAR"
;x+1:TabloConstanteVK(x)\Nom = "#VK_STARTKEY"
;x+1:TabloConstanteVK(x)\Nom = "#VK_CONTEXTKEY"
;x+1:TabloConstanteVK(x)\Nom = "#VK_OEM_SCROLL"
x=0
x+1:TabloConstanteVK(x)\Valeur = #VK_LBUTTON
x+1:TabloConstanteVK(x)\Valeur = #VK_RBUTTON
x+1:TabloConstanteVK(x)\Valeur = #VK_CANCEL
x+1:TabloConstanteVK(x)\Valeur = #VK_MBUTTON
x+1:TabloConstanteVK(x)\Valeur = #VK_BACK
x+1:TabloConstanteVK(x)\Valeur = #VK_TAB
x+1:TabloConstanteVK(x)\Valeur = #VK_CLEAR
x+1:TabloConstanteVK(x)\Valeur = #VK_RETURN
x+1:TabloConstanteVK(x)\Valeur = #VK_SHIFT
x+1:TabloConstanteVK(x)\Valeur = #VK_CONTROL
x+1:TabloConstanteVK(x)\Valeur = #VK_MENU
x+1:TabloConstanteVK(x)\Valeur = #VK_PAUSE
x+1:TabloConstanteVK(x)\Valeur = #VK_CAPITAL
x+1:TabloConstanteVK(x)\Valeur = #VK_ESCAPE
x+1:TabloConstanteVK(x)\Valeur = #VK_SPACE
x+1:TabloConstanteVK(x)\Valeur = #VK_PRIOR
x+1:TabloConstanteVK(x)\Valeur = #VK_NEXT
x+1:TabloConstanteVK(x)\Valeur = #VK_END
x+1:TabloConstanteVK(x)\Valeur = #VK_HOME
x+1:TabloConstanteVK(x)\Valeur = #VK_LEFT
x+1:TabloConstanteVK(x)\Valeur = #VK_UP
x+1:TabloConstanteVK(x)\Valeur = #VK_RIGHT
x+1:TabloConstanteVK(x)\Valeur = #VK_DOWN
x+1:TabloConstanteVK(x)\Valeur = #VK_SELECT
x+1:TabloConstanteVK(x)\Valeur = #VK_PRINT
x+1:TabloConstanteVK(x)\Valeur = #VK_EXECUTE
x+1:TabloConstanteVK(x)\Valeur = #VK_SNAPSHOT
x+1:TabloConstanteVK(x)\Valeur = #VK_INSERT
x+1:TabloConstanteVK(x)\Valeur = #VK_DELETE
x+1:TabloConstanteVK(x)\Valeur = #VK_HELP
x+1:TabloConstanteVK(x)\Valeur = #VK_0
x+1:TabloConstanteVK(x)\Valeur = #VK_1
x+1:TabloConstanteVK(x)\Valeur = #VK_2
x+1:TabloConstanteVK(x)\Valeur = #VK_3
x+1:TabloConstanteVK(x)\Valeur = #VK_4
x+1:TabloConstanteVK(x)\Valeur = #VK_5
x+1:TabloConstanteVK(x)\Valeur = #VK_6
x+1:TabloConstanteVK(x)\Valeur = #VK_7
x+1:TabloConstanteVK(x)\Valeur = #VK_8
x+1:TabloConstanteVK(x)\Valeur = #VK_9
x+1:TabloConstanteVK(x)\Valeur = #VK_A
x+1:TabloConstanteVK(x)\Valeur = #VK_B
x+1:TabloConstanteVK(x)\Valeur = #VK_C
x+1:TabloConstanteVK(x)\Valeur = #VK_D
x+1:TabloConstanteVK(x)\Valeur = #VK_E
x+1:TabloConstanteVK(x)\Valeur = #VK_F
x+1:TabloConstanteVK(x)\Valeur = #VK_G
x+1:TabloConstanteVK(x)\Valeur = #VK_H
x+1:TabloConstanteVK(x)\Valeur = #VK_I
x+1:TabloConstanteVK(x)\Valeur = #VK_J
x+1:TabloConstanteVK(x)\Valeur = #VK_K
x+1:TabloConstanteVK(x)\Valeur = #VK_L
x+1:TabloConstanteVK(x)\Valeur = #VK_M
x+1:TabloConstanteVK(x)\Valeur = #VK_N
x+1:TabloConstanteVK(x)\Valeur = #VK_O
x+1:TabloConstanteVK(x)\Valeur = #VK_P
x+1:TabloConstanteVK(x)\Valeur = #VK_Q
x+1:TabloConstanteVK(x)\Valeur = #VK_R
x+1:TabloConstanteVK(x)\Valeur = #VK_S
x+1:TabloConstanteVK(x)\Valeur = #VK_T
x+1:TabloConstanteVK(x)\Valeur = #VK_U
x+1:TabloConstanteVK(x)\Valeur = #VK_V
x+1:TabloConstanteVK(x)\Valeur = #VK_W
x+1:TabloConstanteVK(x)\Valeur = #VK_X
x+1:TabloConstanteVK(x)\Valeur = #VK_Y
x+1:TabloConstanteVK(x)\Valeur = #VK_Z
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD0
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD1
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD2
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD3
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD4
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD5
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD6
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD7
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD8
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMPAD9
x+1:TabloConstanteVK(x)\Valeur = #VK_MULTIPLY
x+1:TabloConstanteVK(x)\Valeur = #VK_ADD
x+1:TabloConstanteVK(x)\Valeur = #VK_SEPARATOR
x+1:TabloConstanteVK(x)\Valeur = #VK_SUBTRACT
x+1:TabloConstanteVK(x)\Valeur = #VK_DECIMAL
x+1:TabloConstanteVK(x)\Valeur = #VK_DIVIDE
x+1:TabloConstanteVK(x)\Valeur = #VK_F1
x+1:TabloConstanteVK(x)\Valeur = #VK_F2
x+1:TabloConstanteVK(x)\Valeur = #VK_F3
x+1:TabloConstanteVK(x)\Valeur = #VK_F4
x+1:TabloConstanteVK(x)\Valeur = #VK_F5
x+1:TabloConstanteVK(x)\Valeur = #VK_F6
x+1:TabloConstanteVK(x)\Valeur = #VK_F7
x+1:TabloConstanteVK(x)\Valeur = #VK_F8
x+1:TabloConstanteVK(x)\Valeur = #VK_F9
x+1:TabloConstanteVK(x)\Valeur = #VK_F10
x+1:TabloConstanteVK(x)\Valeur = #VK_F11
x+1:TabloConstanteVK(x)\Valeur = #VK_F12
x+1:TabloConstanteVK(x)\Valeur = #VK_F13
x+1:TabloConstanteVK(x)\Valeur = #VK_F14
x+1:TabloConstanteVK(x)\Valeur = #VK_F15
x+1:TabloConstanteVK(x)\Valeur = #VK_F16
x+1:TabloConstanteVK(x)\Valeur = #VK_F17
x+1:TabloConstanteVK(x)\Valeur = #VK_F18
x+1:TabloConstanteVK(x)\Valeur = #VK_F19
x+1:TabloConstanteVK(x)\Valeur = #VK_F20
x+1:TabloConstanteVK(x)\Valeur = #VK_F21
x+1:TabloConstanteVK(x)\Valeur = #VK_F22
x+1:TabloConstanteVK(x)\Valeur = #VK_F23
x+1:TabloConstanteVK(x)\Valeur = #VK_F24
x+1:TabloConstanteVK(x)\Valeur = #VK_NUMLOCK
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_PLUS
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_COMMA ;  "<"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_MINUS;   "_"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_PERIOD; ">"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_1;      ";"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_2;       "?"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_3;       "~"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_4;      "{"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_5;       "|"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_6;     "}"
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_7;      """
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_8
x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_102;     "/"
;x+1:TabloConstanteVK(x)\Valeur = #VK_ICO_F17
;x+1:TabloConstanteVK(x)\Valeur = #VK_ICO_F18
;x+1:TabloConstanteVK(x)\Valeur = #VK_ICO_HELP
;x+1:TabloConstanteVK(x)\Valeur = #VK_ICO_00
;x+1:TabloConstanteVK(x)\Valeur = #VK_ICO_CLEAR
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_RESET
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_JUMP
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_PA1
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_PA2
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_PA3
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_WSCTRL
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_CUSEL
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_ATTN
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_FINNISH
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_COPY
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_AUTO
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_ENLW
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_BACKTAB
; x+1:TabloConstanteVK(x)\Valeur = #VK_ATTN
; x+1:TabloConstanteVK(x)\Valeur = #VK_CRSEL
; x+1:TabloConstanteVK(x)\Valeur = #VK_EXSEL
; x+1:TabloConstanteVK(x)\Valeur = #VK_EREOF
; x+1:TabloConstanteVK(x)\Valeur = #VK_PLAY
; x+1:TabloConstanteVK(x)\Valeur = #VK_ZOOM
; x+1:TabloConstanteVK(x)\Valeur = #VK_NONAME
; x+1:TabloConstanteVK(x)\Valeur = #VK_PA1
; x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_CLEAR
;x+1:TabloConstanteVK(x)\Valeur = #VK_STARTKEY
;x+1:TabloConstanteVK(x)\Valeur = #VK_CONTEXTKEY
;x+1:TabloConstanteVK(x)\Valeur = #VK_OEM_SCROLL

ReDim TabloConstanteVK(x)  

Enumeration
 #Form0
 #Label0
 #Label1
EndEnumeration

OpenWindow(#Form0, 434, 121, 202, 110, "Give me the Constant_VK", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_TitleBar)
TextGadget(#Label0, 11, 13, 186, 21, "Push a key")
TextGadget(#Label1, 11, 40, 186, 60, "")
    
Repeat 

Evenement = WaitWindowEvent()

Select Evenement

  Case #WM_KEYDOWN 
   
   Evenement = EventwParam()
     
   For i = 1 To ArraySize(TabloConstanteVK())
    
    If Evenement = TabloConstanteVK(i)\Valeur
     Text$ = "EventlParam() = " + Str(EventlParam()) + #CRLF$
     Text$ + "Name = " + TabloConstanteVK(i)\Nom + #CRLF$
     Text$ + "Value = " + Str(TabloConstanteVK(i)\Valeur)
     SetGadgetText(#Label1, Text$)
     Break     
    EndIf 
    
   Next
   
  Case #PB_Event_CloseWindow
   
   Break
    
  EndSelect 

ForEver

kvitaliy · Post by **kvitaliy** » Fri Feb 10, 2012 4:36 pm

Pressing the SHIFT key terminates the program.
PrtScn just not displayed.
WinXP, SP3, PBv4.51

Kwai chang caine · Post by **Kwai chang caine** » Fri Feb 10, 2012 5:16 pm

Thanks kvitaliy

Bug fixed for the terminate, FRED use the SHIFT "16" also for close the #PB_Event_CloseWindow

Fixed also error offset in the array...so i hope

Code above updated

But you have right..impossible to see the PrtScn
I think it's #VK_SNAPSHOT in my code but nothing passed when i press the touch PrtScn

Even with a DEBUG directly after the EventwParam() nothing, also on VISTA ...

kvitaliy · Post by **kvitaliy** » Sat Feb 11, 2012 7:04 am

for the key problems GetAsyncKeyState_?

Code: Select all

...
Repeat
  
  If GetAsyncKeyState_(#VK_SNAPSHOT) = -32767
    Text$ = "EventlParam() = ???" + #CRLF$;+ Str(EventlParam()) 
     Text$ + "Name = " + "#VK_SNAPSHOT"+ #CRLF$
     Text$ + "Value = " + Str(TabloConstanteVK(26)\Valeur)
     SetGadgetText(#Label1, Text$)
   EndIf  
  
Evenement = WaitWindowEvent(10)

Select Evenement
...

PureBasic Forums - English

Know the Constant_VK

Know the Constant_VK

Re: Know the Constant_VK

Re: Know the Constant_VK

Re: Know the Constant_VK