VBNet - Форум - Как сделать обычную ссылку

Вопрос: Как сделать обычную ссылку Добавлено: 15.06.04 13:09

Автор вопроса: sYstEmiZer | ICQ: 280647023

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

Как сделать на форме обычную ссылку (например e-mail) так чтобы она отображалась также как в Эксплорере, то есть при наведении мышки становилась подчеркнутой.

Ответить

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

Номер ответа: 1 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #1	Добавлено: 15.06.04 13:22
	Нужно делать Label, который при Mouse_Move()становится Label1.FontUnderline=True а при Click() Call Shell("explorer http://vbnet.ru" Ответить

Номер ответа: 2 Автор ответа: sYstEmiZer ICQ: 280647023 Вопросов: 16 Ответов: 45	Профиль \| \| #2	Добавлено: 15.06.04 13:57
	Круто! Понял, баальшое спасибо Ответить

Номер ответа: 3 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #3	Добавлено: 15.06.04 15:22
	неа, а если у чела нет explorer.exe ??? )) Тогда лучше использовать ShellExecute, в этом случае откроется не в IE а в том браузере, который стоит по умолчанию для открытия страничек... Ответить

Номер ответа: 4 Автор ответа: sYstEmiZer ICQ: 280647023 Вопросов: 16 Ответов: 45	Профиль \| \| #4	Добавлено: 15.06.04 15:34
	Да я так и сделал. Вопрос был как сделать так, чтобы это все выглядело ссылкой. К стати первый предложенный вариант не совсем красив. Во первых, подчеркивание надо убирать, когда курсор вне надписи, а во-вторых подчеркивание "моргает" при движениях мыши. Как-то некрасиво, получается. Ну да ладно! Может кто предложит более красивое решение? Ответить

Номер ответа: 5 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #5	Добавлено: 15.06.04 15:57
	http://freevbcode.com/code/mkcHL.zip Ответить

Номер ответа: 6 Автор ответа: sYstEmiZer ICQ: 280647023 Вопросов: 16 Ответов: 45	Профиль \| \| #6	Добавлено: 15.06.04 16:07
	Привет, User Unknown! Классный примерчик! Спасибо. ЗЫ. Сколько у тебя звездочек Ответить

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

dNW

Вопросов: 30
Ответов: 683

Профиль | | #7

Добавлено: 15.06.04 16:36

to sne: Может ты имел ввиду IE?

Как это может не быть C:\windows\Explorer.exe ?

Ответить

Номер ответа: 8 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #8	Добавлено: 15.06.04 16:40
	2Hammer, Это может не быть C:\windows\Explorer.exe, так как это может быть C:\winnt\Explorer.exe, C:\win98\Explorer.exe, C:\i386\Explorer.exe и масса чего другого! А самое главное, что Shell может быть вообще другой! Например у меня стоит BlackBox. Ответить

Номер ответа: 9 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #9	Добавлено: 15.06.04 16:59
	Бесспорно - ShellExecute лучше и функциональней, но это АПИшка Ответить

Номер ответа: 10 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #10	Добавлено: 15.06.04 18:26
	hammer, хочешь программить не тока на VB, АПИ прийдется полюбить Когда делаешь через експлорер, у тебя автоматом ссылка открывается в iexplorer, если таковой в наличии... А чтобы подчеркнутой, можно по таймеру проверять, можно использовать какой-нить контрол (например PictureBox) с надписью, и использовать SetCapture/ReleaseCapture... Ответить

Номер ответа: 11 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #11	Добавлено: 15.06.04 19:08
	Знаю Ответить

Номер ответа: 12
Автор ответа:

Barsik

Разработчик Offline Client

ICQ: 343368641

Вопросов: 17
Ответов: 686

Web-сайт: barsik.newmail.ru
Профиль | | #12

Добавлено: 16.06.04 13:48

Помоему тоже неплохой код...

Private Declare Function ShellExecute Lib shell32.dll Alias _
ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOW = 5

Private Sub Command1_Click()
ShellExecute Form1.hwnd, open, httpvbnet.ru, 0, 0, SW_SHOW
End Sub

Ответить

Страница: 1 |