Вставка ссылки в textarea

[Дмитpий]

Подскажите, как это сделать.
В форме есть поле textarea и кнопка button. Нужно, чтобы при выделении части текста в окне textarea и клике по кнопке button "выскакивало" окно InputBox(). В поле вводится URL-адрес. После клика по "Enter'у" выделенный текст в textarea должен стать ссылкой на страницу, адрес которой вводился в InputBox.
Возможно ли это? Если да, то как?

[aaf]

С textarea (я надеюсь мы про VB говорим, т.к. textarea есть в HTML , а в VB есть tekstbox, у которого сво-во multiline=true) у тебя скорее всего не получится. Для отображения ссылок можно использовать контрол WebBroser - он для этого и предназначен, что б HTML тображать.

[Tarik]

Нет, в TextBox'е так сделать нельзя. Можно попробовать порыть в сторону RTF...
Хотя... Можно пойти другим путём...

Код: Выделить всё

(Global)
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_SHOWNORMAL = 1
dim strLink as String

Private Sub Command1_click()
strLink=inputbox("Enter valid URL")
End Sub

Private Sub Text1_Click()
if strLink="" then exit sub 'выходим из процедуры, если адрес не задан
ShellExecute Me.hwnd, vbNullString, strLink, vbNullString, "c:\", SW_SHOWNORMAL
End Sub


Но в этом случае переход по ссылке произойдёт при нажатии на ЛЮБОЕ место TextBox'а.

[Sirik]

Вот смотри (сделал за 25 минут).

Правда, есть ряд ограничений для ссылок:
1. ссылка должна быть разделена пробелами слева и справа.
2. нельзя переходить по ссылке когда в textarea выделенный фрагмент.

Вобщем разбирайся, будут вопросы пиши.