combinergn

CombineRgn CombineRgn Dla lepszego efektu radz� usun�� wszystkie kontrolki z formy. CO JEST CO: hDestRgn - uchwyt docelowego regionu hSrcRgn1- uchwyt pierwszego regionu �r�d�owego hSrcRgn2- uchwyt drugiego regionu �r�d�owego nCombineMode - w jaki spos�b maj� by� z��czone regiony. Funkcja zwraca warto�� okre�laj�c� wykonan� czynno��. ZOBACZ TE�: GetRgnBox, CreateRectRgnIndirect, SetwindowRgn, BeginPath, EndPath, PathToRegion, TextOut, DeleteObject, STA�E REGIONU KOD MODU�U: Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, _     ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long Private Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) 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 BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, _     ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Type RECT     Left As Long     Top As Long     Right As Long     Bottom As Long End Type Private Const RGN_AND = 1 Private Function CreateRgn() As Long     Dim hRgn1 As Long     Dim hRgn2 As Long     Dim rct As RECT     BeginPath Me.hdc     TextOut Me.hdc, 10, 10, "RFX", 3     EndPath Me.hdc     hRgn1 = PathToRegion(hdc)     GetRgnBox hRgn1, rct     hRgn2 = CreateRectRgnIndirect(rct)     CombineRgn hRgn2, hRgn2, hRgn1, RGN_AND     DeleteObject hRgn1     CreateRgn = hRgn2 End Function KOD FORMY: Private Sub Form_Load()     With Me.Font         .Name = "Arial"         .Bold = True         .Size = 100     End With     SetWindowRgn Me.hwnd, CreateRgn, True End Sub CO� DLA LENIWYCH: CombineRgn.zip CombineRgn












CombineRgn




Dla lepszego efektu radzę usunąć wszystkie kontrolki z formy.

CO JEST CO:


hDestRgn - uchwyt docelowego regionu
hSrcRgn1- uchwyt pierwszego regionu źródłowego
hSrcRgn2- uchwyt drugiego regionu źródłowego
nCombineMode - w jaki sposób mają być złączone regiony.


Funkcja zwraca wartość określającą wykonaną czynność.

ZOBACZ TEŻ: GetRgnBox,
CreateRectRgnIndirect, SetwindowRgn, BeginPath, EndPath, PathToRegion, TextOut, DeleteObject, STAŁE REGIONU

KOD MODUŁU:

Private Declare Function CombineRgn Lib "gdi32" (ByVal
hDestRgn As Long, _
    ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As
Long) As Long
Private Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As
RECT) As Long
Private Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) 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 BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal
hdc As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal
nCount As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As
Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Const RGN_AND = 1

Private Function CreateRgn() As Long
    Dim hRgn1 As Long
    Dim hRgn2 As Long
    Dim rct As RECT

    BeginPath Me.hdc
    TextOut Me.hdc, 10, 10, "RFX", 3
    EndPath Me.hdc

    hRgn1 = PathToRegion(hdc)
    GetRgnBox hRgn1, rct
    hRgn2 = CreateRectRgnIndirect(rct)
    CombineRgn hRgn2, hRgn2, hRgn1, RGN_AND
    DeleteObject hRgn1
    CreateRgn = hRgn2
End Function

KOD FORMY:

Private Sub Form_Load()
    With Me.Font
        .Name = "Arial"
        .Bold = True
        .Size = 100
    End With
    SetWindowRgn Me.hwnd, CreateRgn, True
End Sub

COŚ DLA LENIWYCH: CombineRgn.zip