labela levo - desno

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

e ajde neka mi neko kaze kako da uradim da mi se labela krece levo ili desno. ja sam nekad radio u 2003 tu stvar ali sada taj kod nepase na 2008.

Dopuna: 11 Feb 2009 17:37

Jel ima neko neku ideju???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

        Label1.Location = New Point(Label1.Location.X + 1, Label1.Location.Y)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

dobro to sam znao i ja ali mi treba kod kada label1 i ide desno i kada stigne do kraja forme, da ne produzi dalje nego da se vrati na pocetak forme i da nastavi desno i tako u krug.

Hvala BlasteR!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jovanovic Slavko ::dobro to sam znao i ja ali mi treba kod kada label1 i ide desno i kada stigne do kraja forme, da ne produzi dalje nego da se vrati na pocetak forme i da nastavi desno i tako u krug.

Hvala BlasteR!
Za to ti treba 3 tajmera, tajmer 1 kontrolise rad druga dva.
Tajmer 1:
Timer 2.Enable = True
Timer 2.Interval = 1000
Label1.Location = New Point(Label1.Location.X + 1, Label1.Location.Y)
If Label1.Location = then
Timer2.Enable = False
Timer3.Enable = True
Timer3.Interval = 1000
Tajmer 2:
Label1.Location = New Point(Label1.Location.X + 1, Label1.Location.Y)
Tajmer 3:
Label1.Location = New Point(Label1.Location.X - 1, Label1.Location.Y)
Ovako nekako bi trebalo da izgleda, mrzime sada da otvaram studio...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Sto bi koristio tajmer da bi proverio da li je stiglo do kraja forme?
Sto ne uradis proveru jednu liniju pre nego sto izvrsis pomeranje?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         Label1.Location = New Point(Label1.Location.X + 1, Label1.Location.Y)         If Label1.Location.X + Label1.Width > Me.Width Then             Label1.Location = New Point(0, Label1.Location.Y)         End If     End Sub

Pozrdav! BlasteR

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

e jos samo kad bi mi rekli kako da, kada se label1 vrati na pocetak da se ne pojavi odmah, bum, neko da se polako pojavljuje, kao da izlazi i da mi udje u formu a ne samo kada dodje do kraja da se pojavi na pocetku??

Ako vam nije tesko...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da te pitam nesto. ko ovde pise program, ti ili svi sa foruma?

Mislim, hajde pogledaj logicno. Imas koordinatni sistem i gore naredbe koje pomeraju labelu, tj. menjaju joj koordinate.
Hajde razmisli koja je prva moguca koordinata i na koje cose labele se odnosi, pa sta onda tu jos nedostaje da bi labela pocela pomeranje van aktivne forme.
Mislim, zar se ne dolazi do zakljucka da pomeranje treba da pocne od nekih negativnih koordinata po X osi, i to za duzinu labele u minusu?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ma pitam kako kada labela prodje ivicu forme i kada prodje da se vrati na pocetak?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa ovaj zadnji BlasteRov kod radi upravo to - kada stigne do kraja vraca je na pocetak.
Ako mislis na to da to ide tecno, tj. da se pocetak vec pojavi levo dok je kraj labele na desnom kraju forme - to je neizvodljivo. Za tako nesto ces morati da koristis dve labele.
Postepeno pojavljivanje sa leve strane bi zahtevalo poziciju sa negativnim koordinatama, a to sam ti vec napisao u prethodnoj poruci.