Ich habe mit den Tasten A bis F die Möglichkeit gefunden 6 verschiedene Farben auf meinem Bildschirm einzuschalten.
Spoiler anzeigen
Meine Fähigkeiten mich weiter zu bilden sind nicht ausreichend eine beliebige Farbe zu speichern. Der nächste Schritt währe die gespeicherte Farbe auch wieder abrufen zu können.
Das Bild im Dateipfad habe ich zu einer übersichtlichen Differenzierung, als Dateianhang im Forum hochgeladen.
*Unnötig langen Threadtitel abgeändert* ~NoFear23m
VB.NET-Quellcode
- Public Class Form1
- Dim paprika As New BitArray(6, False)
- Dim rect As New Rectangle(3, 3, 278, 255)
- Sub probotector(e As System.Windows.Forms.KeyEventArgs)
- Select e.KeyCode
- Case Keys.A
- paprika(0) = True
- Case Keys.B
- paprika(1) = True
- Case Keys.C
- paprika(2) = True
- Case Keys.D
- paprika(3) = True
- Case Keys.E
- paprika(4) = True
- Case Keys.F
- paprika(5) = True
- End Select
- End Sub
- Private Sub Form1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
- probotector(e)
- If Not e.KeyCode = Keys.A Then
- paprika(0) = False
- End If
- If Not e.KeyCode = Keys.B Then
- paprika(1) = False
- End If
- If Not e.KeyCode = Keys.C Then
- paprika(2) = False
- End If
- If Not e.KeyCode = Keys.D Then
- paprika(3) = False
- End If
- If Not e.KeyCode = Keys.E Then
- paprika(4) = False
- End If
- If Not e.KeyCode = Keys.F Then
- paprika(5) = False
- End If
- Me.Invalidate()
- End Sub
- Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- DoubleBuffered = True
- CenterToScreen()
- End Sub
- Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- Me.BackColor = Color.FromArgb(255, 255, 255)
- Dim newImage As Image = Image.FromFile("C:\Unbenannt.bmp")
- Dim ImgRect As New Rectangle(72, 59, 141, 142)
- e.Graphics.DrawImage(newImage, ImgRect)
- newImage.Dispose()
- e.Graphics.DrawRectangle(New Pen(Color.Black), 1, 1, 281, 258)
- e.Graphics.DrawRectangle(New Pen(Color.FromArgb(100, 0, 0, 0)), 4, 4, 275, 252)
- If paprika(0) = True Then
- e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(100, 0, 255, 255)), rect)
- End If
- If paprika(1) = True Then
- e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(100, 255, 255, 0)), rect)
- End If
- If paprika(2) = True Then
- e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(100, 255, 0, 255)), rect)
- End If
- If paprika(3) = True Then
- e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(100, 0, 0, 255)), rect)
- End If
- If paprika(4) = True Then
- e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(100, 0, 255, 0)), rect)
- End If
- If paprika(5) = True Then
- e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(100, 255, 0, 0)), rect)
- End If
- End Sub
- End Class
Meine Fähigkeiten mich weiter zu bilden sind nicht ausreichend eine beliebige Farbe zu speichern. Der nächste Schritt währe die gespeicherte Farbe auch wieder abrufen zu können.
Das Bild im Dateipfad habe ich zu einer übersichtlichen Differenzierung, als Dateianhang im Forum hochgeladen.
*Unnötig langen Threadtitel abgeändert* ~NoFear23m
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Nofear23m“ ()