Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Scrollowany tekst
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002
Scrollowany tekst

Witam!
Ktoś może zna procedurkę pozwalająco przesuwać dowolny tekst z góry na dół (tak jak często wygląda końcówka filmu czy serailu telewizyjnego)?


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


10-03-2003 13:01
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

hmm.. robilem cos takiego kiedys w about boksie ...
Bedziesz potrzebowal: Labelke, i Jeden timer (interval na 100.. bedzie w miare plynnie)

i w general declarations taki kod umiesc:

'Poczatek
Dim zniknelo

Private Sub Timer1_Timer()

On Error Resume Next

Label1.Top = Label1.Top - 5

zniknelo = Label1.Top + Label1.Height

If zniknelo < 0 Then
  Label1.Top = Me.Height
End If

End Sub
'Koniec


_____________________________________________
www.KURDE.pl

10-03-2003 17:41
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Dzięki Ushy, o to chodziło! Tyle, że ja chciałem od góry na dół i nie dałoby się szybciej?


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


10-03-2003 18:59
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Sorka-już sobie z powyższymi sprawami poradziłem, natomiast fajnie by było, gdyby ten tekst, gdy znika, znowu pojawiał się u góry i tak w kółlko. Da się coś zrobić?


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


10-03-2003 19:09
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1