|
Registrieren
Login
Autor
Topmaster_
Tutorial Leser
Anmeldedatum: 15.09.2007
Beiträge: 32
VB.NET Problem
Verfasst am: 10.11.2007, 20:37
Nabend ich habe ein Kleines problem und zwar folgendes ich will ein Kleines Game machen "MoorHuhn".
Es sollen bilder durch das WindowsBilschirm gehen und wenn man ein abschiest soll es kurz verschwinden und von oben wieder kommen.
Problem ist wenn ich ein abschieße geht es nicht wieder nach oben in die ecke sondern kommt wieder da auf wo man es abgeschoßen hat das sieht dann so aus als würde es gar nicht weg gewesen sein.
Hier der Sorce:
Code:
Public Class Form1
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
PictureBox1.Visible = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If PictureBox1.Top > Me.Height Then
PictureBox1.Top = -40
End If
If PictureBox1.Left > Me.Width Then
PictureBox1.Left = -40
End If
If PictureBox1.Visible = False Then
PictureBox1.Visible = True
End If
PictureBox1.Top = PictureBox1.Top + 1
PictureBox1.Left = PictureBox1.Left + 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
_________________
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
Verfasst am: 11.11.2007, 11:34
Code:
If PictureBox1.Visible = False Then
PictureBox1.Visible = True
PictureBox1.Top = -40
PictureBox1.Left = -40
End If
So in etwa?
_________________
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/
Verwandte Themen
Aufrufe
Letzter Beitrag
[Frage] Ich bekomme einen Fehler das "End if" fehlt obwohl e
641
14.09.2008, 15:33
Komponenten registrieren mit Sub Main
1149
21.05.2008, 09:28
sub bedingt aufrufen
539
13.05.2008, 07:12
[Text] Komponenten registrieren mit Sub Main
1635
26.04.2008, 12:45
Melt sub / anti sandboxie usw
1144
14.04.2008, 17:39
