WINCC-图形编辑器使用外部宏.pptxVIP

WINCC图形编辑器使用外部宏;1.在VB6中创建加载宏;加载宏名;3.添加工程引用，WinCC图形编辑器1.0类型库;设置工程属性

;添加代码;使用以下程序代码替换整个程序代码;DimWithEventsThisAddinAsgrafexe.AddinHook‘声明ThisAddin变量为宏连接

DimWithEventsGrafAppAsgrafexe.Application‘声明GrafApp变量为图形设计

‘连接

PrivateSubAddInInstance_OnConnection(ByValApplicationAsObject,ByValConnectModeAsAddInDesignerObjects.ext_ConnectMode,ByValAddInInstAsObject,custom()AsVariant)

OnErrorGoToAddInInstance_OnConnection_Error

DimGDApplicationAsgrafexe.Application

SetGDApplication=Application‘设置应用程序变量

If(NotGDApplicationIsNothing)Then

SetThisAddin=GDApplication.Addins.Attach(sbAddinFilterNone,CreateRectangle)

SetGrafApp=GDApplication

RegisterApplicationMenus‘添加菜单

EndIf

ExitSub

AddInInstance_OnConnection_Error:

MsgBoxErr.Description

EndSub

‘去除连接

PrivateSubAddInInstance_OnDisconnection(ByValRemoveModeAsAddInDesignerObjects.ext_DisconnectMode,custom()AsVariant)

OnErrorGoToAddInInstance_OnDisconnection_Error

If(RemoveMode=ext_dm_UserClosed)Then

RemoveApplicationMenus

EndIf

SetThisAddin=Nothing

SetGrafApp=Nothing

ExitSub

AddInInstance_OnDisconnection_Error:

MsgBoxErr.Description

EndSub

‘增加用户菜单

PrivateSubRegisterApplicationMenus()

DimobjDocMenuAsHMIMenu

DimobjMenuItemAsHMIMenuItem

SetobjDocMenu=GrafApp.CustomMenus.InsertMenu(1,DocMenu1,Doc_Menu_1)

SetobjMenuItem=objDocMenu.MenuItems.InsertMenuItem(1,dmItem1_1,Myfirstmenuentry)

SetobjMenuItem=objDocMenu.MenuItems.InsertMenuItem(2,dmItem1_2,Mysecondmenuentry)

SetobjMenuItem=Nothing

SetobjDocMenu=Nothing

EndSub;PrivateSubRemoveApplicationMenus()ThismethodremovestheAddInmenusavailableinGraphicsDesigner

DimobjDocMenuAsHMIMenu

DimobjMenuItemAsHMIMenuItem

ForEachobjMenuItemInGrafApp.CustomMenus(DocMenu1).MenuItems

SetobjMenuItem=Nothing

NextobjMenuItem

GrafA