Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: LinkLabel и шрифт Добавлено: 10.12.03 00:05  

Автор вопроса:  Anry Deriabine
Подскажите, как при наведении мыши на эту штуку изменить цвет шрифта?

Ответить

  Ответы Всего ответов: 8  

Номер ответа: 1
Автор ответа:
 ol2003



Вопросов: 3
Ответов: 122
 Профиль | | #1 Добавлено: 10.12.03 00:24
При событии MouseMove придаешь одно значение BackColor, апри собтии MouseLeave - восстнавлвашь прежнее.

Ответить

Номер ответа: 2
Автор ответа:
 ol2003



Вопросов: 3
Ответов: 122
 Профиль | | #2 Добавлено: 10.12.03 00:26
Миль пардон, mon cher ami, я имел в виду конечно же ForeColor

Ответить

Номер ответа: 3
Автор ответа:
 Anry Deriabine



Вопросов: 14
Ответов: 29
 Профиль | | #3 Добавлено: 10.12.03 01:15
Спсибо,попробую

Ответить

Номер ответа: 4
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #4
Добавлено: 10.12.03 11:11
А события MouseEnter там нет?

Ответить

Номер ответа: 5
Автор ответа:
 ol2003



Вопросов: 3
Ответов: 122
 Профиль | | #5 Добавлено: 11.12.03 00:44

Ехидный ты мужк, Паша!

Конечно есть, это вопрос вкуса, кто-то любит когда Enter, а кто-то когда Move и Leave. Особливо mouse.

Ответить

Номер ответа: 6
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #6
Добавлено: 11.12.03 09:23
Ничего ехидного в себе не вижу :)
Просто видишь, какое дело: MouseMove будет срабатывать постоянно, пока
ты мышкой над контролом елозишь, а MouseEnter - только один раз, когда
мышь попала на контрол. Так зачем расходовать попусту ресурсы системы.

Ответить

Номер ответа: 7
Автор ответа:
 Anry Deriabine



Вопросов: 14
Ответов: 29
 Профиль | | #7 Добавлено: 13.12.03 01:46

Private Sub LinkLabel2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel2.MouseHover

Me.LinkLabel2.ForeColor = Color.Red

Me.LinkLabel2.Font = New Font("Comic Sans MS", 25.75!, FontStyle.Bold)

End Sub

Чо то не работает !!!!!!!

Чо делать-то ???????? 

Ответить

Номер ответа: 8
Автор ответа:
 ol2003



Вопросов: 3
Ответов: 122
 Профиль | | #8 Добавлено: 14.12.03 05:59

Делай так:

Private Sub LinkLabel1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel1.MouseEnter

LinkLabel1.LinkColor = Color.Chocolate

LinkLabel1.Font = New Font("Comic Sans MS", 25.75!, FontStyle.Bold)

End Sub

Private Sub LinkLabel1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel1.MouseLeave

LinkLabel1.LinkColor = Color.Blue

LinkLabel1.Font = New Font("Comic Sans MS", 10.75!, FontStyle.Regular)

End Sub

 

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам