dingen naar link recht boven en onder laten bewegen

[ido435]

hallo

ik heb een vraagje.
hoe kun je bijvoorbeeld een label naar recht,links boven en naar ondere laten bewegen?

alvast bedankt

 

[erten]

in dit filmpje zie je hoe ze het doen met een button :
http://www.youtube.com/watch?v=UNd0YKJyLkg

 

[ido435]

ik zal even kijken

 

[ido435]

humm dit is om iets door te laten gaan maar ik had eerder zo iets in gedachten:
als je het opstart als dan dingen van boven van onder en link en rechts naar binnen komen en er blijven staan
maar deze video is om ( een button) om te laten verplaatsen maar zo iets komt later nog van pas
maar wel bedankt voor het filmpje

ik heb nog een beetje liggen te prutsen en deze codes heb ik ondertussen al ( deze codes leken mijn erg lochies)
deze die werken
label2.left += 10
label2.top += 10
maar deze niet
label2.bottum += 10
label2.right += 10

 

[flandria4]

Werk gewoon met visibility.


Zet 4 of 5 labels in je formulier op plaatsen waar je wilt dat het verschijnt en zet in je Form1_Load:
Label1.Visible = True
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False

Dan met een timer/button/ w/e verander je de visibility zodat het lijkt alsof je label verspringt. Je moet wel overal dezelfde (.Text) waarde zetten.


Label1.Visible = False
Label2.Visible = True
Label3.Visible = False
Label4.Visible = False

enz.

 

[JoZ1]

@flandria: Dat zou ik dus niet doen omdat:
1 : Het er nogal houterig uitziet;
2 : Je onnodig veel componenten toevoegt.

Ik zat eerder aan zoiets te denken:

Code:
[cpp]Private toBottom As Boolean = True
Private Sub Timer1_Tick() Handles Timer1.Tick
''//Naar beneden
If toBottom Then
Label1.Top += 1
If Label1.Location.Y = Me.Size.Height - 50 Then toBottom = False
Else
''//Naar boven
Label1.Top -= 1
If Label1.Location.Y = 0 Then toBottom = True
End If
End Sub

Private Sub Button1_Click() Handles Button1.Click
''//Timer interval staat op 100 ms
If Button1.Text = "Start!" Then Timer1.Start() : Button1.Text = "Stop!" _
Else Timer1.Stop() : Button1.Text = "Start!"
End Sub[/cpp]