VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему? / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

19 сообщений из 19, страница 1 из 1

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022136

BamGran

Гость

Доброго времени суток всем!
Имеется код:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

Private Sub GlobalMacroStorage_QueryDocumentClose(ByVal doc As Document, ByRef Cancel As Boolean)
    'MsgBox "kt2"
    Dim tmp As String
    tmp = ActiveDocument.Name
    If (Not (LinkTab Is Nothing)) And (LinkTab.TabWindows.Tabs.Count > 0) Then
        LinkTab.TabWindows.Tabs.Remove (tmp)
    End If
End Sub
Private Sub GlobalMacroStorage_DocumentNew(ByVal doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean)
    Dim tmp4 As String
    tmp4 = ActiveDocument.Name
    If (Not (LinkTab Is Nothing)) Then
        LinkTab.TabWindows.Tabs.Add
        LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Name = tmp4
        LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Caption = tmp4
        LinkTab.TabWindows.Value = (ActiveDocument.Index - 1)
    End If
End Sub
Private Sub GlobalMacroStorage_DocumentOpen(ByVal doc As Document, ByVal FileName As String)
    Dim tmp5 As String
    tmp5 = ActiveDocument.Name
    If (Not (LinkTab Is Nothing)) Then
        LinkTab.TabWindows.Tabs.Add
        LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Name = tmp5
        LinkTab.TabWindows(LinkTab.TabWindows.Tabs.Count - 1).Caption = tmp5
        LinkTab.TabWindows.Value = (ActiveDocument.Index - 1)
    End If
End Sub

Что он должен делать, сейчас не суть. Проблема в том, что на одном компьютере всё нормально работает, на на другом просто не происходит обращения к коду при соответствующем событии (DocumentOpen,DocumentNew итд.) ...
Версии корела в обоих случаях совпадают - Х6

Интересует мнение коллективного разума, куда копать и где собака могла порыться?

...

Рейтинг:

0 / 0

25.11.2020, 17:28

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022155

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Видимо, настройки безопасности, запрет макросов и т.п.

...

Рейтинг:

0 / 0

25.11.2020, 18:01

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022169

BamGran

Гость

Shocker.Pro

Видимо, настройки безопасности, запрет макросов и т.п.

Подсказать можете, где это смотреть в Х6?
И настройки безопасности чего? Приложения, ОС, или ещё какие-то?

...

Рейтинг:

0 / 0

25.11.2020, 18:41

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022172

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Для корела не могу. Я про настройки именно приложения.
Настройки безопасности самого Корела. Запрет выполнения макросов. Куда-то туда копать надо попробовать.

...

Рейтинг:

0 / 0

25.11.2020, 18:47

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022180

BamGran

Гость

Shocker.Pro, не, так-то другие макросы выполняются.
Именно вызова моих обработчиков событий не происходит.

...

Рейтинг:

0 / 0

25.11.2020, 18:59

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022183

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А если пересоздать эти обработчики именно на этом компе? И именно через выбор из списка, а не вручную?

...

Рейтинг:

0 / 0

25.11.2020, 19:02

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022185

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Кроме того, есть уверенность, что эти обработчики принадлежат документу и переносятся вместе с документом?

...

Рейтинг:

0 / 0

25.11.2020, 19:03

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022188

BamGran

Гость

Пересоздать... так я и создавал заново. Просто не умею переносить...

Shocker.Pro

Кроме того, есть уверенность, что эти обработчики принадлежат документу и переносятся вместе с документом?

Они не обработчики документа. Они глобальные. Должны срабатывать при событии В ЛЮБОМ документе.

...

Рейтинг:

0 / 0

25.11.2020, 19:10

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022200

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

BamGran

Они не обработчики документа. Они глобальные.

Ну так если они не находятся в документе, то почему они должны переноситься при переносе документа?
Они лежат где-то в глобальном шаблоне.

...

Рейтинг:

0 / 0

