All Forums
 Категория Visio
 Форум Вопросы и ответы
 проблема с SelectionChanged
Author Previous Topic Topic Next Topic  

bas

Ukraine
4 Posts

Posted - 08/11/2003 :  13:13:47
Подскажите, если не затруднит, как отследить изменение в выделении.
Пробовал так:
Private Sub ActiveWindow_SelectionChanged(ByVal Window As IVWindow)
MsgBox Time
End Sub

Но не работает.

Заранее спасибо всем, кто откликнется

Tumanov

Russia
1198 Posts

Posted - 08/11/2003 :  16:19:48
А ассоциировать с реальным источником не забыли? Типа вот так:

Dim WithEvents tt As Visio.Window

Sub ttt()
Set tt = ActiveWindow
End Sub

Private Sub tt_SelectionChanged(ByVal Window As IVWindow)
MsgBox "Changed"
End Sub

После выполнения ttt событие начинает срабатывать.
Go to Top of Page

bas

Ukraine
4 Posts

Posted - 08/12/2003 :  09:29:32
For Tumanov: Большое человеческое спасибо! Все работает.
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)