Défiler du texte dans la barre de titre dans un HTA

:salut:
Je cheche un équivalent de cette fonction écrite en Javascript par un Vbscript si c'est possible, pour faire défiler du texte dans la barre de titre dans un HTA
Code:

1 2 3 4 5 function scroll_title() { document.title=txt; txt=txt.substring(1,txt.length)+txt.charAt(0) refresh=setTimeout("scroll_title()",vitesse); }
:merci:

Bonjour,

pour le "timer" voir :

http://bbil.developpez.com/tutoriel/...ce-hta/#LIII-J

pour substring .. tu as la fonction Mid...;)

:salut: et :merci: bbil pour votre assistance, alors j'ai réussi à 90% en ce stade là, mais il me reste un petit truc dans le bouton stop c'est que le timer ne veut pas se stopper :koi: une idée ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
<html>
<HTA:APPLICATION 
APPLICATIONNAME = "Scrolling the Title bar"
SINGLEINSTANCE = "yes"
ICON = "radio.ico" 
SCROLL = "no"
MAXIMIZEBUTTON = "no"
SELECTION = "no"
CONTEXTMENU = "no"
BORDER = "thin"
INNERBORDER = "no"
SYSMENU="no"
></HTA:APPLICATION>
<title>Salut ! comment allez-vous ? Voici une démonstration pour faire défiler la barre de titre ! (^_^)</title>
<head>
<script language="vbscript">
VBtxt="Salut ! comment allez-vous ? Voici une démonstration pour faire défiler la barre de titre ! (^_^) "
VBvitesse="150"
 
Sub Window_OnLoad()
    CenterWindow 380,380    
End sub
 
Sub CenterWindow(x,y)
    window.resizeTo x, y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft, itop
End Sub
 
Function VBScroll_Title()
Document.title=vbtxt 
vbtxt=mid(vbtxt,2,len(vbtxt)) & left(vbtxt,1)
End Function
 
Sub Fermer()
Question = MsgBox("Voulez-vous Fermer cette Application ?",VBYesNO+VbQuestion,"Fermeture de l'application")
If Question = VbYes Then
Window.close
Else
    Exit Sub
End If
End Sub
 
Sub bpStop_OnClick 
Clear=ClearInterval(refresh)
Document.title="Hackoo"
End Sub
 
Sub Start()
refresh=setInterval("VBscroll_title()",VBvitesse,"Vbscript")
End Sub
</script>
</head>
<body style="cursor:hand;" ondblclick="Fermer()" Title=" 2 Double clics pour fermer l'application">
<center><input type="button" value="Start Scroll" OnClick="Start()">
<input type="button" name="bpStop" value="Stop Scroll">
</body>
</html>

Bonsoir,

il faut déclarer la variable refresh ;)

Le Problème est :resolu: :king: