Runde Fenster - Code Schnipsel - Generation-FX.eu

25. August 2008

Zitat von UnLiMiTeD_AcCeSs

Wer keine Ecken, sondern Rundungen haben will, wird diesen Schnipsel gebrauchen k?nnen:

Code

procedure TForm1.FormCreate(Sender: TObject);
var
f : HRGN;
begin
Form1.Borderstyle := bsNone;
f := CreateRoundRectRgn(
0, // x-coordinate of the region?s upper-left corner
0, // y-coordinate of the region?s upper-left corner
clientwidth, // x-coordinate of the region?s lower-right corner
clientheight, // y-coordinate of the region?s lower-right corner
40, // height of ellipse for rounded corners
40); // width of ellipse for rounded corners
SetWindowRgn(Handle,f,True);
end;

Alles anzeigen

Von clown:
http://img3.imagebanana.com/img/m79ul31/Unbenannt.JPG

DerLuecke

Einmalposter

Punkte

5

Beiträge

1
29. September 2008
- #2
Oder man benutzt das schnippel tool ;D
Inhalt melden
clown

Einmalposter

Punkte

90

Beiträge

13
29. September 2008
- #3
Und so siehts dann aus:
http://img3.imagebanana.com/img/m79ul31/Unbenannt.JPG
Inhalt melden
DeXTer2

Schüler

Punkte

300

Beiträge

50
29. September 2008
- #4
Jo anstatt

Form1.Borderstyle := bsNone;

nimmste

Form1.Borderstyle := bsSingle;

Und dann sieht es nach mehr aus^^
Inhalt melden
td_armor

<b>Super-Moderator<br>Haxx0r</b>

Punkte

2.040

Beiträge

374
29. September 2008
- #5
Gibts das auch f?r Vb6?
Inhalt melden

29. September 2008

Jop, gerade f?r VB was gefunden.

Daf?r braucht man die "graphicspath-klasse". Sollte mit google zu finden sein.
Mit dieser kann man beliebig aussehende fenster erzeugen!

Code

Imports System.Drawing.Drawing2D


Public Class Form1


    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        ' Pfad anlegen
        Dim path As New System.Drawing.Drawing2D.GraphicsPath
        ' Dem Pfad Bereiche hinzuf?gen, hier eine Ellipse
        path.AddEllipse(New Rectangle(0, 0, 300, 100))
        ' Aus dem Pfad ein neues Region-Objekt erzeugen und dem
        ' Fenster als Clipping-Bereich zuweisen
        Me.Region = New Region(path)
    End Sub
End Class

Alles anzeigen