...What About "Odd Shaped" Buttons In VB...

[CubeE101]

This is a continuation of the other thread on Odd Shaped Windows...
thread222-444672

How Do You Create Odd Shaped Buttons in VB...

Do You Need to create additional controls or is there something similar to:
Option Explicit
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 Sub Form_Load()
SetWindowRgn Me.hWnd, CreateEllipticRgn(0, -1, 532, 322), True
End Sub
...that you can use for buttons also (or even the same code modified?)

Also...
is there a contents listing of the gdi32.DLL ? Sometimes... the BASIC things in life are the best...

or at least the most fun ;-)
-Josh Stribling

 

[strongm]

A button is just a window

 

[CubeE101]

Cool...
Using the methods from: Thread222-444672

Command1.Width = 16
Command1.Height = 16
SetWindowRgn Command1.hWnd, CreateEllipticRgn(0, 0, 16, 16), True
Sometimes... the BASIC things in life are the best...

or at least the most fun ;-)
-Josh Stribling

 

[CubeE101]

Does anyone know how to remove the normal button functions from a button...

1) I set the Style to Flat from 3D and nothing changed...

2) How do you remove the dashed box from a selected button?

3) is there a way to disable the button from moving down and right when pressed?

-Thnx-
 Josh

Sometimes... the BASIC things in life are the best...

or at least the most fun ;-)
-Josh Stribling

 

[CubeE101]

Never Mind... (Duh)

You can use a PictureBox instead of a command button... Sometimes... the BASIC things in life are the best...

or at least the most fun ;-)
-Josh Stribling

 

[strongm]

Yep - don't use a button, use a picturebox...

 

[PraveenMenon]

Odd shaping? i've experimented a lot on this...

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=32607&lngWId=1

All the Best
Praveen Menon
pcmin@rediffmail.com