Page 1 sur 1
[Ex] Titre d'une Gui Animé
Posté : ven. 26 févr. 2010 13:34
par Narmeke
Bonjours,
Voici un script qui permet d'avoir le titre d'une de vos gui animé
Le script est loin d'être parfait je m'en doute
, mais c'est surtout pour donner des idée
Pour ma part je pense qu'il serait plus adapté pour le mode événementielle...
► Afficher le texte
Code : Tout sélectionner
[strike]#include <ButtonConstants.au3>[/strike]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Texte = ""
$Form1 = GUICreate($Texte, 200, 200, 376, 260)
GUISetState(@SW_SHOW)
$Activation = 1
$i = 0
While 1
_TITLE_ANIM()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$i = $i + 1 ;On incrémente !
WEnd
Func _TITLE_ANIM()
If $Activation = 1 Then
If $i = 1 Then
WinSetTitle ($Texte, "", "B" )
Sleep(100)
EndIf
If $i = 2 Then
WinSetTitle ($Texte, "", "By" )
Sleep(100)
EndIf
If $i = 3 Then
WinSetTitle ($Texte, "", "By " )
Sleep(100)
EndIf
If $i = 4 Then
WinSetTitle ($Texte, "", "By N" )
Sleep(100)
EndIf
If $i = 5 Then
WinSetTitle ($Texte, "", "By Na" )
Sleep(100)
EndIf
If $i = 6 Then
WinSetTitle ($Texte, "", "By Nar" )
Sleep(100)
EndIf
If $i = 7 Then
WinSetTitle ($Texte, "", "By Narm" )
Sleep(100)
EndIf
If $i = 8 Then
WinSetTitle ($Texte, "", "By Narme" )
Sleep(100)
EndIf
If $i = 9 Then
WinSetTitle ($Texte, "", "By Narmek" )
Sleep(100)
EndIf
If $i = 10 Then
WinSetTitle ($Texte, "", "By Narmeke" )
Sleep(100)
EndIf
If $i = 11 Then
WinSetTitle ($Texte, "", "Une GUI animé !!" )
$i = 0
Sleep(100)
EndIf
EndIf
EndFunc ;==>__TITLE_ANIM()
Si vous voulez vous pouvez poster vos améliorations du script
Re: [Ex] Titre d'une Gui Animé
Posté : ven. 26 févr. 2010 14:41
par Tlem
Comme je l'ai déjà expliqué, AutoIt est là pour simplifier les tâches répétitives, par pour les compliquer ...
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
Global $Texte = "", $sTitre = "Ceci est un titre 'annimé'"
AdlibRegister("_Titre_ANIM", 200)
$Form1 = GUICreate($Texte, 300, 200, 376, 260)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Titre_ANIM()
$i = StringLen(WinGetTitle($Form1)) + 1
WinSetTitle($Form1, "", WinGetTitle($Form1) & StringMid($sTitre, $i ,1))
If $i > StringLen($sTitre) Then
WinSetTitle($Form1, "", "")
Sleep(500)
EndIf
EndFunc
De plus, il me semble bien qu'il existe déjà un UDF capable de gérer le texte de divers contrôles. Il permet de faire défiler le texte dans tous les sens et plus encore ...
En cherchant sur le forum, trouverez surement.
Re: [Ex] Titre d'une Gui Animé
Posté : ven. 26 févr. 2010 16:27
par Narmeke
Effectivement, vous aviez une fois de plus raison
En cherchant on trouve !
Mais j'aime bien votre exemple.
Re: [Ex] Titre d'une Gui Animé
Posté : lun. 24 janv. 2011 17:15
par TommyDDR
Arf, j'aurai peut être du lire les réponses avant de me lancer dedent ^^
Bref : Voila ma version ^^'
► Afficher le textecode
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $Titre = "Voila un titre..."
Global $Compteur = 0
Global $Form1
$Form1 = GUICreate("", 300, 200, 376, 260)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetState(@SW_SHOW)
AdlibRegister("_TITLE_ANIM", 50)
While(True)
Sleep(10)
WEnd
Func _TITLE_ANIM()
$Compteur += 1
WinSetTitle($Form1, "", StringLeft($Titre, $Compteur))
If($Compteur >= StringLen($Titre)) Then
$Compteur = 0
EndIf
EndFunc ;==>__TITLE_ANIM()
Func quit()
Exit
EndFunc