• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 143
  • Last Modified:

make non-rectangler button

how do i make non-rectangler command button, for example, eclipes, circle.?
0
jsilk
Asked:
jsilk
1 Solution
 
DalinCommented:
jsilk,
Try the following code (it works). If you have any questions, let me know
Regards
Dalin

                       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

Dim rgn as Long
Dim lWidth as Long
Dim lHeight as Long

        lWidth = myCommand.Width / Screen.TwipsPerPixelX
        lHeight = myCommand.Height / Screen.TwipsPerPixelY
        rgn = CreateEllipticRgn(0, 0, lWidth, lHeight)
        SetWindowRgn MyCommand.hWnd, rgn, True

0
 
jsilkAuthor Commented:
great! Dalin.
you should get more points, but that is all i have.
thank you
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now