[VB6] Visualizzare un testo scorrevole

[jigen80]

Ciao a tutti,
sto creando un a piccola applicazione in VB6 ed avrei la necessità di inserire un testo scorrevole in uno dei pannelli della StatusBar. Riesco a farlo con un semplice controllo timer a cui associo la seguente riga di codice

StatusBar1.Panels(1).Text = " " & StatusBar1.Panels(1).Text

Quello che succede è che però il testo da me inserito raggiunta la fine del pannello scompare, mentre quello che vorrei accadesse è che esso si ripeta ciclicamente (tipo i titoli che scorrono in basso al TG2). Come posso fare?!?!?

Vi sarò eternamente grato per ogni tipo di aiuto....

[kalosjo]

Intanto ti conviene farlo scorrere verso sinistra e non verso destra.

Una cosa del genere:

StatusBar1.Panels(1).Text = mid(StatusBar1.Panels(1).Text,2)
if StatusBar1.Panels(1).Text="" then
  StatusBar1.Panels(1).Text=space(20) & testoiniziale
end if

Dove testoiniziale contiene il testo della StatusBar1, e space(20) ho messo 20, ma dimensionalo in modo da vederlo spuntare da destra.

[jigen80]

grazie mille kalosjo
ho provato e funziona alla perfezione...non so proprio come ringraziarti.
a presto

...un alta cosa...vorrei inserire una progressbar all'interno di uno dei pannelli della statusbar ...come posso fare?!? non ne ho la più pallida idea però mi piacerebbe riuscirci (anche perchè sono un'autodidatta quasi alle prime armi) :rollo:
grazie mille ancora e scusa lo stress!!!
CIAO

[alka]

Il linguaggio e la versione vanno indicati nel titolo, come da Regolamento.
Qui ho corretto il titolo io.