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

**cashman** » 10.10.2004 (Вс) 0:02

Как сделать ссылку?
Мне нужно чтобы при нажатии ссылки, браузер стоящий по умолчанию открывал ныжную мне страницу в новом броузеровском окне... причем на весь экран...
Зарание благодарен, Андрей.

**tyomitch** » 10.10.2004 (Вс) 5:28

"Может быть, мой подойдёт?" (с)
Писал три года назад, так что сейчас даже не помню, что там к чему :-)

**PATRIOT_kz** » 10.10.2004 (Вс) 18:21

2 tyomitch:
->Постоянный глюк с которым я сталкиваюсь со всеми примерами HyperLink.
Это то что если элемент поставить в конец формы, далее навести на него курсор, ссылка среагирует и если резко увести курсор за пределы формы, то он также и останется под фокусом.

2 cashman:
->По моему такие люди как мы найдут 100% рабочий вариант ссылки как у Мелкософта(r) только через лет 5, когда весь народ будет сидеть под Longhorn'ом. У которого свои крутые HyperLink'и.
Хотя знаешь попробуй создать тему с заголовком "HyperLink как у Microsoft". Может повезёт, если повезёт скинешь мне сурсы.

**cashman** » 11.10.2004 (Пн) 0:19

tyomitch писал(а):"Может быть, мой подойдёт?" (с)
Писал три года назад, так что сейчас даже не помню, что там к чему

Спасибо, но ActiveX Control - для меня дремучий лес...
Пробовал твой HyperLick... не могу его на форму вставить, пишет "Run-time erroe '481' : Invalid picture...
Я его даще на форму выложить не могу...
Пытался разобраться в коде - Дремучий-дремучий... лес...

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

P.S. все еще юзаю VB5, из-зи рус. хелпа...

**tyomitch** » 11.10.2004 (Пн) 0:39

Так, сейчас я сам попробую...

А, так вот в чём дело: :-)

)

Do not put the Hyperlink into a container
without the Picture property or with empty
one without setting its AllowRedraw property
to False. Do not put it into a container with
not-vbButtonFace BackColor, you may use the
picture of the color you want instead
and stretch it onto entire container.
Do not put it into a container with
elements drawn by container's draw methods
(Line, Circle, PaintPicture, PSet, etc.)

Если сначала задать Form.Picture, а потом уже кидать HyperLink, то действительно работает.
Зачем я так сделал, я уже не помню; исправлять тоже не буду :-)

Можешь попробовать разобраться, в чём там дело, сам.

**cashman** » 11.10.2004 (Пн) 2:39

Огромное СПАСИБО, выручил... теперь все работает...
только если уже открыта какая нибудь интернет страничка, то HyperLink в этом же окне открывает заданную страницу...
Не знаешь, как сделать так, чтоб открывал в новом окне??? и развернутом окне?..

**tyomitch** » 12.10.2004 (Вт) 0:58

В новом или в существующем окне откроется ссылка, определяется не в программе, а в настройках IE: Tools -> Internet Options -> Advanced -> Reuse windows for launching shortcuts.

Чтобы открыть ссылку в развёрнутом окне, попробуй найти в компоненте вызов ShellExecute и заменить последний параметр на vbMaximizedFocus. Впрочем, я не уверен на 100%, что это поможет.

**cashman** » 12.10.2004 (Вт) 1:17

tyomitch писал(а):Чтобы открыть ссылку в развёрнутом окне, попробуй найти в компоненте вызов ShellExecute и заменить последний параметр на vbMaximizedFocus. Впрочем, я не уверен на 100%, что это поможет.

Ты в нужном направлении мыслишь, действительно делается через Модуль (там ShellExecute), но теперь я уже добился своего...
Один мудрый чел помог, хорошо что такие есть...
С такими как он, как ты не страшно идти по тернистому пути программирования.
Благодарю за Помощь...

**marvan** » 12.10.2004 (Вт) 8:48

для тех, кто не любит ocx
'ссылка из Label
'разместите на форме Label1
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
Const SW_NORMAL = 1
Const SW_SHOW = 5

Private Sub Form_Load()
    Label1.Caption = "www.ya.ru"
    Label1.ForeColor = RGB(0, 0, 255)
    Label1.FontUnderline = True
End Sub

Private Sub Label1_Click()
    ShellExecute Me.hwnd, "open", Label1.Caption, "", "", SW_SHOW Or SW_NORMAL
End Sub

Как отформатирован этот код?

**Andrey Fedorov** » 12.10.2004 (Вт) 10:25

для тех, кто не любит ocx

Для данного случая OCX явно лишний. Кода вполне достаточно.

**tyomitch** » 12.10.2004 (Вт) 11:01

Andrey Fedorov писал(а):
для тех, кто не любит ocx

Для данного случая OCX явно лишний. Кода вполне достаточно.

А как же фичи с подчёркиванием надписи при наведении? Слишком много кода выходит-то :-)

**Andrey Fedorov** » 12.10.2004 (Вт) 11:07

Ну ты еще про курсорчик в виде руки скажи

Кода - несколько пара строчек на все.

А постоянно висящий в памяти OCX - оно лучше (подобный Label пользуют обычно лишь в форме About)? Для каждой дряни в программе по OCX-у держать - как-то оно...

Лучше уж тогда WebBrowser на форму кинуть и приятную HTML-ку со ссылками показать

**tyomitch** » 12.10.2004 (Вт) 16:55

Я за модульное программирование вместо cut-n-paste. Каждый раз писать эту "пару строчек кода", когда можно написать один раз - пошло.
А таскать за собой OCX я как раз и не советовал. В архиве, который я выложил, есть его исходники, и можно их добавлять прямо в используемый проект.

**Rodos** » 15.10.2005 (Сб) 17:00

Может кто-нибудь знает, как сделать чтобы при наведении палец появлялся? Без OCX! В MousePointer пальца нет.

**GSerg** » 15.10.2005 (Сб) 17:23

Зато custom есть...

**Rodos** » 15.10.2005 (Сб) 20:46

А выбранный CUR-файл надо прилагать к скомпилированному проекту?

**tyomitch** » 15.10.2005 (Сб) 21:22

А проверить не легче, чем тут спрашивать? ;-)

Не надо, на самом деле.

**_Мика_** » 15.10.2005 (Сб) 22:01

А не проще вот так? :roll:

Shell "explorer.exe " & "http://www.rambler.ru" :wink:

**Amed** » 15.10.2005 (Сб) 22:02

Мика, народу нужна ссылка на форме

**_Мика_** » 15.10.2005 (Сб) 22:05

Ну замечательно! Label+forecolor=vbBlue+подчеркивание :roll:

нет?

**tyomitch** » 15.10.2005 (Сб) 22:26

И чтоб палец был.

**vvs_adm** » 15.10.2005 (Сб) 23:41

И что бы подчеркивание убиралось, когда мышь с ссылки уходит.
И что бы палец в фигу превращался, если ссылка недоступна :lol:

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

HELP!.. Как сделать ссылку на интернет страничку?

HELP!.. Как сделать ссылку на интернет страничку?

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