Page 1 sur 1
[R] Problème avec GUICtrlCreateList
Posté : mer. 11 févr. 2015 21:33
par sozary
Bonsoir!!
Déjà merci à
timmalos pour son message concernant les multi threads, mais étant donné que je ne connais pas cette notion et que le bac approche à grands pas, je ne souhaites pas m'y aventurer...
Néanmoins, je bloque ailleurs: j'ai créer une liste avec GUICtrlCreateList, seulement quand je l'édite, ça me donne un résultat comme montré sur l'image en annexe: l'ordre d'affiche des messages n'est pas ordonnée de façon à que l'ajout le plus récent soit situé en bas.
Je voudrais donc retrouver l'ordre 1,2,3,4 et 5.
Voici néanmoins à quoi ressemble mon code dans les grandes lignes, sinon je pense que je vais progressivement perdre votre précieuse attention
!
► Afficher le texte
Code : Tout sélectionner
;les includes etc
;déclaration des vars
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Serveur", 724, 532, 353, 284)
GUISetIcon("E:\Projet ISN\Scripts\Serveur partie\console-icone-6104.ico", -1)
GUISetFont(12, 400, 0, "Century Gothic")
Global $Input1 = GUICtrlCreateInput("", 128, 480, 457, 29)
Global $Button1 = GUICtrlCreateButton("EXECUTER", 592, 480, 99, 33)
Global $List1 = GUICtrlCreateList("", 128, 64, 561, 397 ,BitOR($GUI_SS_DEFAULT_LIST,$WS_HSCROLL))
GUICtrlSetFont(-1, 14, 800, 0, "Century Gothic")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
Global $Button2 = GUICtrlCreateButton("Aide", 40, 248, 51, 49)
Global $Label1 = GUICtrlCreateLabel("Console du serveur", 128, 32, 151, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TCPStartup()
$listener = TCPListen($IPAddress,$port,$maxSockets)
GUICtrlSetData($List1,"[SERVEUR "&@HOUR&":"&@MIN&":"&@SEC&"] Tentative de création de socket en "&$port&"...") ;1er cas de figure
If $listener = -1 Then
GUICtrlSetData($List1,@CRLF&"[SERVEUR "&@HOUR&":"&@MIN&":"&@SEC&"] Erreur lors de la création du socket d'écoute : n°" & @error);2eme cas de figure
MsgBox(16,"Erreur","Erreur lors de la création du socket d'écoute : n°" & @error)
TCPCloseSocket($listener)
TCPShutdown()
Else
GUICtrlSetData($List1,"[SERVEUR "&@HOUR&":"&@MIN&":"&@SEC&"] Connection étalie avec succés!");2eme cas de figure
EndIf
While 1
If GUIGetMsg()=$Button1 Then
If GUICtrlRead($Input1)<>"" Then
GUICtrlSetData($List1,'De "'&@IPAddress1&'", '&@HOUR&':'&@MIN&':'&@SEC&' >> '&GUICtrlRead($Input1))
Switch GUICtrlRead($Input1)
Case "Exit"
For $i=5 to 0 Step -1
GUICtrlSetData($List1,GUICtrlRead($List1)&@CRLF&'[SERVEUR "&@HOUR&":"&@MIN&":"&@SEC&"] Le serveur se fermera dans '&$i&' secondes...') ;n eme cas de figure
Sleep(1000)
Next
_Exit()
EndSwitch
EndIf
EndIf
;reste du prog
WEnd
Re: [..] Problème avec GUICtrlCreateList
Posté : mer. 11 févr. 2015 21:41
par mikell
Par hasard, ça serait pas à cause du style $LBS_SORT (présent dans le style par défaut) ?
Re: [..] Problème avec GUICtrlCreateList
Posté : mer. 11 févr. 2015 22:26
par sozary
L'erreur bête
!
Merci!!