• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Не Сворачиваются Категории Во Встроенном Виде

  • Автор темы deeeman
  • Дата начала
D

deeeman

Привет!

есть форма, на ней закладки, при переходе к нужной закладке на ней есть встроенный вид.
он отображается раскрытый. Т е все категории раскрыты по умолчанию.
галочка стоит в виде "Colllapse ...."

как победить?
 
N

nvyush

М.б. поможет @Command( [ViewCollapseAll] ) в PostOpen представления?
 
M

morpheus

deeeman
если будут свёрнуты категории - то во встроенном виде ничего не отобразиться
 
D

deeeman

М.б. поможет @Command( [ViewCollapseAll] ) в PostOpen представления?

такая команда во встроенном виде дает ошибку: "Команда не поддерживается"

как раз 8.5 клиент. но категории развернуты((
как победить?
 
S

susinmn

такая команда во встроенном виде дает ошибку: "Команда не поддерживается"

как раз 8.5 клиент. но категории развернуты((
как победить?

1. Во view вторая закладка *Collapse all when database is first opend*
2. Во вью на Postopen через Win API: для клиентов 8.x.x нажимать *Shift-*, для клиентов <8, зная кол-во категорий, сворачивать категории по отдельности, курсор на категорию и нажимать *-*
 
D

deeeman

1. Во view вторая закладка *Collapse all when database is first opend*
2. Во вью на Postopen через Win API: для клиентов 8.x.x нажимать *Shift-*, для клиентов <8, зная кол-во категорий, сворачивать категории по отдельности, курсор на категорию и нажимать *-*


и как же нажать программно жать эту чудо кнопку *Shift-*?
подскажите плиз. очень надо
 
S

susinmn

и как же нажать программно жать эту чудо кнопку *Shift-*?
подскажите плиз. очень надо

Во view в (Declarations)
Код:
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwflags As Long, Byval dwextrainfo As Long)
в Postopen
Код:
Sub Postopen(Source As Notesuiview)
On Error Resume Next
Dim s As New NotesSession
If s.NotesBuildVersion>266 Then
'keybd_event 120, 0, 0, 0 'нажатие F9, если нужно обновить view
'keybd_event 120, 0, 2, 0 'отжатие F9, если нужно обновить view

keybd_event 16, 0, 0, 0 'нажатие Shift
keybd_event 109, 0, 0, 0 'нажатие "минус"
keybd_event 16, 0, 2, 0 'отжатие Shift
keybd_event 109, 0, 2, 0 'отжатие "минус"
End If
End Sub
 
D

deeeman

susinmn

если открывать просто вид, из оутлайна то он сворачивается.
если открывать форму с закладками на которой расположен встроенный вид, то он не сворачивается... ((

есть еще способы?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!