[R] Deux fenetres

XcessiV · #1

Bonsoir.

Je voulais savoir si il était possible, lors d'un clic sur un bouton, qu'une seconde et voir une troisieme fenetre s'ouvre...

Si oui, pourriez vous me montrer un exemple, j'ai un peu de mal avec les commandes pour que le soft reste ouvert jusqu'à une interuption...

Merci

saltan · #2

Je n'ai pas bien compris ta question...

Tu veux que, dans une GUI, lorsque l'utilisateur clic sur un bouton, une autre fenetre GUI s'ouvre ?

#3

Si ça peut aider :

Code : Tout sélectionner

#include <guiconstants.au3>

$gui1=GUICreate("msgbox1",200,100,-1,-1)
GUICtrlCreateLabel("le blabla",10,10,100)
$gui2=GUICreate("msgbox2",200,100,90,200)
GUICtrlCreateLabel("Leblabla2",10,10,100)
GUISetState(@SW_SHOW,$gui1)
GUISetState(@SW_SHOW,$gui2)
while 1
$msg = GUIGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

Et

Code : Tout sélectionner

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)  ; Change to OnEvent mode 
$mainwindow = GUICreate("Hello World", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateLabel("Hello world! How are you?", 30, 10)
$okbutton = GUICtrlCreateButton("OK", 70, 50, 60)
GUICtrlSetOnEvent($okbutton, "OKButton")

$dummywindow = GUICreate("Dummy window for testing ", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

GUISwitch($mainwindow)
GUISetState(@SW_SHOW)

While 1
  Sleep(1000)  ; Idle around
WEnd

Func OKButton()
  ;Note: at this point @GUI_CTRLID would equal $okbutton
  MsgBox(0, "GUI Event", "You pressed OK!")
EndFunc

Func CLOSEClicked()
  ;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
  ;@GUI_WINHANDLE will be either $mainwindow or $dummywindow
  If @GUI_WINHANDLE = $mainwindow Then 
    MsgBox(0, "GUI Event", "You clicked CLOSE in the main window! Exiting...")
    Exit
  EndIf 
EndFunc

XcessiV · #4

Les variables ne s'exportent pas d'une fenetre à l'autre ?

J'ai une variable initialisée sur ma fenetre principale dont je voudrais faire usage sur la seconde. Or, elle apparait comme vide...

saltan · #5

Si bien, sur puisque les variables sont interne a ton programme, et non interne a la fenêtre.

Le problème vient peut-être du fait que tu les enregistre mal.

Pour enregistrer une variable, moi j'utilise ceci:

Code : Tout sélectionner

While 1
           $msg = GUIGetMsg()
           Select
            Case $msg = $GUI_EVENT_CLOSE
                 Exit
             Case $msg = $rez800
                 $rez=800
             Case $msg = $rez1052
                 $rez=1052
             Case $msg = $rez1200
                 $rez=1200
           EndSelect
       WEnd

Tu comprends ce que je veux dire ?

XcessiV · #6

merci, j'ai trouvé :p
je ne suis pas codeur pour un sous, je suis donc très mal organisé ^^