vb, visual basic, vb6, create irregular form, how to create custom shaped form, example create irregular form
(Website Helper) create irregular form Number of Visitors: Site Map

vb: how to create irregular, custom shaped form?



Website Design
Website Promotion
Graphic Design
Programming
Free Software
Computer Tips
Discount Stores
This site provides users with the information about vb, visual basic, vb6, create irregular form, how to create custom shaped form, example, and more.

If you think that this site is helpful, please recommend your friends to visit our site.



How to create irregular form, custom shaped in vb?

The following is the example and steps to create irregular form, custom shaped in vb:

1. Add the following code in declare section:


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 Private Declare Function DeleteObject Lib "gdi32" _ (ByVal hObject As Long) As Long Dim r_handler As Long Dim width As Long Dim height As Long
2. Add the following code in form resize section:


width = ScaleX(Me.width, Me.ScaleMode, vbPixels) - 1 height = ScaleY(Me.height, Me.ScaleMode, vbPixels) - 1 'width = 250 'height = 250 'change the parameters to change the shape r_handler = CreateEllipticRgn(0, 0, width, height) Call SetWindowRgn(Me.hWnd, r_handler, True) Call DeleteObject(hRgn)
(Website Helper) create irregular form (c) EduSoftMax - www.edusoftmax.com