vb.net ball bewegen (funktioniert aber nich richtig)

html.de-Forum C/C++/C#, Java, Visual Basic
1

Hallo Leute …
Ich hab in vb.net mal ein ganz kkkkkkkkleines game gebaut …
alsoman kann nur mein bild bewegen … also das geht auch aber wenn man gedrückt lässt funktionieret das nicht … da muss man bis jetzt immer ganz oft hinternander drücken damit er sich bewegt …
Hier der Code :

[SIZE=2][SIZE=2]Private[/SIZE][/SIZE][SIZE=2][SIZE=2]Sub[/SIZE][/SIZE][SIZE=2] Form1_KeyUp([/SIZE][SIZE=2][SIZE=2]ByVal[/SIZE][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2][SIZE=2]Object[/SIZE][/SIZE][SIZE=2], [/SIZE][SIZE=2][SIZE=2]ByVal[/SIZE][/SIZE][SIZE=2] e [/SIZE][SIZE=2][SIZE=2]As[/SIZE][/SIZE][SIZE=2] System.Windows.Forms.KeyEventArgs) [/SIZE][SIZE=2][SIZE=2]Handles[/SIZE][/SIZE][SIZE=2][SIZE=2]Me[/SIZE][/SIZE][SIZE=2].KeyUp[/SIZE] [SIZE=2]PictureBox1.Left = PictureBox1.Left + 2[/SIZE] [SIZE=2][SIZE=2]End[/SIZE][/SIZE][SIZE=2][SIZE=2]Sub[/SIZE] [/SIZE]

EDIT : Frage geklärt …
Aber eine andere Frage noch : wie kann ich das mit 2 playern machen ? also ich hab jetzt 2 pictures und die können sich bweegen aber nur eizeln … also wenn ich mich beweg kann er sich nich bewegen und andersrum … also man kann sich nicht gleichzeitig bewegen … wie mach ich das ??

Edit2: durch gaaaaaaaaaaaaaaanz intesivem googlen hab ich jetzt doch geschafft :smiley:

Edit3: wie kann ich es machen das in einer if anweisung ein bild erstellt wird ?
also so zb.

If blablabla Then
new.picturebox
img: „blabla.jpg“
End if

2

Schön das du selbser auf Lösung gekommen bist, aber willst du uns nicht an deinen Lösungen teilhaben lassen?
Vielleicht gibt es noch andere User die selbe Problem haben, und dann kannst du ihnen eine Lösung präsentieren.

Gruß KY

3

sry aber der is zu lang … da kommt immer fehler

4

@edit1

ich würde das über einen timer und eine bol-Array machen.
Bei jedem Ticken soll der Timer alle Tasten der Tastatur auf gedrückt abfragen und in die Array schreiben. Zum spielen muss dann nur noch aus der Array gelesen werden, ob die Tasten von S1, S2, … gedrückt sind und die Figur entsprechend bewegt werden.

        For i As Integer = 1 To 255
            If GetAsyncKeyState(i) = -32767 Then
                Return i
            End If
        Next

(Das ist der Code um die Tasten auf gedrückt abzufragen)

@edit3

If Bedingung Then
PictureBox.Image = Bitmap.FromFile("C:\...")     'oder so ähnlich
End If

oder meintst du:

If Bedingung Then
Dim img As New PictureBox
Me.Controls.Add(img)

'und hier noch Höhe, Breite, Position, ... angeben.
End If
5

FireFighter bitte nicht auch noch konstruktive Lösungen posten.
Dann macht er ja weiter -.-

6

ich weiß ich bin ja genauso