Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Mit einer Public Funktion auf Formen zugreifen
Autor: OldMan
Datum: 14.12.05 21:58
Public Type POINTAPI x As Long y As Long End Type Public Declare Function CreateRectRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function CreateRoundRectRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _ ByVal Y3 As Long) As Long Public Declare Function CreatePolygonRgn Lib "gdi32" _ (lpPoint As POINTAPI, ByVal nCount As Long, _ ByVal nPolyFillMode As Long) As Long Public Declare Function CreateEllipticRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function CombineRgn Lib "gdi32" _ (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _ ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long Public Declare Function DeleteObject Lib "gdi32" _ (ByVal hObject As Long) As Long ' CombineRgn Public Const RGN_AND = 1 Public Const RGN_OR = 2 Public Const RGN_XOR = 3 Public Const RGN_DIFF = 4 Public Const RGN_COPY = 5 ' Dies ist jetzt meine selbergebaute Funktion die aus z. B. Form_Load einer Form aufgerufen werden soll, dabei übergibt man der Variablen sFormname den ' Formnamen der Form, auf der der FormSkin angewendet werden soll. Public Function MakeFormSkin(sFormname As Form) Dim rgn&, pt(7) As POINTAPI sFormname.ScaleMode = 3 ' Rechteckige Region mit Runden Ecken rgn& = CreateRoundRectRgn(0, 0, sFormname.ScaleWidth, sFormname.ScaleHeight, 40, 40) ' Die letzten zwei Zahlen sind für die Schärfe der Abrundung ' Scale Mode muss auf 3-Pixel gestellt sein ' Region an ein Fenster verweisen. (dabei ist es egal welche ' Fensterklasse. d.H. auch Textboxen, Comboboxen...) SetWindowRgn sFormname.hWnd, rgn, True ' Danach wird der Speicherberich der Region freigegeben ' ...und fertig DeleteObject rgn End Function Aufruf mit: x=MakeFormSkin(Me) und die Form wird abgerundet. Fertig. Ich hatte mit deinem Code einen Syntax-Fehler den ich korrigiert habe.

Mit einer Public Funktion auf Formen zugreifen	864	Lacoste	14.12.05 18:05
Re: Mit einer Public Funktion auf Formen zugreifen	509	OldMan	14.12.05 21:58
Re: Mit einer Public Funktion auf Formen zugreifen	494	Lacoste	15.12.05 21:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen