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

**hackoofr** · 01/04/2013, 12h28

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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);
}

**SfJ5Rpw8** · 01/04/2013, 12h42

Bonjour,

pour le "timer" voir :

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

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

**hackoofr** · 02/04/2013, 21h09

et

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

une idée ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

**SfJ5Rpw8** · 02/04/2013, 21h19

Bonsoir,

il faut déclarer la variable refresh

**hackoofr** · 02/04/2013, 21h26

Le Problème est

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

VBScript

Vue hybride

Discussions similaires

Partager

Partager