<index><STRONG>Как программно создать гиперссылку?</STRONG> <DIV cl

Тема в разделе "Lotus - Программирование", создана пользователем vvlad, 21 фев 2007.

  1. vvlad

    vvlad Well-Known Member

    Регистрация:
    19 янв 2007
    Сообщения:
    63
    Симпатии:
    0
    Hi all!
    Помогите разобраться.
    Мне необходимо по нажатию кнопки в RT поле (body в форме memo) создавать гиперссылку.

    Если делать это "руками", то нужного мне результата можно добиться так:
    Выделяю текст в RT поле, жму Create/Hotspot/Link Hotspot, указываю тип содержимого "урл",
    указвыаю значение "\\server\share\file1".

    Не могу придумать, как реализовать создание такого хотспота программно.

    Есть идеи? Направьте пож. меня в нужное русло....

    Спасибо!
     
  2. Ogion7

    Ogion7 Гость

    Попробуй так -- Link hotspot сделай с ким нибудь условием скрытия. Сделай скрытое поле, в которое будеш записывать URL. В хотспоте в свойствах Value укажи это поле. На кнопку вешаеш перкатывание URL куда следует, и в коде той же кнопки делаеш так чтобы условие скрытие было false.
     
  3. vvlad

    vvlad Well-Known Member

    Регистрация:
    19 янв 2007
    Сообщения:
    63
    Симпатии:
    0
    Гм...
    Можно конечно и так, но этот вариант подразумевает наличие готового хотспота, чего не хотелось бы...

    В R5, при сохранении документа по форме "Memo" в почтовой базе есть такая фича:
    на любой текст вида "http://xxx.xxx" после сохранения дока накладывается хотспот
    с урлом "http://xxx.xxx". Не пойму как это реализовано...

    Это в как раз то, что мне нужно...как бы этот код найти...
     
  4. Ogion7

    Ogion7 Гость

    Создать хотспотлинк в коде не выйдет, ибо его как итема в документе нет. По крайней мере скриптом точно. А текст после создания линка можна просто удалить. Выглядеть будет точно как ты хочеш.

    С потовой базы снял копию, открыл в дизайнере. Ниче не понял :) Может отладчик поможет...
     
  5. Гость

    А подскажите как запустить отладчик в лотусе, ксати :unsure:
     
  6. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    File-Tools-Debug LS
     
  7. Wanderer

    Wanderer Lotus team
    Lotus team

    Регистрация:
    23 мар 2006
    Сообщения:
    369
    Симпатии:
    14
    В меню Lotus Notes (англ.версия):
    File - Tools - Debug LotusScript

    В русском ищите по аналогии :)
     
  8. Гость

    Спасибо! :)
     
  9. vvlad

    vvlad Well-Known Member

    Регистрация:
    19 янв 2007
    Сообщения:
    63
    Симпатии:
    0
    <!--QuoteBegin-Ogion7+21:02:2007, 17:54 -->
    <span class="vbquote">(Ogion7 @ 21:02:2007, 17:54 )</span><!--QuoteEBegin-->Создать хотспотлинк в коде не выйдет...[/quote]

    Вышло :)
    Только немного через одно место, но зато работает!

    Если кому интересно - вот код кнопки, которая создает Hotspotlink на указанный файл в текущем RT поле:
    Код (Text):
    Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = workspace.CurrentDocument
    filelink = workspace.openFileDialog(False, "Выберите файл", "", "c:\", "")
    If Isempty(filelink)Then
    Exit Sub
    End If
    fileNum% = Freefile()
    fileName = Environ("Temp") & "\temp.html"
    Open fileName For Output As fileNum%
    Print #fileNum%, |<a href="|+filelink(0)+|">|+filelink(0)+|</a>|
    Close FileNum%
    Call uidoc.Import("HTML file", fileName)
    End Sub
     
  10. Ogion7

    Ogion7 Гость

    Спасибо, терь буду знать :)
     
  11. Ogion7

    Ogion7 Гость

    Но интересней было бы явно создать хотспот :ph34r:
     
Загрузка...

Поделиться этой страницей