devxlogo

Create Unconventional Windows to Dazzle Users

Create Unconventional Windows to Dazzle Users

When designing a portion of an application that must grab users’ attention quickly&3151;such as your companys splash screen?you might want to create a nonrectangular window. This code shows you how to create a V-shaped window based on nine points:

Private Type POINTAPI	x As Long	y As LongEnd TypePrivate Declare Function SetWindowRgn Lib "user32" _	(ByVal hWnd As Long, ByVal hRgn As Long, _	ByVal bRedraw As Boolean) As LongPrivate Declare Function CreatePolygonRgn _	Lib gdi32 (ByRef lpPoint As POINTAPI, _	ByVal nCount As Long, _	ByVal nPolyFillMode As Long) As LongPrivate Sub Form_Load()	Dim lhandle As Long	Dim lpPoint(0 To 8) As POINTAPI	lpPoint(0).x = 0	lpPoint(0).y = 0	lpPoint(1).x = 20	lpPoint(1).y = 150	lpPoint(2).x = 60	lpPoint(2).y = 150	lpPoint(3).x = 80	lpPoint(3).y = 0	lpPoint(4).x = 52	lpPoint(4).y = 0	lpPoint(5).x = 46	lpPoint(5).y = 120	lpPoint(6).x = 40	lpPoint(6).y = 120	lpPoint(7).x = 32	lpPoint(7).y = 0	lpPoint(8).x = 0	lpPoint(8).y = 0	lhandle = CreatePolygonRgn(lpPoint(0), 9, 1)	Call SetWindowRgn(Me.hWnd, lhandle, True)End Sub

See also  Monetize TikTok For Your Business
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist