Guckloch um sicher zu sein dass keine Unerwuehnste klopfen
Gr
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.TransparencyKey = Color.Magenta
- End Sub
- Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
- Dim w As Integer = Me.Width / 4
- Dim h As Integer = Me.Height / 4
- 'Guckloch
- e.Graphics.FillEllipse(Brushes.Magenta, w, h, 75, 75)
- 'Einschussloescher
- e.Graphics.FillEllipse(Brushes.Magenta, 15, 15, 25, 25)
- e.Graphics.FillEllipse(Brushes.Magenta, 220, 40, 25, 25)
- e.Graphics.FillEllipse(Brushes.Magenta, 240, 210, 25, 25)
- End Sub
- End Class
Gr
Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen".
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „miko1204“ ()