Ввод гиперссылок в текст

@Alexey Spirin · Регистрация: 18.10.2007

Студворк — интернет-сервис помощи студентам

Здравствуйте, Уважаемые!
Помогите плиз разобраться...
Такая ситуация.
Нужно, чтобы было поле, в которое можно вводить обычный текст (при том изменять его размер и шрифт на отдельных участках) и устанавливать гиперссылки на определенные слова (выделил слово, поставил ссылку).
Если бы не ссылки, то идеально подошел был РичТекстБокс...
Но ссылки то тоже нужны...
Какой выход посоветуете?
ОГРОМНОЕ СПАСИБО ЗА ЛЮБУЮ ПОМОЩЬ!

@Said007 · 30.12.2007, 21:57

VB: СОВЕТЫ РАЗРАБОТЧИКУ
Создание гиперссылки

Большинство современных программ сегодня содержат ссылки на веб-сайты или адреса e-mail разработчиков или технической поддержки. Для того, чтобы создать ссылки, подобные тем, как вы видите обычно в своем браузере, воспользуйтесь данным примером. В примере показано создание ссылки с эффектом 'rollover', а также поддерживается метод DragOver. Создайте метку Label с именем lblURL, присвойте свойству Caption любой правильный URL (http://relib.com или mailto:someone@microsoft.com) и скопируйте в тело формы этот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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 Sub lblURL_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is lblUrl Then
        With lblUrl
            .Font.Underline = False
            .ForeColor = vbBlack
            ' Call ShellExecute(0&, vbNullString, 'Mailto:' & .Caption, vbNullString, vbNullString, vbNormalFocus)
            Call ShellExecute(0&, vbNullString, .Caption, vbNullString, vbNullString, vbNormalFocus)
        End With
    End If
End Sub
 
Private Sub lblURL_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = vbLeave Then
        With lblUrl
            .Drag vbEndDrag
            .Font.Underline = False
            .ForeColor = vbBlack
        End With
    End If
End Sub
 
Private Sub lblURL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With lblUrl
        .ForeColor = vbBlue
        .Font.Underline = True
        .Drag vbBeginDrag
    End With
End Sub

@Alexey Spirin · 30.12.2007, 22:26 **[ТС]**

Нет... Это не то...
Мне нужно их в поле вставлять вместе с другим текстом..
Хороший пример - написание письма в Аутлуке - вот нужно как там - выделил слово, нажал накнопку - вот гиперссылка и готова...

@Said007 · 30.12.2007, 22:51

Tогда смело внедряй 'Word', он то предоставляет весь нужный тебе сервис! :P

@mt22 · 15.04.2009, 17:30

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

@kimsite · 15.04.2009, 18:02

Попробуй использовать Ariad HTML Controls Lite Edition 2.0
ahtmlle2.ocx, версия 2.0.13, GUID {E4D5D928-FD35-4D0A-92CD-F3CE02D68455}
Среди прочих бесплатных компонентов должен быть и этот - http://www.ariad-software.com/products/freewarecom.asp

@kimsite · 15.04.2009, 18:03

Попробуй использовать Ariad HTML Controls Lite Edition 2.0
ahtmlle2.ocx, версия 2.0.13, GUID {E4D5D928-FD35-4D0A-92CD-F3CE02D68455}
Среди прочих бесплатных компонентов должен быть и этот - http://www.ariad-software.com/products/freewarecom.asp

@mt22 · 16.04.2009, 09:47

Этот контрол идиально подходит когда есть обработка HTML-страниц, но мне необходима обработка обычного текста.

Необходимо добиться следующего: в текстовом контроле есть текст, в котором нужно выделить ключевые слова, и при нажатии на это слово должна загружаться соответствующая запись.
По идее алгоритм должен быть следующий:
- загружается текст в контрол
- необходимые слова выделяются другим текстом (или подчеркиваются)
- при прохождении курсора над нужным словом должно быть изменение курсора, а при нажатии на слово переход к соответствующей записи из БД.

Может быть кто-нибудь решал аналогичную проблему?

17.04.2009, 16:27

Предлагаю следующий вариант:

Используй не РичТекстБокс, а ЭУ 'Scriptlet' из MS HTML Object Library. Пока в него тебе загружать нечего - у тебя ведь на руках только текст, но не HTML-формат. Значит, нужно написать 'преобразователь', - если, конечно, тебе заранее известны слова, которые будут ссылками, их местоположение в тексте и то, куда эти ссылки будут ссылаться.

'Преобразователем' будет обычная процедура, которая будет осуществлять парсинг (разбор) твоего текстового файла. Для этого ничего сложнее операций файлового ввода/вывода (Open, Print, Input или Line Input, Seek и т.д.) не понадобится. Парсинг будет заключаться в следующем:

1. Перед всеми местами в тексте документа, НА КОТОРЫЕ идут ссылки из других мест документа, надо воткнуть 'именованные якори' (типа букмарков в Ворде). Например, для имени якоря 'NamedAnchor' это будет выглядеть так: <a name='Named_Anchor'></a>

2. Все слова (группы слов), являющиеся ССЫЛКАМИ на другие места документа, нужно заключить в теги <a href='#имя якоря'> и </a>. Например, чтобы сделать фразу 'другое место' ссылкой на упомянутый выше якорь, надо написать так: <a href='#Named_Anchor'>другое место</a>.

3. Все строки текста надо заключить в теги 'параграфа' - <p> и </p>.

4. ВЕСЬ текст надо заключить в теги <body> и </body>.

5. Всё, что получилось к этому моменту, надо заключить в теги <html> и </html>.

6. В начале файла, между тегами <html> и <body> можешь (но не обязан) воткнуть: теги <title>твой заголовок</title>, meta-теги и т.д.

То, что получилось в итоге, надо сохранить в каком-нибудь файле и свойству 'URL' ЭУ Scriptlet присвоить в качестве значения имя этого файла, приклеив к нему в начала 'file://'.

Вот пример простейшего HTML-кода:

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv='Content-Type' content='text/html; charset=windows-1251'>
</head>
 
<body bgcolor='#FFFFFF' text='#000000'>
<p>какой-то текст и внутри него - ссылка на <a href='#Named_Anchor'>другое место</a> 
  в этом же тексте</p>
<p>А вот и <a name='Named_Anchor'></a>другое место этого текста</p>
<p> </p>
</body>
</html>

PS: Вместо MS HTML Object Library лучше бы использовать другой аналогичный контрол, а то этот немного глючный.

@mt22 · 17.04.2009, 23:30

Все это конечно хорошо, но:
- текст и сами ссылки могут МЕНЯТЬСЯ (сегодня есть, а завтра нет), следовательно надо писать обработчик по удалению -> слишком много лишних обработчиков и процедур.

- печатаемый текст это текст из одной ячейки, и если выбирается какая-нибудь ссылка в тексте (она же заголовок новой карточки с данными), то должна подгружаться соответствующая запись с данными (она же карточка). Аналог: любой файл справки с внутренними гиперссылками, но с одним отличием - он работает с данными из базы.

18.04.2009, 15:03

Вы пишете:

> По идее алгоритм должен быть следующий:
> - загружается текст в контрол
> - необходимые слова выделяются другим текстом (или подчеркиваются)
> - при прохождении курсора над нужным словом должно быть изменение
> курсора, а при нажатии на слово переход к соответствующей записи из
> БД.

Поясните, как выделяются необходимые слова - их выделяют и делают ссылкой ВРУЧНУЮ, слово за словом (как в Аутлуке, как вы сами сравнили), или же программа САМА это делает (хотя далее вы пишете про ссылки, что 'сегодня есть, а завтра нет', и я предполагаю, что поэтому последний вариант нереален).

Уверен, что если больше путей не будет, то написАть это с ЭУ Scriptlet можно, хотя - вы правы - и муторно. Поэтому напрашивается вариант: хорошенько поискать на ActiveX-сайтах соответствующий контрол: наверняка он уже есть в природе. У меня такое было с гридами: сначала я кроме MS DataGrid ничего не знал, и ломал голову, как её разукрасить. Потерял кучу времени, залез в сабклассинг, пробовал сделать свой user control на базе датагрида, что-то даже наваял... А потом купил за 70 рублей в подземном переходе компакт 'Библиотека ActiveX компонент для VB' и нашёл на нём кучу 'продвинутых' гридов, где все нужные мне 'украшалки' были уже заложены в сам контрол. Резонный вопрос: что мне мешало спуститься в переход СРАЗУ, не теряя времени на возню с датагридом?! Вот и у вас, кажется, проблема из этой же оперы...

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748

	Ввод гиперссылок в текст 30.12.2007, 18:03. Показов 2126. Ответов 10 Метки нет (Все метки) Здравствуйте, Уважаемые! Помогите плиз разобраться... Такая ситуация. Нужно, чтобы было поле, в которое можно вводить обычный текст (при том изменять его размер и шрифт на отдельных участках) и устанавливать гиперссылки на определенные слова (выделил слово, поставил ссылку). Если бы не ссылки, то идеально подошел был РичТекстБокс... Но ссылки то тоже нужны... Какой выход посоветуете? ОГРОМНОЕ СПАСИБО ЗА ЛЮБУЮ ПОМОЩЬ! 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	30.12.2007, 22:26 [ТС]
	Нет... Это не то... Мне нужно их в поле вставлять вместе с другим текстом.. Хороший пример - написание письма в Аутлуке - вот нужно как там - выделил слово, нажал накнопку - вот гиперссылка и готова... 0

@Said007 0 / 0 / 0 Регистрация: 02.09.2007 Сообщений: 209
	30.12.2007, 22:51
	Tогда смело внедряй 'Word', он то предоставляет весь нужный тебе сервис! :P 0

@mt22 1 / 1 / 0 Регистрация: 03.08.2007 Сообщений: 155
	15.04.2009, 17:30
	Интересно, может быть кто-нибудь нашел за это время ответ на поставленный вопрос? 0

@kimsite 1 / 1 / 0 Регистрация: 24.07.2007 Сообщений: 178
	15.04.2009, 18:02
	Попробуй использовать Ariad HTML Controls Lite Edition 2.0 ahtmlle2.ocx, версия 2.0.13, GUID {E4D5D928-FD35-4D0A-92CD-F3CE02D68455} Среди прочих бесплатных компонентов должен быть и этот - http://www.ariad-software.com/products/freewarecom.asp 0

@kimsite 1 / 1 / 0 Регистрация: 24.07.2007 Сообщений: 178
	15.04.2009, 18:03
	Попробуй использовать Ariad HTML Controls Lite Edition 2.0 ahtmlle2.ocx, версия 2.0.13, GUID {E4D5D928-FD35-4D0A-92CD-F3CE02D68455} Среди прочих бесплатных компонентов должен быть и этот - http://www.ariad-software.com/products/freewarecom.asp 0

@mt22 1 / 1 / 0 Регистрация: 03.08.2007 Сообщений: 155
	16.04.2009, 09:47
	Этот контрол идиально подходит когда есть обработка HTML-страниц, но мне необходима обработка обычного текста. Необходимо добиться следующего: в текстовом контроле есть текст, в котором нужно выделить ключевые слова, и при нажатии на это слово должна загружаться соответствующая запись. По идее алгоритм должен быть следующий: - загружается текст в контрол - необходимые слова выделяются другим текстом (или подчеркиваются) - при прохождении курсора над нужным словом должно быть изменение курсора, а при нажатии на слово переход к соответствующей записи из БД. Может быть кто-нибудь решал аналогичную проблему? 0

@mt22 1 / 1 / 0 Регистрация: 03.08.2007 Сообщений: 155
	17.04.2009, 23:30
	Все это конечно хорошо, но: - текст и сами ссылки могут МЕНЯТЬСЯ (сегодня есть, а завтра нет), следовательно надо писать обработчик по удалению -> слишком много лишних обработчиков и процедур. - печатаемый текст это текст из одной ячейки, и если выбирается какая-нибудь ссылка в тексте (она же заголовок новой карточки с данными), то должна подгружаться соответствующая запись с данными (она же карточка). Аналог: любой файл справки с внутренними гиперссылками, но с одним отличием - он работает с данными из базы. 0

Comanche
	18.04.2009, 15:03
	Вы пишете: > По идее алгоритм должен быть следующий: > - загружается текст в контрол > - необходимые слова выделяются другим текстом (или подчеркиваются) > - при прохождении курсора над нужным словом должно быть изменение > курсора, а при нажатии на слово переход к соответствующей записи из > БД. Поясните, как выделяются необходимые слова - их выделяют и делают ссылкой ВРУЧНУЮ, слово за словом (как в Аутлуке, как вы сами сравнили), или же программа САМА это делает (хотя далее вы пишете про ссылки, что 'сегодня есть, а завтра нет', и я предполагаю, что поэтому последний вариант нереален). Уверен, что если больше путей не будет, то написАть это с ЭУ Scriptlet можно, хотя - вы правы - и муторно. Поэтому напрашивается вариант: хорошенько поискать на ActiveX-сайтах соответствующий контрол: наверняка он уже есть в природе. У меня такое было с гридами: сначала я кроме MS DataGrid ничего не знал, и ломал голову, как её разукрасить. Потерял кучу времени, залез в сабклассинг, пробовал сделать свой user control на базе датагрида, что-то даже наваял... А потом купил за 70 рублей в подземном переходе компакт 'Библиотека ActiveX компонент для VB' и нашёл на нём кучу 'продвинутых' гридов, где все нужные мне 'украшалки' были уже заложены в сам контрол. Резонный вопрос: что мне мешало спуститься в переход СРАЗУ, не теряя времени на возню с датагридом?! Вот и у вас, кажется, проблема из этой же оперы...