[R] GuiCtrlCreateList je n'arrive pas à envoyer les données

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
Avatar du membre
Ks10
Niveau 6
Niveau 6
Messages : 282
Enregistré le : mer. 25 avr. 2012 20:38
Status : Hors ligne

[R] GuiCtrlCreateList je n'arrive pas à envoyer les données

#1

Message par Ks10 »

Bonjour,

J'aimerais créer un petit programme qui me permet d'entrer des données et de les conserver dans une Liste qui a pour but d'être consulter régulièrement.

Cependant je n'arrive pas à faire en sorte que les données saisie sont envoyer dans la liste.

Voici mon code :

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $data
Global $Form1 = GUICreate("MyIntervention", 620, 441, 192, 124)
Global $List1 = GUICtrlCreateList("", 0, 0, 617, 409)
Global $Input1 = GUICtrlCreateInput($data, 5, 416, 540, 21)
Global $button1 = GUICtrlCreateButton("Send", 550, 416, 65, 22)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###






While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg

        Case $button1
            If GuictrlRead($Input1) = $data Then
                MsgBox(0, "test", "test")
            EndIf




  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd
 
La msgbox ici sert uniquement de test pour voir si le programme arrive bien à lire ce que j'écrit dans le input lorsque je clique sur "send" mais apparemment il ne lit même pas ce que j'entre dans le input.

Pouvez m'éclairer et m'expliquer le fonctionnement des commandes qui me permettrait de réaliser ce petit soft ?

Cordialement Ks10
Modifié en dernier par Ks10 le jeu. 24 janv. 2013 11:27, modifié 2 fois.
Avatar du membre
Yogui
Niveau 9
Niveau 9
Messages : 689
Enregistré le : ven. 18 avr. 2008 17:29
Status : Hors ligne

Re: [..] GuiCtrlCreateList je n'arrive pas à envoyer les don

#2

Message par Yogui »

Bonjour,

DAns votre code :

Case $button1
If GuictrlRead($Input1) = $data Then
MsgBox(0, "test", "test")
EndIf

$data est déclaré mais vide donc votre condition ne peux être juste votre msgbox ne peux pas s'afficher.

j'ai corriger votre code si dessou (en laissant la msgbox mais en supprimant la condition)

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $data
Global $Form1 = GUICreate("MyIntervention - GESA", 620, 441, 192, 124)
Global $List1 = GUICtrlCreateList("", 0, 0, 617, 409)
Global $Input1 = GUICtrlCreateInput($data, 5, 416, 540, 21)
Global $button1 = GUICtrlCreateButton("Send", 550, 416, 65, 22)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg

            Case $button1

                MsgBox(0, "test", GuictrlRead($Input1))
                GUICtrlSetData($List1,GuictrlRead($Input1))
                GUICtrlSetData($Input1,'')


  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd
Avatar du membre
Ks10
Niveau 6
Niveau 6
Messages : 282
Enregistré le : mer. 25 avr. 2012 20:38
Status : Hors ligne

Re: [..] GuiCtrlCreateList je n'arrive pas à envoyer les don

#3

Message par Ks10 »

Merci =)
Répondre