Newsgroup: it.comp.lang.visual-basic
Titolo: Testo scorrevole!

Ciao a tutti.
vorrei visualizzare del testo scorrevole, come posso fare!
Scusate se la domanda č stupida, ma non sono molto pratico di VB.
Grazie.
Andrea

 wrote in message 85ssf9$o...@dante.italia.com...


Se intendi un testo scorrevole del tipo l'applet applicata ai browser nella
status bar allora penso che dovresti fare una cosa del genere..
dimensionare la textbox  correttamente verificando il n° di caratteri che si
riescono a visualizzare, poi da dx a sx
prelevi dalla stringa in un ciclo for l'ultimo carattere e l'assegni al
textbox,
dopo di che prelevi il penultimo carattere e
txtscorr=varultcar & txtscorr
e cosi via , mi sa che l'effetto va un pò schifo e non oso nemmeno
provarlo....
però l'idea che ti suggerisco penso possa averti dato qualche spunto ( per
quello che ne so io adesso...)
Ciao
--
 
we...@tiscalinet.it

 vorrei visualizzare del testo scorrevole, come posso fare!
Non ho tempo di mandarti un esempio didattico, perciò copio/incollo da un
progetto che ho sottomano.
Metti questa roba in un form con una Picture che si chiama P1 ed un timer
che si chiama Timer1.
La form da cui l'ho presa aveva la Picture P1 con sfondo Nero.
'----------------------------------------
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x
As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal
hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long)
As Long
'Coordinates
Dim thetop As Long
Dim oldthetop As Long
Dim p1hgt As Long
Dim p1wid As Long
Dim theleft As Long
Dim counter As Integer
Const Linenumber As Integer = 21
Dim Tempstring(Linenumber) As String
Sub Form_Load()
ScaleMode = 3
P1.Height = (Linenumber * P1.TextHeight("Test Height")) + 200
Tempstring(0) = "RC4 Speed 2.0t File Encryptor"
Tempstring(1) = "written by"
Tempstring(2) = "
fu...@gmx.de
" & vbCrLf
Tempstring(3) = "" & vbCrLf
Tempstring(5) = "Please send me your comments..."
Tempstring(6) = " "
Tempstring(7) = " "
Tempstring(8) = ""
Tempstring(9) = "Greetings:"
Tempstring(10) = "Network Revelation"
Tempstring(11) = "Julius 'da Punka' Otto"
Tempstring(12) = "Daniel 'da Stinka' Frinker" & vbCrLf
Tempstring(13) = " "
Tempstring(14) = "Credits:"
Tempstring(15) = "Luis Cantero"
Tempstring(16) = "
www.vbthunder.com
"
Tempstring(17) = "
www.planet-source-code.com
"
Tempstring(18) = " "
Tempstring(19) = " "
Tempstring(20) = "SECRET SOURCE CODE PASSWORD IS:"
Tempstring(21) = "freewareisfreeware"
For counter = 0 To Linenumber
    PrintText Tempstring(counter)
Next counter
theleft = 0
thetop = ScaleHeight
oldthetop = ScaleHeight
p1hgt = P1.ScaleHeight
p1wid = P1.ScaleWidth
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Sub Timer1_Timer()
x% = BitBlt(hDC, theleft, thetop, p1wid, p1hgt, P1.hDC, 0, 0, &HCC0020)
thetop = thetop - 1
'Resets all Settings
If thetop < -p1hgt Then
    thetop = oldthetop
End If
End Sub
'Center Text
Sub PrintText(Text As String)
P1.CurrentX = (P1.ScaleWidth / 2) - (P1.TextWidth(Text) / 2)
P1.ForeColor = 0: x = P1.CurrentX: y = P1.CurrentY
For i = 1 To 3
    P1.Print Text
    x = x + 1: y = y + 1: P1.CurrentX = x: P1.CurrentY = y
Next i
'Define Textcolor
P1.ForeColor = &HFFFFFF
P1.Print Text
End Sub
'------------------------------------------------
Ciao,
   <--< Nik >-->

 vorrei visualizzare del testo scorrevole, come posso fare!
Se ho capito quello che intendi, ci dovrebbe essere un esempio
di codice o un OCX sul Sito Comune.
L'URL è nella firma di questo messaggio, fai una ricerca per "scorrere".
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com