Solved

make non-rectangler button

Posted on 1998-06-05
2
135 Views
Last Modified: 2010-05-03
how do i make non-rectangler command button, for example, eclipes, circle.?
0
Comment
Question by:jsilk
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 9

Accepted Solution

by:
Dalin earned 150 total points
ID: 1462629
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
 

Author Comment

by:jsilk
ID: 1462630
great! Dalin.
you should get more points, but that is all i have.
thank you
0

Featured Post

Revamp Your Training Process

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Microsoft Access combo box help 2 57
How to compare ms sql hashbytes results within vb6 5 105
Macro Excel - Multiple If conditions 2 92
transition to visual .net from vb6 5 77
Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question