VPF::Поменять цвет у Label при наведении

APro

Дата 31.1.2008, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1

Помогите мне добится этого красивого эффекта:

Есть Label1, при наведении он должен стать - &H000080FF& - такого цвета, но как только я убираю курсор мыши, то должен стать - &H0080C0FF&

(по умолчанию Label1 имеет &H0080C0FF&)

Добавлено через 1 минуту и 15 секунд
Попытался сам сделать - не получилось, верней получилось, но не то что хотел! При наведении меняет цвет, а при перемещении по Label1 начинает мигать из первого во второй цвет...

--------------------

Никогда не спорь с дураком, другие могут не заметить между вами разницы.
Чем реже открываешь рот, тем меньше слышишь глупостей.

Naghual

Дата 31.1.2008, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Код


Dim MouseIsOver As Boolean

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MouseIsOver Then
        MouseIsOver = False
        Label1.ForeColor = &H80C0FF
    End If
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not MouseIsOver Then
        MouseIsOver = True
        Label1.ForeColor = &H80FF&
    End If
End Sub

--------------------

Я желаю всем Счастья!

BorisVorontsov

Дата 31.1.2008, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

Цитата(Naghual @ 31.1.2008, 15:44

)

MouseIsOver

Очень плохая идея проверки положения курсора.
Надо делать SetCapture, а ещё лучше TrackMouseEvent.

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

Naghual

Дата 31.1.2008, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

BorisVorontsov, Это будет сложнее.
Задача стояла в украшении ОДНОГО лейбла!

--------------------

Я желаю всем Счастья!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »