Button

[Mrakobes]

Как сделать обыкновенную кнопку плоской, без границ? Чтобы границы появлялись только при наведении?
По форуму не нашел....

[JohnK]

Придется делать свой контрол...

[Mario]

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Const BS_FLAT = &H8000 ' плоская кнопка или нет
Private Const GWL_STYLE = (-16)

' Расположение текста на кнопке command1
Private Const BS_LEFT = &H100
Private Const BS_RIGHT = &H200
Private Const BS_CENTER = &H300
Private Const BS_TOP = &H400
Private Const BS_BOTTOM = &H800



Private Sub Form_Load()
Dim tmp As Long ' стиль кнопки
tmp = GetWindowLong(Command1.hWnd, GWL_STYLE)
tmp = tmp + BS_LEFT + BS_FLAT
Call SetWindowLong(Command1.hWnd, GWL_STYLE, tmp)
End Sub

Только границы остаются!!!!
Может можно и это подправить...?!

[beat_swamp]

можно вместо кнопки сделать лейбел1 и в событие dragover отрисовывать границу1

[Vladimir!]

Второй вариант гораздо проще.

[JohnK]

Да не заморачивайся, beat_swamp дело говорит.
Эффект 200% а работы 5 сек!

[Cryonyx]

А не пробовали Forms 2.0 использовать. Там, если не ошибаюсь, у кнопки туева хуча стилей, и их можно менять...