ТОС

Question

Задача: в зависимости от пользователя, таблица содержания должна быть либо открыта, либо закрыта, для лучшего обзора карты. Возникла проблема, как программно  в VBA задать это свойство?

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

может быть кто-нибудь знает, какими командами проверить текущее состояние ТОС и далее включить-выключить по необходимости?

 

Answer 1

Превед!

Показываем ТОС

Sub ShowTOC()
  
   If Not Application.IsDialogVisible(esriMxDlgContents) Then
     Application.ShowDialog esriMxDlgContents, True
   End If
  
End Sub

Закрываем

Sub HideTOC() '
  
   If Application.IsDialogVisible(esriMxDlgContents) Then
     Application.ShowDialog esriMxDlgContents, False
   End If
  
End Sub

Answer 2

весьма признательна за помосчь!  простоты такой сама б не скоро достигла, потому - восхищенный взгляд в вашу сторону и всякие устные благодарности за внимание к нашей проблеме

позвольте и дальше расчитывать на доброту душевную!

Answer 3

Что то я, последнее время, девушкам помогаю
Буду рад помочь, токма про основы работы с языками не спрашивайте