Home of Gamehacking - Archiv - Form Abrunden VB 2008

Hi,

um die Ecken einer Form abzurunden braucht man folgendes...

Die Funktion

Code:

			    Sub abrunden(ByVal was As Object, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal radius As Integer)
        Dim gp As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath()
        gp.AddLine(x + radius, y, x + width - radius, y)
        gp.AddArc(x + width - radius, y, radius, radius, 270, 90)
        gp.AddLine(x + width, y + radius, x + width, y + height - radius)
        gp.AddArc(x + width - radius, y + height - radius, radius, radius, 0, 90)
        gp.AddLine(x + width - radius, y + height, x + radius, y + height)
        gp.AddArc(x, y + height - radius, radius, radius, 90, 90)
        gp.AddLine(x, y + height - radius, x, y + radius)
        gp.AddArc(x, y, radius, radius, 180, 90)
        gp.CloseFigure()
        was.region = New System.Drawing.Region(gp)
        gp.Dispose()
    End Sub

Folgendes in Form_Load

Code:

			abrunden(Me, 0, 0, Me.Width, Me.Height, 20)

Das wars auch schon Wink

~DNA

Cool danke sieht Super aus Smiling

aber wie kann ich jetzt meine Form verschieben? so wie bei euch wenn man auf der Form klickt egal wo und hält die Maustaste fest kann man die Form ja immer noch verschieben.

Home of Gamehacking - Archiv

DNA

chesar