25.11.2020, 19:40

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022202

BamGran

Гость

Shocker.Pro

BamGran

Они не обработчики документа. Они глобальные.

Еще раз!
Проблема не в "ОНИ НЕ ПЕРЕНОСЯТСЯ"!!!
Проблема в том, что заново созданные на другом компе обработчики НЕ ВЫЗЫВАЮТСЯ событиями, которые они должны обрабатывать...
От слова совсем.

...

Рейтинг:

0 / 0

25.11.2020, 19:46

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022203

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А у объекта Application есть эти глобальные события? Может попробовать подписаться на них через Dim WithEvents?

...

Рейтинг:

0 / 0

25.11.2020, 19:48

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022219

BamGran

Гость

Shocker.Pro

А у объекта Application есть эти глобальные события? Может попробовать подписаться на них через Dim WithEvents?

События такие у Application есть.
Про подписку через Dim WithEvents можно более развернуто? Не уловил мысль, в связи с малой компетентностью в VBA.

...

Рейтинг:

0 / 0

25.11.2020, 20:55

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022220

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

В модуле объявляется переменная типа

Код: vbnet

Public WithEvents MyApp As Application

В какой-то момент (например при открытии документа) она инициализируется

Код: vbnet

Set MyApp = Application

Ну и в том же модуле можно выбрать ее из левого выпадающего списка как источник события, а в правом списке соответственно будут все события Application, то есть сгенерированный код будет что-то вроде:

Код: vbnet

Private Sub MyApp_DocumentOpen(ByVal doc As Document, ByVal FileName As String)

...

Рейтинг:

0 / 0

25.11.2020, 21:01

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40022226

BamGran

Гость

Shocker.Pro, общий смысл уловил, завтра буду пробовать.

...

Рейтинг:

0 / 0

25.11.2020, 21:22

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40026037

BamGran

Гость

Shocker.Pro, крутил и так, и этак, всё это время, ну не хочет обработчик события вызываться!
Крутил с вариантом

Код: vbnet

Public WithEvents MyApp As Application

я имею в виду.

2 All, Будут идеи, куда смотреть?

...

Рейтинг:

0 / 0

09.12.2020, 17:29

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40026245

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

BamGran

BamGranтак-то другие макросы выполняются.
Именно вызова моих обработчиков событий не происходит.
Как вариант не так/не там создали

...

Рейтинг:

0 / 0

10.12.2020, 08:07

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40026450

BamGran

Гость

HandKot

Как вариант не так/не там создали

"Не там" исключено.
Вот про "не так", не очень уловил. Можно подробнее?

...

Рейтинг:

0 / 0

10.12.2020, 16:38

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40026722

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

BamGran

"Не там" исключено.
Вот про "не так", не очень уловил. Можно подробнее?

Нет не смогу, я не делал макросы в корел

Я исходил из того, что Вы сказали
авторИменно вызова моих обработчиков событий не происходит.

...

Рейтинг:

0 / 0

11.12.2020, 10:51

| Ответить | Цитировать | Написать

VBA в CorelDRAW X6 Один и тот-же код на одном компе работает, на другом нет. Почему?

#40026840

BamGran

Гость

2 All , причину нашел, понятнее ничего не стало.

Код: vbnet

CorelDRAW.Application.EventsEnabled

Стоит в False .

Причем попытка присвоить

Код: vbnet

CorelDRAW.Application.EventsEnabled=True

ни к чему не приводит.
Просто не изменяется значение. Хотя никаких ошибок не выдаёт.

И... что всё это значит???

...

Рейтинг:

0 / 0

11.12.2020, 14:43

| Ответить | Цитировать | Написать

19 сообщений из 19, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=40022219&tid=2154757]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	5ms
check topic access:	5ms
track hit:	31ms
get topic data:	12ms
get forum data:	3ms
get page messages:	60ms
get tp. blocked users:	2ms
others:	267ms

total:	409ms