Quel est le code de la touche MAJ (au dessus de shift gauche) ?
KeyboardPushed(#PB_Key_Capital) ?
je capte pas =/
marche sur un pc et pas sur l'autre !!
PB_Key_Capital
PB_Key_Capital
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Re: PB_Key_Capital
Théorie :
Tout dépend ce que tu veux faire.
Sur certain portables, la touche maj pour activer certains caractères est remplacé par Fn.
Tu peux nous en dire plus sur tes "différents pc"
Tout dépend ce que tu veux faire.
Sur certain portables, la touche maj pour activer certains caractères est remplacé par Fn.
Tu peux nous en dire plus sur tes "différents pc"
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Re: PB_Key_Capital
Code : Tout sélectionner
Touche.S = KeyboardInkey()
If KeyboardPushed(#PB_Key_LeftShift) Or KeyboardPushed(#PB_Key_RightShift) Or KeyboardPushed(#PB_Key_Capital); 07/2018
Touche = UCase(Touche)
EndIf
Sur mon i7, ca reste minuscule...
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Re: PB_Key_Capital
Essaye l'exemple de PB sur tes 2 ordis
Ici les maj sont (logiquement) automatiquement détecté. Je vois pas comment tu goupilles un code nécessitant KeyboardPushed(#PB_Key_LeftShift) pour mettre des maj.
Ici les maj sont (logiquement) automatiquement détecté. Je vois pas comment tu goupilles un code nécessitant KeyboardPushed(#PB_Key_LeftShift) pour mettre des maj.
Code : Tout sélectionner
If InitSprite() And InitKeyboard() And OpenScreen(800,600,32,"")
Repeat
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
ExamineKeyboard()
; Efface le dernier caractère si la touche 'Back' est appuyée
;
If KeyboardReleased(#PB_Key_Back)
FullText$ = Left(FullText$, Len(FullText$)-1)
Else
resultat$=KeyboardInkey()
If FindString("1234567890 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzéèçàù", resultat$) ; Ajouter vos propres caractères valides ici
FullText$ + resultat$
EndIf ; Ajouter le nouveau texte à l'actuel (le cas échéant)
EndIf
; Affiche le résultat
;
If StartDrawing(ScreenOutput())
DrawingMode(1)
FrontColor(RGB(128, 255, 0))
DrawText(20, 20, "Ecrivez un petit texte...:")
DrawText(20, 40, FullText$)
StopDrawing()
EndIf
Until KeyboardPushed(#PB_Key_Escape)
EndIf
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels