Forums PureBasic - Français
https://www.purebasic.fr/french/
Code : Tout sélectionner
Procedure Thread(Argument)
Define.RECT Zone
Define.POINT Coord
Repeat
If GetAsyncKeyState_(#VK_LBUTTON)
GetWindowRect_(GadgetID(1),Zone.RECT)
GetCursorPos_(Coord.POINT)
If PtInRect_(Zone,Coord\y<<32 + Coord\x)=#True
SetGadgetText(2,"Survol Bouton droit appuyé")
Else
SetGadgetText(2,"")
EndIf
EndIf
Delay(100)
ForEver
EndProcedure
If OpenWindow(0,0,0,200,80,"Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(1,10,10,180,24,"Bouton",0)
TextGadget(2,10,40,180,24,"",0)
CreateThread(@Thread(),0)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code : Tout sélectionner
Global CallbackBouton
Procedure Fc_CallbackBouton(ArgHWnd,ArgMessage,ArgWParam,ArgLParam)
Select ArgMessage
Case #WM_MOUSEMOVE
If GetAsyncKeyState_(#VK_LBUTTON)=32769
Debug "Ok"
EndIf
EndSelect
ProcedureReturn CallWindowProc_(CallbackBouton,ArgHWnd,ArgMessage,ArgWParam,ArgLParam)
EndProcedure
If OpenWindow(0,0,0,200,80,"Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(1,10,10,180,24,"Bouton",0)
CallbackBouton=SetWindowLongPtr_(GadgetID(1),#GWL_WNDPROC,@Fc_CallbackBouton())
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
J'essaie d'être plus clair :
Par exemple avec ce code (basé sur l'exemple de l'aide de pb pour ButtonImageGadget):SPH a écrit :
Non... Un code serait plus parlant
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 200, 120, "ButtonImageGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If LoadImage(0, #PB_Compiler_Home + "/Examples/Sources/Data/PureBasic.bmp") ; image de l'exemple de l'aide de Pb
ButtonImageGadget(0, 10, 10, 180, 40, ImageID(0))
EndIf
Repeat :
Event = WaitWindowEvent() ; exemple-test : on affiche un message et c'est tout.
Select Event
Case #PB_Event_Gadget
MessageRequester( "Exemple", "bouton")
EndSelect
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
C'est que tu utilises la version démo de PureBasic. RECT., #WM_MOUSEMOVE et des tas d'autres choses, sont des API propre aux systeme d'exploitation de Windows. La version de démonstration de PureBasic ne gère pas les API. Il faut contracter une licence. Cette licence est à vie, mise à jour comprise. De plus ça aide le développeur qui propulse ce langage.Stan_fr a écrit : lun. 27/mars/2023 14:02 @ boddhi
Désolé mais ça ne marche pas, chez moi ?
La première donne à la compilation une erreur :
[13:08:47] [COMPILER] Line 2: Structure not found: RECT.
La deuxième donne :
[13:06:31] [COMPILER] Line 5: Constant not found: #WM_MOUSEMOVE.
79 Euros pour une licence à vie ça se trouve ici https://www.purebasic.com/french/pricing.php
Non mais quel idée de vouloir quitter un gadget en maintenant le clique gauche de la souris ? Quel est l'objectif ?Stan_fr a écrit : lun. 27/mars/2023 14:02 par contre si "j'entre" (je le survole ?) dessus avec le bouton déjà baissé il ne réagit pas, idem si je clique sur le gadget et que j'en "sors" en maintenant le bouton baissé le click n'est pas pris en compte !
L'objectif est de faire un programme qui remplisse les mêmes fonctions* que celui-ci qui nécessite une connexion pour fonctionner :falsam a écrit : lun. 27/mars/2023 14:46C'est que tu utilises la version démo de PureBasic. RECT., #WM_MOUSEMOVE et des tas d'autres choses, sont des API propre aux systeme d'exploitation de Windows. La version de démonstration de PureBasic ne gère pas les API. Il faut contracter une licence. Cette licence est à vie, mise à jour comprise. De plus ça aide le développeur qui propulse ce langage.Stan_fr a écrit : lun. 27/mars/2023 14:02 @ boddhi
Désolé mais ça ne marche pas, chez moi ?
La première donne à la compilation une erreur :
[13:08:47] [COMPILER] Line 2: Structure not found: RECT.
La deuxième donne :
[13:06:31] [COMPILER] Line 5: Constant not found: #WM_MOUSEMOVE.
A consommer sans modération.
FAIT ET EFFECTIVEMENT ÇA MARCHE
■ La question aussi sotte que grenuNon mais quel idée de vouloir quitter un gadget en maintenant le clique gauche de la souris ? Quel est l'objectif ?Stan_fr a écrit : lun. 27/mars/2023 14:02 par contre si "j'entre" (je le survole ?) dessus avec le bouton déjà baissé il ne réagit pas, idem si je clique sur le gadget et que j'en "sors" en maintenant le bouton baissé le click n'est pas pris en compte !
Ce que tu souhaites ne sera pas faisable 1) avec la version démo et 2) avec les commandes natives de PBfalsam a écrit : C'est que tu utilises la version démo de PureBasic. RECT., #WM_MOUSEMOVE et des tas d'autres choses, sont des API propre aux systeme d'exploitation de Windows. La version de démonstration de PureBasic ne gère pas les API. Il faut contracter une licence. Cette licence est à vie, mise à jour comprise. De plus ça aide le développeur qui propulse ce langage.
Oui, j'ai compris : j'ai maintenant une version avec licence et tes exemples fonctionnent !boddhi a écrit : lun. 27/mars/2023 16:39 Les deux exemples fonctionneront si et seulement si :
1) Ton code tourne sous Windows
2)Ce que tu souhaites ne sera pas faisable 1) avec la version démo et 2) avec les commandes natives de PBfalsam a écrit : C'est que tu utilises la version démo de PureBasic. RECT., #WM_MOUSEMOVE et des tas d'autres choses, sont des API propre aux systeme d'exploitation de Windows. La version de démonstration de PureBasic ne gère pas les API. Il faut contracter une licence. Cette licence est à vie, mise à jour comprise. De plus ça aide le développeur qui propulse ce langage.
OK MERCI !falsam a écrit : lun. 27/mars/2023 18:27 Mise en oeuvre des API Windows avec PureBasic.
https://www.rsbasic.de/winapi-library/
Oui, mais un maçon a le droit d'utiliser un perforateur avec des avec des outils sds, si ça lui permet de mieux bosser...boddhi a écrit : Un maçon commence toujours par construire de petits pans de murs avant de s'attaquer à la construction d'une maison
