Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Параметры кнопок и форм

Автор: Веди 25.11.2016, 03:41

всем, привет!

есть несколько вопросов:
1. после нажатия на кнопку на ней появляется фокус - отвратительная пунктирная линия, как сделать что бы она не появлялась?
2. можно ли сделать кнопки например со скруглёнными краями или вообще круглые?
3. как разукрасить кнопку, можно ли на неё *.jpeg прицепить?
4. как сделать подсказку на кнопке при наведении на неё мыша?
5. приложение перетаскивается обычно за полоску названия, как и где указать что бы перетаскивать за любое место?

Автор: Akina 25.11.2016, 07:53

1) Изменить стиль.
2, 3) Штатно нет. Дополнительными компонентами да. Где брать? ищи...
4) Свойство ToolTipText.
5) Штатно не реализовано.

Автор: Веди 25.11.2016, 10:45

1. где изменить, можно подробнее?
2,3,5. что значит штатно и есть ли названия у кмпонентов?
4. подсказки получились

спасибо за ответы!

Автор: Akina 25.11.2016, 12:10

Цитата(Веди @ 25.11.2016, 11:45

)

что значит штатно

искаропки

Автор: Веди 25.11.2016, 14:45

кстати по "5. приложение перетаскивается обычно за полоску названия, как и где указать что бы перетаскивать за любое место?" нашёл решение:

Код


Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
Call ReleaseCapture
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub

может кому пригодиться..