Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Велиал
Зарегистрирован: 04.05.2012 Сообщения: 20
|
Добавлено: Пн Ноя 19, 2012 1:03 am Заголовок сообщения: Получить индекс активного вида |
|
|
Здравствуйте. Подскажите каким образом программно получить индекс активного вида (неважно MDL или VBA функции)? |
|
Вернуться к началу |
|
|
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Вт Ноя 20, 2012 7:26 am Заголовок сообщения: |
|
|
Код: | Function beer3() As Integer
Dim i As Integer
For i = 1 To 8
If ActiveDesignFile.Views(i).IsSelected Then
beer3 = i
Exit Function
End If
Next i
End Function
|
|
|
Вернуться к началу |
|
|
Велиал
Зарегистрирован: 04.05.2012 Сообщения: 20
|
Добавлено: Вт Ноя 20, 2012 10:15 am Заголовок сообщения: |
|
|
ActiveDesignFile.Views(i).IsSelected
Нет такого мембера |
|
Вернуться к началу |
|
|
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Вт Ноя 20, 2012 1:27 pm Заголовок сообщения: |
|
|
а вы точно VBA а не VB.NET юзаете? это проперти еще с версии 08.00.04 существует |
|
Вернуться к началу |
|
|
Велиал
Зарегистрирован: 04.05.2012 Сообщения: 20
|
Добавлено: Вт Ноя 20, 2012 2:38 pm Заголовок сообщения: |
|
|
Абсолютно (Alt+F11). Версия 08.05.01.25 х86
|
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Пн Ноя 26, 2012 10:47 am Заголовок сообщения: |
|
|
zero based index of view for last point (лень переводить )
Код: |
Dim v As Integer
v = Application.GetCExpressionValue("tcb->lstvw")
|
|
|
Вернуться к началу |
|
|
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Вт Ноя 27, 2012 2:36 pm Заголовок сообщения: |
|
|
Leonid писал(а): |
Код: |
Dim v As Integer
v = Application.GetCExpressionValue("tcb->lstvw")
|
|
Блин изврат какой-то
Чего-то я в этой жизни не понимаю |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Чт Ноя 29, 2012 7:17 am Заголовок сообщения: |
|
|
beer писал(а): | Leonid писал(а): |
Код: |
Dim v As Integer
v = Application.GetCExpressionValue("tcb->lstvw")
|
|
Блин изврат какой-то
Чего-то я в этой жизни не понимаю |
Почему изврат? Родной tcb, для старого MDL просто незаменимая вещь...
Цитата из хелпа про tcb: All transient information about the current design file and is defined in tcb.h |
|
Вернуться к началу |
|
|
|