Конференция VBStreets

**Xaker_S** » 10.04.2003 (Чт) 4:03

Hello!!!
Нет ли такой фишки типа Click, чтобы при наведении на текст, допустим, происходило действия, там цвет менялся?

**John_mc** » 10.04.2003 (Чт) 6:07

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = "~"
End Sub

**Xaker_S** » 10.04.2003 (Чт) 9:21

Это я знаю. Дело в другом: при наведении цвет на который меняешь остается, а надо так чтобы он возвращался.

**Damage** » 10.04.2003 (Чт) 13:06

к выше преведенному коду добавь

Код: Выделить всё: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.ForeColor = RGB(255, 0, 255) End Sub

**John_mc** » 11.04.2003 (Пт) 13:42

кстати, говорят что в VB.Net появилось событие которое это делает (дейтсвует, когда убираешь мышь с объекта) :idea:

**Алекс** » 05.05.2003 (Пн) 7:12

Код: Выделить всё: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.BackColor = &HFF0000 End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.BackColor = &HFF& End Sub

**GSerg** » 05.05.2003 (Пн) 9:17

В API есть функция TrackMouseEvent, но она не будет работать с Label, потому что у него нет hwnd. Так что ответ Алекса имхо оптимален.

ЗЫ: 256 постов :wink:

**goro** » 05.05.2003 (Пн) 19:19

GSerg писал(а):В API есть функция TrackMouseEvent, но она не будет работать с Label, потому что у него нет hwnd. Так что ответ Алекса имхо оптимален.

ЗЫ: 256 постов

Поищи на www.planet-source-code.com с тестом hyperlink

**Smert** » 24.04.2006 (Пн) 21:38

Не, ответ не оптимален! :!:

вместо констант цветов типа &H000F лучше использовать константы "vb"(vbBlue,vbYellow и т.п.) Надёжнее будет

**Smert** » 24.04.2006 (Пн) 21:41

Я бы посоветовал ещё делать так:

в событии MouseMove для label'a
Label1.FontSize=16

а в MouseMove для формы
label1.fontSize=14

BV » 24.04.2006 (Пн) 21:45

2 Smert

Оправдываешь свой ник? :evil:

**Smert** » 24.04.2006 (Пн) 21:47

Но я столкнулся с проблемой, когда пользователь наводит курсор, лэйбел начинает мигать, перерисовываться и т.п.

Я решил ее так:

Код: Выделить всё: if label1.fontsize=14 then label1.fontsize=16 end if

Дело в том, что когда пользователь водит мышью, каждый раз вызывается МаусМув и лэйбл перерисовывается, а тут только один раз изменился(пользователь навёл) и такой и остаётся, пока он не уберёт курсор с лэйбла :wink:

[/code]

**Роман-вб** » 24.04.2006 (Пн) 21:48

Smert писал(а):Не, ответ не оптимален!
вместо констант цветов типа &H000F лучше использовать константы "vb"(vbBlue,vbYellow и т.п.) Надёжнее будет

Серьёзно? Надёжнее? :roll:

**Smert** » 24.04.2006 (Пн) 21:49

для BV:
ага, ёще только профиль отредактирую в поле "Откуда"

**Smert** » 24.04.2006 (Пн) 21:50

Да, надёжнее: у меня глюки были

**keks-n** » 24.04.2006 (Пн) 21:54

Нет, всё-таки правильно хотят банить за некрофилию. Конечно, если один-два раза случайно или действительно нужно, но надо же и меру знать :evil:

Теме больше трёх лет :evil:

**Роман-вб** » 24.04.2006 (Пн) 21:54

Да, надёжнее:

Сомневаюсь

у меня глюки были

Ну раз утверждаешь, спорить не буду :lol:

**Smert** » 24.04.2006 (Пн) 21:56

И раньше я не знал, чё ВБ константу(например) &H00000F переделывает в (например) &ff&.Я даже пытался с этим бороться
:oops:

Во, теперь я из Молдовы

Кстати BV ты где именно живёш :?:

Жил я в Кишинёве 3 года. Классный город :!:

**keks-n** » 24.04.2006 (Пн) 21:57

Smert
Глюки были не изза ошибок в VB, а изза ошибок в ДНК.

**Smert** » 24.04.2006 (Пн) 21:58

Мда... Так я ж и пишу, с чем боролся :oops:

**Роман-вб** » 24.04.2006 (Пн) 21:59

keks-n
А он обратного и не утверждает :lol:

BV » 24.04.2006 (Пн) 21:59

Smert писал(а):для BV:
ага, ёще только профиль отредактирую в поле "Откуда"

Видимо, ты меня не понял.

Твои посты в этой теме - жестокая некрофилия. Теме больше двух лет.
И это никак не относится к тому, откуда ты будешь.

**Smert** » 24.04.2006 (Пн) 22:00

Не ошибок в ДНК нет, руки отрихтовал

**Smert** » 24.04.2006 (Пн) 22:03

Да я понял что не относиться. Чел спросил, я ответил в меру своих нубовских знаний :oops:

Не некрофил и не педофил и не наркоман я!!! :!:

**keks-n** » 24.04.2006 (Пн) 22:03

Smert
Если ты не нашёл ошибок, то это не значит, что их нет, это значит, что у тебя плохой отладчик...

**Smert** » 24.04.2006 (Пн) 22:04

Мда, наверно придётся переходить на Read-Only

**Роман-вб** » 24.04.2006 (Пн) 22:06

Smert
Это наилучшее решение. Молодец.

**keks-n** » 24.04.2006 (Пн) 22:07

Smert
Просто не поднимай старые топики без особых на то причин-народу это не очень нравится...

**Smert** » 24.04.2006 (Пн) 22:08

Хотя мы это и не по теме, ну ладно, но далеко не счиас :wink:

**Smert** » 24.04.2006 (Пн) 22:08

Я не про топики, я про решение Read-Only

Конференция VBStreets

Смена цвета label при наведении мыши

Смена цвета label при наведении мыши

Кто сейчас на конференции