Динамический Outline

  • Автор темы Mitya
  • Дата начала
M

Mitya

#1
Добрый день.

Просмотрел темы. Но, полного ответа так не нашел.
http://codeby.net/forum/threads/21345.html?mode=threaded
http://codeby.net/lofiversion/index.php?t14682.html
http://codeby.net/lofiversion/index.php?t11314.html

Так все же, как сделать это?

Outline - создал элемент - в подпись элемента структуры:
list:= @DbColumn("";"";View; 1);
"2. тест "+"("+@Text(@Elements(list))+")"

На вид, повесил кнопку:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Call ws.ReloadWindow
End Sub

ReloadWindow перегружает текущее окно рабочего пространства.

Вопрос:
как перейти на элемент структуры аутлайна, и отобразить?
 

VladSh

начинающий
Lotus team
11.12.2009
1 262
6
#2
Хочу мокрым, делаю жирным, а получается синим.
Вопрос: как сделать, чтобы было мокрым?
 
M

Mitya

#3
Хочу мокрым, делаю жирным, а получается синим.
Вопрос: как сделать, чтобы было мокрым?
Да хоть так:
Код:
Dim ws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Set uidb = ws.CurrentDatabase	

Call ws.OpenFrameSet( "frame" )
Call ws.SetTargetFrame( "Body" )	
Call uidb.OpenView("list")
тока данный код, в той же акции, убивает Lotus :D ... становится жирным

почему лотус ложится? не понимаю
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#4
Да хоть так:
Код:
Dim ws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Set uidb = ws.CurrentDatabase	

Call ws.OpenFrameSet( "frame" )
Call ws.SetTargetFrame( "Body" )	
Call uidb.OpenView("list")
тока данный код, в той же акции, убивает Lotus :D ... становится жирным

почему лотус ложится? не понимаю
Читай хелп. Того что там написано вполне достаточно для создания элементов аутлайна.

Добавлено:
Хочу мокрым, делаю жирным, а получается синим.
Вопрос: как сделать, чтобы было мокрым?
:D :) :) :) :lol: :lol: :lol: :lol: :lol:
 
M

Mitya

#5
Вопрос: как сделать, чтобы было мокрым?
А вот и мокрое:

Outline - создал элемент - в подпись элемента структуры:
list:= @DbColumn("";"";View; 1);
"2. тест "+"("+@Text(@Elements(list))+")"

На вид повесил акцию
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Call ws.ViewRefresh
Call ws.SetTargetFrame("left")	
Call ws.OpenPage("Test")
Call ws.SetTargetFrame("Frame")
End Sub
Тема закрыта.