Hat es euch schon mal interessiert wer hinter der Tuer steht? na dann schaut doch mal durchs Guckloch

miko1204 · 6. Oktober 2008, 00:08

Guckloch um sicher zu sein dass keine Unerwuehnste klopfen

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

Mi4uric3 · 9. Juni 2009, 14:30

Funktioniert nicht..

Bei mir erscheinen einfach rosa kreise auf der form..

freecoder · 9. Juni 2009, 14:40

du musst ja auch den TransparencyKey deiner Form auf Rosa (Color.Magenta) stellen, so wie es im Code steht:

cpu_johnny · 18. Juli 2009, 13:35

Und was bewirkt der Code?

kevin89 · 18. Juli 2009, 14:46

Was wohl? Stellt ein "Guckloch", also einen transparenten Kreis, durch den man durchsehen kann, auf der Form dar.