Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Déplacer un bouton
Auteur Message
Répondre en citant
Message Déplacer un bouton 
Bonjour,
Je débute sur AutoIt et j'aimerai faire qu'un de mes bouton se déplace en même temps que ma souris. Soit qu'il reste en dessous et que je ne puisse pas cliquer à côté.
J'ai un deuxième problème, j'aimerai à l'inverse, qu'un de mes bouton fuie la souris, c'est à dire qu'il se déplace aléatoirement lorsque ma souris s'en rapproche trop.
Est-il possible de réaliser cela ? Si oui avez-vous un lien pour m'aider ou alors un bout de code ?
Voila le code : http://www.sendspace.com/file/j3xfbd
Merci beaucoup.
Martin Pahud



Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Déplacer un bouton 
Un petit exemple que je t'ai fait rapidos qui va te passer l'idée :

Code:


#include <GUIConstantsEx.au3>


Global $Width = 800
Global $Height = 800


$MyGUI = GUICreate('Button', $Width, $Height)
$Button = GUICtrlCreateButton('Button', 50, 50, 50, 30)
GUISetState()


While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then
        Exit
    EndIf

    $apos = MouseGetPos()
    consolewrite($apos[0]& @CRLF & $apos[1] & @CRLF)
    if $apos[0] >= 300 Then GUICtrlSetPos($Button, $aPos[0] - 10, $aPos[1] - 10)


WEnd



Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message Re: Déplacer un bouton 
Salut, tiens voila un exemple:

Code:
#Include <WindowsConstants.au3>
#Include <WinAPI.au3>

$Gui = GUICreate("", @DesktopWidth+100, @DesktopHeight+100, -50, -50, -1, $WS_EX_LAYERED)
GUISetBkColor(0x0000F4)
_WinAPI_SetLayeredWindowAttributes($Gui, 0x0000F4)

$Button1 = GUICtrlCreateButton('/!\ NE TOUCHE PAS A CE BOUTON /!\', 50, 50, 250, 50)
$Button2 = GUICtrlCreateButton('>> APPUYE SUR CE BOUTON <<', 50, 50, 250, 50)

GUISetState(@SW_SHOW)

While 1

   $MousePos = MouseGetPos()
   GUICtrlSetPos($Button1, $MousePos[0]-80, $MousePos[1])
   GUICtrlSetPos($Button2, $MousePos[0]+100, $MousePos[1]+100)
   
   Switch GUIGetMsg()

      Case -3
         Exit
         
      Case $Button1
         Run("cmd /c start https://media.giphy.com/media/nv99yd56AMNDa/giphy.gif", "", @SW_HIDE)
         Exit
         
      Case $Button2
         Run("cmd /c start https://media.giphy.com/media/7rj2ZgttvgomY/giphy.gif", "", @SW_HIDE)
         Exit

   EndSwitch

WEnd





______________________________________________________
C:\Ma chaine Youtube_
 
D:\Mon forum_
 
Répondre en citant
Message Re: Déplacer un bouton 
TheRake66 a écrit:
Salut, tiens voila un exemple:

Code:
#Include <WindowsConstants.au3>
#Include <WinAPI.au3>

$Gui = GUICreate("", @DesktopWidth+100, @DesktopHeight+100, -50, -50, -1, $WS_EX_LAYERED)
GUISetBkColor(0x0000F4)
_WinAPI_SetLayeredWindowAttributes($Gui, 0x0000F4)

$Button1 = GUICtrlCreateButton('/!\ NE TOUCHE PAS A CE BOUTON /!\', 50, 50, 250, 50)
$Button2 = GUICtrlCreateButton('>> APPUYE SUR CE BOUTON <<', 50, 50, 250, 50)

GUISetState(@SW_SHOW)

While 1

   $MousePos = MouseGetPos()
   GUICtrlSetPos($Button1, $MousePos[0]-80, $MousePos[1])
   GUICtrlSetPos($Button2, $MousePos[0]+100, $MousePos[1]+100)
   
   Switch GUIGetMsg()

      Case -3
         Exit
         
      Case $Button1
         Run("cmd /c start https://media.giphy.com/media/nv99yd56AMNDa/giphy.gif", "", @SW_HIDE)
         Exit
         
      Case $Button2
         Run("cmd /c start https://media.giphy.com/media/7rj2ZgttvgomY/giphy.gif", "", @SW_HIDE)
         Exit

   EndSwitch

WEnd


Merci beaucoup, j'ai adapté ton code à mon application !!



Message Déplacer un bouton 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch