Hallo...
Ich mach aus Lust, ein Tutorial, das den Aufbau einer Steuerung beinhaltet...
Das Bewegen von GDI+ Objekten, zB eines Rectangles, kann durch variierenden Koordinaten erreicht werden...
Das heißt, dass 2 Variablen benötigt werden, und durch Eingabe von zB der Pfeiltaste-Links, beeinflusst wird...
zB:
Nun wurde bezweckt, dass PosX;PosY Variablen sind...
Ausserdem wird noch eine Deklaration benötigt, und zwar, die des Rectangles:
Nun kommen wir zur Steuerung:
Hier wird nun beschrieben, dass , während des Klickens auf Pfeiltaste-Links, 5 Pixel nach links gesprungen wird... Also vom Ganzen -5 beim erneuten Drücken, abgezogen...
Das Paint_Ereigniss kann so aussehen:
Es wird definiert, das Player, das Rectangle, an verschiedenen Positionen gezeichnet werden soll...
Das Ganze sieht dann so aus:
Kritik oder Feedback,und Ähnliches sind erwünscht...
Mfg.eniking1998
Ich mach aus Lust, ein Tutorial, das den Aufbau einer Steuerung beinhaltet...
Das Bewegen von GDI+ Objekten, zB eines Rectangles, kann durch variierenden Koordinaten erreicht werden...
Das heißt, dass 2 Variablen benötigt werden, und durch Eingabe von zB der Pfeiltaste-Links, beeinflusst wird...
zB:
Nun wurde bezweckt, dass PosX;PosY Variablen sind...
Ausserdem wird noch eine Deklaration benötigt, und zwar, die des Rectangles:
Nun kommen wir zur Steuerung:
VB.NET-Quellcode
- Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- Select Case e.KeyCode
- Case Keys.Left
- PosX -= 5
- Me.Invalidate() ' Das Me.Invalidate() bezweckt, dass der Clientbereich ungültig ist, und neu gezeichnet
- Case Keys.Right 'werden soll, das das Paint_Ereignis der Anwendung tut
- PosX += 5
- Me.Invalidate()
- Case Keys.Up
- PosY -= 5
- Me.Invalidate()
- Case Keys.Down
- PosY += 5
- Me.Invalidate()
- End Select
- End Sub
Hier wird nun beschrieben, dass , während des Klickens auf Pfeiltaste-Links, 5 Pixel nach links gesprungen wird... Also vom Ganzen -5 beim erneuten Drücken, abgezogen...
Das Paint_Ereigniss kann so aussehen:
Es wird definiert, das Player, das Rectangle, an verschiedenen Positionen gezeichnet werden soll...
Das Ganze sieht dann so aus:
VB.NET-Quellcode
- Public Class Form1
- 'Deklaration der Positionsangaben...
- Dim PosX As Integer
- Dim PosY As Integer
- 'Deklaration des Rectangles
- Dim Player As Rectangle
- Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- Select Case e.KeyCode
- Case Keys.Left
- PosX -= 5
- Me.Invalidate() ' Das Me.Invalidate() bezweckt, dass der Clientbereich ungültig ist, und neu gezeichnet
- Case Keys.Right 'werden soll, das das Paint_Ereignis der Anwendung tut
- PosX += 5
- Me.Invalidate()
- Case Keys.Up
- PosY -= 5
- Me.Invalidate()
- Case Keys.Down
- PosY += 5
- Me.Invalidate()
- End Select
- End Sub
- Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- Player = New Rectangle(PosX, PosY, Width:=25, Height:=25) 'Die Positionen X;Y sind variable...
- e.Graphics.FillRectangle(Brushes.Aqua, Player)
- End Sub
- End Class
Kritik oder Feedback,und Ähnliches sind erwünscht...
Mfg.eniking1998
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „enIking1998“ ()