Est-ce un bug ? ou c'est moi qui déconne (une fois de plus)
Publié : lun. 22/oct./2012 10:45
Désolé pour le sujet .. je ne savais vraiment pas quoi mettre.
Je m'explique.J'ai besoin d'une application en plein écran, qui puisse lancer une autre application et revenir dans son état initiale.
Voici un code simplifié:
application normal vous pouvez bouger la souris. Un clic de souris et sa lance la calculette (c'est juste pour la demo)
Si vous fermez la calculette ça doit revenir a l'application en plein ecran...
Et là je ne sais pas pourquoi c'est comme si le bouton de la souris était toujours appuyé ... résultat ça boucle a l'infinie sur la calculette..
Quelqu'un a une idée ?
PS: J'en parle aussi le forum anglais .. http://www.purebasic.fr/english/viewtop ... =4&t=51830
Je m'explique.J'ai besoin d'une application en plein écran, qui puisse lancer une autre application et revenir dans son état initiale.
Voici un code simplifié:
application normal vous pouvez bouger la souris. Un clic de souris et sa lance la calculette (c'est juste pour la demo)
Si vous fermez la calculette ça doit revenir a l'application en plein ecran...
Et là je ne sais pas pourquoi c'est comme si le bouton de la souris était toujours appuyé ... résultat ça boucle a l'infinie sur la calculette..
Quelqu'un a une idée ?
PS: J'en parle aussi le forum anglais .. http://www.purebasic.fr/english/viewtop ... =4&t=51830
Code : Tout sélectionner
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
MessageRequester("Error", "Can't open the sprite system", 0)
End
EndIf
Repeat
ExamineDesktops()
OpenScreen(DesktopWidth(0), DesktopHeight(0), DesktopDepth(0),"test")
Launch=#False
Repeat
;
ExamineMouse()
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape): End : EndIf
If MouseButton(#PB_MouseButton_Left) And Launch=#False
Launch=#True
EndIf
ClearScreen(RGB(0,0,0))
StartDrawing(ScreenOutput())
Circle(MouseX(),MouseY(),24,#Red)
StopDrawing()
FlipBuffers() ; Inverse the buffers (the back become the front (visible)... and we can do the rendering on the back
Until Launch=#True
CloseScreen()
RunProgram("calc.exe","","",#PB_Program_Wait)
Delay(500)
ForEver
