Create Star Shaped Window

The following code allows a programmer to create any window shape they so desire. It is currently set to create a hollow star window that can be clicked through the centre of. The window can be dragged around by the mouse and the window is closed by double clicking the form.


'************************************************************
'Insert the following code into a form with 1 command button
'on it
'************************************************************
Dim down As Boolean
Dim t As Integer '
Dim w As Integer
'****************************************************************
' Name: Create Star Shaped Window
' Description: Can Change The Shape of any form and allows the user
' to drag it around the screen. It can also be clicked through
' the centre of the window!
'
' By: Andrew Monis
'
' Inputs:Look Below
' Returns:None
' Assumes:None
' Side Effects:The Border and Title Bar Disappears. Therefore,
' the programmer has to take care to position buttons etc
' correctly.
'
' Code provided by Andrew Monis 'as is', without
' warranties as to performance, fitness, merchantability,
' and any other warranty (whether expressed or implied).
'****************************************************************

Private Sub Form_Load()
  down = False
End Sub

Private Sub Form_DblClick()
  Unload Form1
End Sub



Private Sub Command1_Click()
  Dim point(5) As POINTAPI
  point(0).x = 10 * 5
  point(0).y = 30 * 5
  point(1).x = 60 * 5
  point(1).y = 30 * 5
  point(2).x = 20 * 5
  point(2).y = 60 * 5
  point(3).x = 40 * 5
  point(3).y = 10 * 5
  point(4).x = 50 * 5
  point(4).y = 60 * 5
  point(5).x = 10 * 5
  point(5).y = 30 * 5
  Form1.Show
  SetWindowRgn hWnd, CreatePolygonRgn(point(0), 6, 1), True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
        x As Single, y As Single)
  down = True
  w = x
  t = y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
        x As Single, y As Single)
  If down Then
    Form1.Top = Form1.Top + y - t
    Form1.Left = Form1.Left + x - w
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
        x As Single, y As Single)
  down = False
End Sub

'************************************************************
'Insert the following code into a separate *.BAS module
'************************************************************
'****************************************************************
'Windows API/Global Declarations for :Change Form Shape
'****************************************************************
Public Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
  ByVal bRedraw As Boolean) As Long
Type POINTAPI
  x As Long
  y As Long
End Type

Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint _
        As POINTAPI, _
  ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Download Form1.frm
Download Module1.bas



Comments

  • h

    Posted by forvb on 07/12/2004 02:30am

    h

    Reply
  • Using CreatePolygonRgn

    Posted by Legacy on 05/24/1999 12:00am

    Originally posted by: John Corbin

    How does the * 5 after each of the x,y points work into the equation??

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Cloud computing isn't new, but it's still a hot topic in technology circles. Moving to the cloud has done great things for many businesses. When it comes to handling a basic business necessity, cloud computing has brought many improvements to overall business continuity. Using the cloud for DR makes a lot of sense for many, but it's not exactly the most simple concept. Read this eBook to find answers to all the key questions IT professionals have about cloud-based disaster recovery, and helpful info around the …

  • Do you spend a lot of time thinking about your enemies? Attacker attribution - figuring out who's out to get you - is one of the most important things an organization can do to protect itself.  Because you have no hope of defending yourself if you don't understand who the attackers are. Good news? Every organization isn't targeted by all the attackers. Bad news? No one can identify your potential attackers as well as you. Read this graphics-rich threat summary for 2014 to determine who might be your next …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date