Hi, ich will mit einem kleinen Programm etwas testen. Es wird eine Box erstellt, die sich dann 100 Pixel weiter nach rechts bewegen soll, und dann wieder verschwinden. Die Anzahl der zu erstellenden Boxen wird mit dem Text einer Textbox definiert. Nur, wenn ich mehr als 2 Stück machen möchte, dann werden die Boxen nach der Reihe erstellt, sie bewegen sich und verschwinden... Einer nach dem anderen, aber nicht alle quasi gleichzeitig. Oder auf den Button, der der die Boxen erstellen soll, klicke, dann wird die Box, die davor erstellt wurde, einfach an der Position stehen bleiben und verschwindet auch nicht, weil es eben keine 100 Schritte macht, sondern einfach an der aktuellen Position stehen bleibt. ... Bisschen doof erklärt, gebe ich zu, aber ich poste einfach mal die Quellcode:
Form1:
Und die Klasse:
Form1:
Und die Klasse:
VB.NET-Quellcode
- Public Class pBlib
- Dim pb As New PictureBox
- Public Sub createPic()
- pb = New PictureBox
- With pb
- .Location = New Point(150, 50)
- .Size = New Size(25, 25)
- .BackColor = Color.Black
- .Visible = True
- End With
- Form1.Controls.Add(pb)
- lifeTime()
- End Sub
- Dim life As Integer = 100
- Sub lifeTime()
- While life > 0
- Application.DoEvents()
- pb.Location = New Point(pb.Location.X + 1, pb.Location.Y)
- life = life - 1
- Threading.Thread.Sleep(10)
- End While
- Form1.Controls.Remove(pb)
- End Sub
- End Class