• Home
 · 
• Windows API Call/Explanation
 · 
• Creates a Round, Rectangular or a Circle Form

Creates a Round, Rectangular or a Circle Form

Creates a Round, Rectangular or a Circle Form

API Declarations


(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) 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 CreateEllipticRgn Lib "gdi32" _
(ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long




Rate Creates a Round, Rectangular or a Circle Form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    
    If blnRecForm = True Then
        SetWindowRgn MyForm.hWnd, CreateRoundRectRgn(x1, y1, (MyForm.Width / 15) - 5, (MyForm.Height / 15) - 5, x3, y3), True
    Else
        SetWindowRgn MyForm.hWnd, CreateEllipticRgn(x1 + 15, y1, (MyForm.Width / 15) - 20, (MyForm.Height / 15) - 15), True
    End If
    
End Sub