Форма CommandButton?

[кок]

Здравсвуйте всем жителям!
Вопрос такой: как изменить CommandButton?
Например без углов, или в форме овала.

[Igor_123]

Мне кажется проще всего будет заготовить соответствующие изображения и положить их в PictureBox Or Image and use events MouseDovn, MouseUp. В них изменять рисунок.
Можно сделать контрол, использовать контрол стороннего разработчика.
Удачи!

[gaidar]

Нет, так не интересно.

Примеры контролов ищите тут:
www.vbaccelerator.com
www.pscode.com

Нужно рисовать используя API. В примерах на сайтах выше все это есть.

[tyomitch]

...а можно просто задать кнопке нужный регион.

[A.A.Z.]

Это самый простой способ (про регион). Вот пример

Код: Выделить всё

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 DeleteObject Lib "gdi32" (ByVal hObject 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()
Dim hRgn&
Me.ScaleMode = 3
hRgn = CreateEllipticRgn(Command1.Left, Command1.Top, Command1.Left + Command1.Width, Command1.Top + Command1.Height)
SetWindowRgn Command1.hWnd, hRgn, True
DeleteObject hRgn
End Sub

[Ship]

Это самый простой способ (про регион). Вот пример

Код: Выделить всё

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 DeleteObject Lib "gdi32" (ByVal hObject 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()
Dim hRgn&
Me.ScaleMode = 3
hRgn = CreateEllipticRgn(Command1.Left, Command1.Top, Command1.Left + Command1.Width, Command1.Top + Command1.Height)
SetWindowRgn Command1.hWnd, hRgn, True
DeleteObject hRgn
End Sub

У меня кнопка просто исчезла ....

[A.A.Z.]

Не может быть Например, в приаттаченном проекте (там кнопка специально выделена красным) у меня все работает. А у тебя

[neic]

Чё вы паритесь можно же просто создать UserControl

[A.A.Z.]

Лучше уж тогда универсальный контрол сделать

[neic]

Можно, я просто привёл пример!