Описание
Генерируется перед созданием версии обьекта
Опеделение
| Visual Basic |
|---|
Public Event VersionBeforeCreate( _ ByVal pSrcObject As TDMSObject, _ ByRef bCancel As Boolean _ ) |
Параметры
- pSrcObject
- Обьект от которого создается версия
- bCancel
- TRUE - отменить действие
Пример
| VB Script (Visual Basic) |  Скопировать код |
|---|---|
'====================================================================== 'Текст обработчика должен быть размещен в скрипте профиля или 'общесистемном скрипте. Sub Version_BeforeCreate(Obj, Cancel) msg = "Вы точно хотите создать новую версию объекта """ & Obj.Description & """ ?" If (MsgBox(msg, vbYesNoCancel + vbQuestion, "Открытие окна свойств объекта") <> VbYes) Then Cancel = True End If End Sub '====================================================================== | |