Texte défilant sans limitation ?

Question

Bonjour &#224; tous, Je code en VB6.



Je souhaiterais faire d&#233;filer un texte provenant d'une fichier (txt),
pouvant &#233;volu&#233;, le simplement du monde dans un label ou un textbox,
sans boucle.



Je suis limit&#233; dans le nombre de carract&#232;re malgr&#233; l'option WordWrap sur True.



Avez-vous une id&#233;e ?

econs · Answer

Sans boucle ?

Quel int&#233;r&#234;t ?

Tu peux toujours utiliser un objet Webbrowser, et coder une page HTML en local avec le tag <marquee>

Toi, tu n'auras pas ins&#233;r&#233; de boucle dans ton code, mais bon ... c'est ton webbrowser qui en utilise une &#224; ton insu.

Manu

econs · Answer

Oups, j'ai oubli&#233; qu'en utilisant un Timer, il n'y avait pas de boucle ...





Private Sub Timer1_Timer()

    sTemp = Label1.Caption

    Label1.Caption = Right$(sTemp) & Left$(sTemp,Len(sTemp)-1)

End Sub




avec, au pr&#233;alable, Label1.Caption = "ton texte              "






Manu

by2k · Answer

Merci manu pour ta r&#233;ponse.

Je dois faire tourner cette appli sur des toutes petites configuration,
le fait de mettre une boucle me d&#233;clanche une suractivit&#233; du CPU et de
fait du ventilateur, c'est peut &#234;tre idiot &#224; dire, mais plusieurs PC
dont le bruit du ventilateur se d&#233;cuple, cela deviens vite intenable.



De toute fa&#231;on , ton code ne fonctionne pas.



Je vais errer parmis les kilometres de code disponible sur le net, je finirais bien par trouver mon bonheur.



+++++

rvblog · Answer

Salut 237896 by2k, salut =100635 econs, c'est vrai qu'il ne marche pas, mais bon, tu codes en VB? Il manque juste un 1 dans l'appel de right ! Moi, personnellement, je salue la sobriété efficace de la réponse ! Pour ceux qui ne codent pas tous les jours en VB, ça donnerais : Label1.Caption = Right$(sTemp ,1 ) & Left$(sTemp,Len(sTemp)-1) on peut tous en prendre de la graine, car ton défi n'est pas simple (1%CPU, 16Ko, pas de boucle). Ensuite, on peut le transposer à ton fichier texte assez facilement, mais tu codes vraiment en VB? Bon ben sinon (3%CPU, 56Ko, pas de boucle), toujours avec un label et un timer sur ton formulaire, colles ce code : Private intNoFile As Integer Private Sub Form_Load() 'ouverture du fichier, en binaire, lecture par caractère intNoFile = FreeFile Open App.Path & "\fichier.txt" For Binary As #intNoFile 'reglage du formulaire et de ses composants With Me .Caption = "" .Width = 3015 .Height = 330 * 2 'l'étiquette With .Label1 .Caption = String(20, " ") .Left = 0 .Top = 0 .Width = 3015 .Height = 330 .FontName = "Courier" .FontSize = 12 .FontBold = True End With 'le timer With .Timer1 .Interval = 150 .Enabled = True End With End With End Sub Private Sub Form_Unload(Cancel As Integer) 'fermeture du fichier Close #intNoFile End Sub Private Sub Timer1_Timer() Dim charTemp As Byte 'tampon de traitement de texte sTemp = Label1.Caption 'si le fichier n'est pas fini If Not EOF(intNoFile) Then 'lit un caractère Get #intNoFile, , charTemp 'dépolue charTemp = Replace(charTemp, vbCr, " ") charTemp = Replace(charTemp, vbLf, " ") 'sinon, si le fichier est fini Else 'termine aux espaces charTemp = Asc(" ") 'fin si le fichier est fini ou non End If 'décalage à gauche, plus facile pour le français :) Label1.Caption = Right$(sTemp, Len(sTemp) - 1) & Chr(charTemp) End Sub Alors? à+ rvblogn^{Je veux ton bien... et je l'aurais}

Texte défilant sans limitation ?

4 réponses

Discussions similaires