IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

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


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut Défiler du texte dans la barre de titre dans un HTA

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

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Bonjour,

    pour le "timer" voir :

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

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

  3. #3
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    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>

  4. #4
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Bonsoir,

    il faut déclarer la variable refresh

  5. #5
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    Le Problème est

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Afficher un texte dans la barre d'adresse dans charger l'URL
    Par d.w.d dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 12/04/2006, 11h14
  2. Icone ne s'affichant pas dans la barre de titre
    Par Spartan03 dans le forum Windows
    Réponses: 22
    Dernier message: 05/11/2005, 14h57
  3. Ajouter une icone dans la barre des titres (cme emule)
    Par Crisanar dans le forum Windows
    Réponses: 7
    Dernier message: 12/12/2004, 12h08
  4. affichage de fps dans la barre de titre
    Par khayyam90 dans le forum OpenGL
    Réponses: 19
    Dernier message: 02/07/2004, 11h56
  5. Icône dans la barre de titre
    Par Sephi dans le forum MFC
    Réponses: 7
    Dernier message: 28/10/2003, 17h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo