Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0369: Regionen mit Pathes erstellen

VB 5/6-Tipp 0369: Regionen mit Pathes erstellen

 von Markus Zeichner

Schwierigkeitsgrad:

Verwendete API-Aufrufe: BeginPath, EndPath, PathToRegion, Polygon, SetBkMode, SetWindowRgn

Download: Download des Beispielprojektes [8,1 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Anzeige-Steuerelement "Image2"


'Autor: Markus Zeichner
'E-Mail: kosti-@t-online.de

'Dieses Beispielprogramm zeigt wie man mit Hilfe von Path's den
'sichtbaren Fensterbereich manipulieren kann.
'
'Zur Begin werden einige Koordinaten-Arraus definiert anhand
'denen dann Polygone in ein Path gezeichnet werden, danach wird
'der Path in eine Region umgewandelt und schliesslich wird diese
'Region dem Fenster zugewissen.
'
'Wie man anhand des Beispiels sehen kann ist mit Hilfe des
'Path's die Fensterregion nicht auf eliptisch bzw. rechteckig
'begrentzt.
'
'Zwischen BeginPath und EndPath können alle Primitiven GDI-
'Zeichenroutinen (wie z.B Polygon, Text, Bezierkurven stehen so
'das kreatives Arbeiten möglich ist.

Option Explicit

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As _
        Long) As Long
        
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As _
        Long) As Long
        
Private Declare Function SetWindowRgn Lib "user32" (ByVal _
        hwnd As Long, ByVal hrgn As Long, ByVal bredraw As _
        Boolean) As Long
        
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc _
        As Long) As Long
        
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As _
        Long, ByVal nBkMode As Long) As Long
        
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As _
        Long, lpPoint As Pointapi, ByVal nCount As Long) _
        As Long

Private Type Pointapi
    x As Long
    y As Long
End Type

Private Const RGN_AND As Long = 1&
Private Const RGN_OR As Long = 2&
Private Const RGN_XOR As Long = 3&
Private Const RGN_DIFF As Long = 4&
Private Const RGN_COPY As Long = 5&

Private Sub Form_Load()
    Dim Punkte() As Pointapi
    Dim Punkt() As Pointapi
    Dim Pkt() As Pointapi
    Dim hD As Long
    
    ReDim Punkte(7)
    ReDim Punkt(4)
    ReDim Pkt(4)
    
    Image2.Picture = LoadPicture(App.Path & _
        IIf(Right(App.Path, 1) = "\", "", "\") & "\Pic.gif")
    
    Punkte(0).x = 0
    Punkte(0).y = 120
    Punkte(1).x = 200
    Punkte(1).y = 0
    Punkte(2).x = 400
    Punkte(2).y = 120
    Punkte(3).x = 360
    Punkte(3).y = 120
    Punkte(4).x = 360
    Punkte(4).y = 300
    Punkte(5).x = 40
    Punkte(5).y = 400
    Punkte(6).x = 40
    Punkte(6).y = 120
    Punkte(7).x = 0
    Punkte(7).y = 120
    
    Punkt(0).x = 150
    Punkt(0).y = 300
    Punkt(1).x = 150
    Punkt(1).y = 200
    Punkt(2).x = 250
    Punkt(2).y = 200
    Punkt(3).x = 250
    Punkt(3).y = 300
    Punkt(4).x = 150
    Punkt(4).y = 300
    
    Pkt(0).x = 70
    Pkt(0).y = 150
    Pkt(1).x = 120
    Pkt(1).y = 150
    Pkt(2).x = 120
    Pkt(2).y = 200
    Pkt(3).x = 70
    Pkt(3).y = 200
    Pkt(4).x = 70
    Pkt(4).y = 150
    
    Call BeginPath(hdc)
    Call Polygon(hdc, Punkte(0), UBound(Punkte) + 1)
    Call SetBkMode(hdc, RGN_XOR)
    Call Polygon(hdc, Punkt(0), UBound(Punkt) + 1)
    Call Polygon(hdc, Pkt(0), UBound(Pkt) + 1)
    Call EndPath(hdc)
    
    hD = PathToRegion(hdc)
    Call SetWindowRgn(Me.hwnd, hD, True)
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 1 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.