Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to display the form in circle shape
- Thread starter dass
- Start date
Here is an example of how to shape a form. I t uses API calls.
hope it helps!
Matt
hope it helps!
Matt
In the declarations section of the form:
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
In the Form_Load event
SetWindowRgn Me.hwnd, CreateEllipticRgn(1, 2, 393, 393), True
You may want to play with the values some
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
In the Form_Load event
SetWindowRgn Me.hwnd, CreateEllipticRgn(1, 2, 393, 393), True
You may want to play with the values some
- Thread starter
- #4
- Status
Similar threads
- Question
