Public WithEvents ACADApp As AcadApplication    ' Пример использования события Application
Sub Example_AcadApplication_Events()
    ' Этот пример инициализирует переменную public (ACADApp), которая
    ' будет использоваться, чтобы перехватить События AcadApplication
    '
    ' Инструкция VBA WithEvents позволяет перехватить универсальный
    ' объект с событиями, связанными с тем объектом.
    '
    ' Прежде, чем Вы будете способны вызвать любое из событий AcadApplication,
    ' Вы будете сначала должны выполнить эту процедуру.
    
    ' Мы могли получить приложение от объекта ThisDocument,
    ' но это требовало бы наличия открытого рисунка, так что мы получаем его от системы.
    Set ACADApp = GetObject(, "AutoCAD.Application.16")
End Sub
Private Sub ACADApp_BeginFileDrop(ByVal FileName As String, Cancel As Boolean)
    ' Этот пример перехватывает событие Application BeginFileDrop.
    '
    ' Это событие вызвано, когда файл рисунка перемещают в AutoCAD.
    '
    ' Чтобы вызвать это событие:
    ' 1) Удостоверяются, что выполнен пример, который инициализирует
    ' переменную public (ACADApp) связанную с этим событием.
    '
    ' 2) Перетаскивают файл рисунка AutoCAD в приложение из Рабочего столи или Проводника

    ' Используйте переменную "Cancel", чтобы остановить загрузку
    ' перемещенного файла, и переменную "FileName" для сообщения
    ' пользователю, какой файл перетянут.
    If MsgBox("AutoCAD собирается загружаться " & FileName & vbCrLf & "Вы хотите продолжить загружать этот файл? ", vbYesNoCancel + vbQuestion) <> vbYes Then
        Cancel = True
    End If
End Sub

Сайт управляется системой uCoz