Hallo ich habe soeben mal wieder begonnen bisschen VB.Net zu coden. Ich wollte für mich ein Cousin ein Programm erstellen. Es geht darum Rechtecke während der Laufzeit zu erstellen und das klappt bereits wunderbar. Jedoch will ich jetzt, das diese sich verschieben lassen und ich weiß bereits wie. Allerding will ich ja das man sie einzeln verschieben kann. Ich habe bereits an ein Bool gedacht. Jedoch soll es sich aktivieren wenn man doppelklick auf das entsprechende Rechteck doppelklick der Bool auf True gestellt wird und mit Space wieder auf false.
Zum Problem
Wie kann ich zur Laufzeit erstellte Grafiken mit Events erstellen und wie mache ich das ganze mti Bool. Bin grade voll verwirrt.
Mein derzeitiger Code (wenn er hilft)
Ich weiß es ist nicht sehr schön gecodet...
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Imports System.Drawing.Color
Public Class Spiel
Dim a = BorderStyle.FixedSingle
Dim b = BorderStyle.None
Dim px As Byte = 100
Dim py As Byte = 100
Dim Grafik As System.Drawing.Graphics
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Grafik = Me.CreateGraphics()
Dim Farbe As New System.Drawing.Pen(System.Drawing.Color.Red)
' Grafik.DrawLine(Farbe, 20, 30, 100, 80)
' Grafik.DrawEllipse(Farbe, 10, 120, 200, 160)
Dim Brush As New SolidBrush(Drawing.Color.Tan)
Grafik.FillRectangle(Brush, px, py, 250, 100)
Application.DoEvents()
px += 150
py += 150
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
'hier kommt noch ein code
End Sub
End Class
Screenshot
Wäre mein Wunschprogramm, wenn es einer macht bzw. mir nur verschieben, erstellen, speichern macht bin ich schon sehr dankbar. Den Rest weiß ich selber =)
PS: Google bringt mich immer auf VB6 oder falshe Codes. Das hier ist der Request Bereich und ich bin Lernwillig, jedoch lernt jeder anders.