Rullende text

Check siden www.cb-cunsult.dk

den findes ikke

Undskyld
den hedder www.cb-consult.dk

du giver ikke mange hints - skal scrollbar være synlig som eksempelvis http://www.mvps.org/vbnet/code/textapi/txscroll.htm og skal den scrolle vandret eller lodret, skal den scrolle i label eller textbox?

Her er nogle links du kan kigge på:
http://www.freevbcode.com/ShowCode.Asp?ID=153
http://www.planet-source-code.com/xq/ASP/txtCodeId.4022/lngWId.1/qx/vb/scripts/ShowCode.htm
http://www.planet-source-code.com/xq/ASP/txtCodeId.6287/lngWId.1/qx/vb/scripts/ShowCode.htm
http://www.planet-source-code.com/xq/ASP/txtCodeId.11291/lngWId.1/qx/vb/scripts/ShowCode.htm
http://www.planet-source-code.com/xq/ASP/txtCodeId.4760/lngWId.1/qx/vb/scripts/ShowCode.htm
http://www.planet-source-code.com/xq/ASP/txtCodeId.9654/lngWId.1/qx/vb/scripts/ShowCode.htm

en måde at gøre det på er ved at bruge en timer. i timer koden skriver du så:

if a => 500 then \'(500)eller hvad der passer til længden på din tekst
form1.caption = \" \" & form1.caption \'(eller hvilket objekt du nu vil ændre på)
else
form1.caption = StartTekst: a = 0
end if


husk at sætte StartTekst i en anden del af programmet.

Download her:

http://www.friserverplads.dk/basicpage/Rullende%20tekst.rar


Den ruller teksten og gør også baggrunden gennemsigtig!

Jeg har slettet den nu, men prøv dette.

Opret en label.
Opret en timer.

Kopier følgende kode ind i form load:

Private Sub Form_Load()
Timer1.Interval = 10
''''''''''''''''''''''
Me.BorderStyle = 0
Me.WindowState = 2
Me.BackColor = 0
Me.Top = 0
Me.Left = 0
Me.Caption = "Lavet af Answermaster fra Magic Star...."
'''''''''''''''''''''
Label1.AutoSize = True
Label1.BackStyle = 0
Label1.Caption = "Lavet af Answermaster fra eksperten, kl. 12.24 søndag..."
Label1.Top = Screen.Height / 2 - Label1.Height / 2
Label1.FontSize = 24
Label1.Left = Me.Width + Label1.Width + 10
Label1.ForeColor = RGB(255, 255, 255)
'''''''''''''''''''''
End Sub

Kopier denne kode ind i timeren:

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 100

If Label1.Left + Label1.Width - 100 < 0 Then
Label1.Left = Me.Width + Label1.Width - 10
End If
End Sub




/Answer

okay?