System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)

Подождите немного. Документ загружается.

3. To define multilingual labels for a user-defined menu, you can for example insert a

"MultipleLanguagesForAppMenu1()" procedure in the document. In this example English

labels are defined for the "App_Menu_1" menu:

Sub InsertMenuItems()

'VBA5

'Execute this procedure first

Dim objMenu1 As HMIMenu

Dim objMenu2 As HMIMenu

Dim objMenuItem1 As HMIMenuItem

Dim objSubMenu1 As HMIMenuItem

'Insert Menu:

Set objMenu1 = Application.CustomMenus.InsertMenu(1, "AppMenu1",

"App_Menu_1")

'Next lines inserts menu-items to userdefined menu.

'parameters are "Position", "Key" and DefaultLabel:

Set objMenuItem1 = objMenu1.MenuItems.InsertMenuItem(1,

"mItem1_1", "App_MenuItem_1")

Set objMenuItem1 = objMenu1.MenuItems.InsertMenuItem(2,

"mItem1_2", "App_MenuItem_2")

'Inserts seperator into menu ("Position", "Key")

Set objMenuItem1 = objMenu1.MenuItems.InsertSeparator(3,

"mItem1_3")

'Inserts a submenu into a userdefined menu

Set objSubMenu1 = objMenu1.MenuItems.InsertSubMenu(4, "mItem1_4",

"App_SubMenu_1")

'Inserts a menu-item into a submenu

Set objMenuItem1 = objSubMenu1.SubMenu.InsertMenuItem(5,

"mItem1_5", "App_SubMenuItem_1")

Set objMenuItem1 = objSubMenu1.SubMenu.InsertMenuItem(6,

"mItem1_6", "App_SubMenuItem_2")

End Sub

Sub MultipleLanguagesForAppMenu1()

' execute this procedure after "InsertMenuItems()" was run

'Object "objLanguageTextMenu1" contains the

'foreign-language labels for the menu

Dim objLanguageTextMenu1 As HMILanguageText

'Object "objLanguageTextMenu1Item" contains the

'foreign-language labels for the menu-items

Dim objLanguageTextMenuItem1 As HMILanguageText

Dim objMenu1 As HMIMenu

Dim objSubMenu1 As HMIMenuItem

Set objMenu1 = Application.CustomMenus("AppMenu1")

Set objSubMenu1 =

Application.CustomMenus("AppMenu1").MenuItems("mItem1_4")

'Inserts foreign-language label into a menu:

'("Add(LCID, DisplayName)" method:

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1581

Set objLanguageTextMenu1 = objMenu1.LDLabelTexts.Add(1033,

"English_App_Menu_1")

'Inserts foreign-language label into a menuitem:

Set objLanguageTextMenuItem1 =

objMenu1.MenuItems("mItem1_1").LDLabelTexts.Add(1033, "My first

menu item")

'Adds a foreign-language label into a submenu:

Set objLanguageTextMenuItem1 =

objSubMenu1.SubMenu.Item("mItem1_5").LDLabelTexts.Add(1033, "My

first submenu item")

End Sub

4. Start the procedure with <F5>.

Result

If you now switch the configuring language to English, certain items in the user-defined menu

are shown in English.

See also

LanguageTexts Object (Listing) (Page 1893)

LDLabelTexts Property (Page 2186)

How to Assign VBA Macros to Menus and Toolbars (Page 1589)

How to Assign Help Texts to Menus and Toolbars (Page 1586)

How to Add a New Menu Item to the Menu (Page 1577)

How to Create a New Application-Specific Menu (Page 1575)

Configuring Menus and Toolbars (Page 1572)

Creating Customized Menus and Toolbars (Page 1573)

Language-Dependent Configuration with VBA (Page 1570)

How to Create a New Application-Specific Toolbar

Introduction

Application-specific toolbars remain visible even when all pictures in the Graphics Designer

are closed.

Position the VBA code either

● in the "GlobalTemplateDocument" if you want the toolbar to be available in all projects, or

● in the "ProjectTemplateDocument" if you want the toolbar to be available in the current

project.

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1582

System Manual, 11/2008,

Procedure

1. Open the VBA editor in Graphics Designer (<ALT+F11> or "Tools" > "Macros" > "Visual

Basic Editor")

2. In Project Explorer, open the document in which you want to write the VBA code:

3. To create a user-defined toolbar in the Graphics Designer, you can for example insert a

"CreateApplicationToolbars()"

procedure in the document. In this example two user-defined

toolbars are created:

Sub CreateApplicationToolbars()

'VBA6

'Declare toolbar-objects...:

Dim objToolbar1 As HMIToolbar

Dim objToolbar2 As HMIToolbar

'Add the toolbars with parameter "Key"

Set objToolbar1 = Application.CustomToolbars.Add("AppToolbar1")

Set objToolbar2 = Application.CustomToolbars.Add("AppToolbar2")

End Sub

4. Start the procedure with <F5>.

Result

The two toolbars are inserted beneath the Graphics Designer toolbars.

See also

Add Method (CustomToolbars Listing) (Page 1708)

How to Assign VBA Macros to Menus and Toolbars (Page 1589)

How to Assign Help Texts to Menus and Toolbars (Page 1586)

How to Add a New Icon to the Toolbar (Page 1584)

Configuring Menus and Toolbars (Page 1572)

Creating Customized Menus and Toolbars (Page 1573)

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1583

How to Add a New Icon to the Toolbar

Requirements

You must have created the user-defined toolbar first.

Introduction

You can insert two different types of objects in the user-defined toolbar:

● Symbol: To call VBA macros.

● Separator line: For clearer design of user-defined toolbars.

The "Position" parameter determines the order of the icons within the user-defined toolbar.

The "Key" parameter is a unique identification of the icon. This parameter is used if you use

the "ToolbarItemClicked" event for calling VBA macros.

Procedure

1. Open the VBA editor in Graphics Designer (<ALT+F11> or "Tools" > "Macros" > "Visual

Basic Editor")

2. In Project Explorer, open the document in which you want to write the VBA code:

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1584

System Manual, 11/2008,

3. To create icons in a previously created user-defined toolbar, you can for example insert an

"InsertToolbarItems()"

procedure in the document. In this example, two icons separated by

a separator line are created in the user-defined toolbar "AppToolbar1":

Sub InsertToolbarItems()

'VBA7

Dim objToolbar1 As HMIToolbar

Dim objToolbarItem1 As HMIToolbarItem

'Add a new toolbar:

Set objToolbar1 = Application.CustomToolbars.Add("AppToolbar1")

'Adds two toolbar-items to the toolbar

'("InsertToolbarItem(Position, Key, DefaultToolTipText)"-Methode):

Set objToolbarItem1 =

objToolbar1.ToolbarItems.InsertToolbarItem(1, "tItem1_1", "First

Symbol-Icon")

Set objToolbarItem1 =

objToolbar1.ToolbarItems.InsertToolbarItem(3, "tItem1_2", "Second

Symbol-Icon")

'Adds a seperator between the two toolbar-items

'("InsertSeparator(Position, Key)"-Methode):

Set objToolbarItem1 = objToolbar1.ToolbarItems.InsertSeparator(2,

"tSeparator1_3")

End Sub

4. Start the procedure with <F5>.

Results

The "InsertToolbarItems()" procedure adds a toolbar with two icons, separated by a dividing

line, to the Graphics Designer toolbars:

Note

Use the icon property in order to specify a graphic (*.ICO format) for a tool icon.

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1585

See also

Creating Customized Menus and Toolbars (Page 1573)

Icon Property (Page 2144)

InsertSeparator Method (Page 1766)

InsertToolbarItem Method (Page 1769)

How to Assign VBA Macros to Menus and Toolbars (Page 1589)

How to Assign Help Texts to Menus and Toolbars (Page 1586)

How to Create a New Application-Specific Toolbar (Page 1582)

Configuring Menus and Toolbars (Page 1572)

How to Assign Help Texts to Menus and Toolbars

Requirements

You must have created the user-defined menu or the user-defined toolbar first.

Introduction

When the configuring engineer moves the mouse over a user-defined menu item or over a

user-defined

icon, you can provide additional help text to explain the functionality in more detail:

● You can define a help text for user-defined menu items and icons; the help text is displayed

in the status bar.

● For user-defined icons, the default option is to create the help text as a tooltip.

You can also define status texts and tooltip texts for other languages.

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1586

System Manual, 11/2008,

Procedure

1. Open the VBA editor in Graphics Designer (<ALT+F11> or "Tools" > "Macros" > "Visual

Basic Editor")

2. In Project Explorer, open the document in which you want to write the VBA code:

3. To assign a status text to a user-defined menu item, you can for example insert an

"AddStatusTextsToAppMenu1()" procedure in the document. In this example one status

text in German and one in English is assigned to the first menu item in the previously created

"AppMenu1" menu:

Sub AddStatusTextsToAppMenu1()

'VBA8

Dim objMenu1 As HMIMenu

'Object "objStatusTextMenuItem1" contains foreign-language texts

Dim objStatusTextMenuItem1 As HMILanguageText

Set objMenu1 = Application.CustomMenus("AppMenu1")

'Assign a statustext to a menuitem:

objMenu1.MenuItems("mItem1_1").StatusText = "Statustext the first

menuitem"

'Assign a foreign statustext to a menuitem:

Set objStatusTextMenuItem1 =

objMenu1.MenuItems("mItem1_1").LDStatusTexts.Add(1033, "This is

my first status text in English")

End Sub

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1587

4. To assign status and foreign-language tool tip text to a user-defined icon on the toolbar,

insert a "AddStatusAndTooltipTextsToAppToolbar1()" procedure in the document, for

example. In this example, the first icon on the toolbar created is assigned a status text

(German/English) and an English tool tip text:

Sub AddStatusAndTooltipTextsToAppToolbar1()

'VBA9

Dim objToolbar1 As HMIToolbar

'Variable "StatusTextToolbarItem1" for foreign statustexts

Dim objStatusTextToolbarItem1 As HMILanguageText

'Variable "TooltipTextToolbarItem1 for foreign tooltiptexts

Dim objTooltipTextToolbarItem1 As HMILanguageText

Set objToolbar1 = Application.CustomToolbars("AppToolbar1")

'Assign a statustext to a toolbaritem:

objToolbar1.ToolbarItems("tItem1_1").StatusText = "Statustext für

das erste Symbol-Icon"

'Assign a foreign statustext to a toolbaritem:

Set objStatusTextToolbarItem1 =

objToolbar1.ToolbarItems("tItem1_1").LDStatusTexts.Add(1033,

"This is my first status text in English")

'Assign a foreign tooltiptext to a toolbaritem:

Set objTooltipTextToolbarItem1 =

objToolbar1.ToolbarItems("tItem1_1").LDTooltipTexts.Add(1033,

"This is my first tooltip text in English")

End Sub

5. Start the procedure with <F5>.

Results

The status text is displayed when you move the mouse pointer over the user-defined menu

item or the icon.

See also

LDTooltipTexts Property (Page 2190)

LDStatusTexts Property (Page 2188)

LanguageTexts Object (Listing) (Page 1893)

Add Method (Page 1705)

How to Assign VBA Macros to Menus and Toolbars (Page 1589)

How to Add a New Icon to the Toolbar (Page 1584)

How to Add a New Menu Item to the Menu (Page 1577)

Configuring Menus and Toolbars (Page 1572)

Creating Customized Menus and Toolbars (Page 1573)

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1588

System Manual, 11/2008,

How to Assign VBA Macros to Menus and Toolbars

Introduction

There are two possible ways for you to assign VBA macros to user-defined menus and toolbars:

● You can use either the VBA event handlers "MenuItemClicked" and "ToolbarItemClicked"

● "Macro" property.

Note

You will find the VBA code for creating the required user-defined menus and toolbars in

this

documentation under "Adding a New Menu Item to a Menu" and "Adding a New Icon

to a Toolbar".

Procedure

Assigning a VBA macro with a VBA event handler

Note

You will find further information on VBA event handlers in this documentation under "Event

Handling".

1. Open the VBA editor in Graphics Designer (<ALT+F11> or "Tools" > "Macros" > "Visual

Basic Editor")

2. In Project Explorer, open the document in which you want to write the VBA code:

3. To start a VBA macro via the VBA event handlers, use the "MenuItemClicked" or

"ToolbarItemClicked" event:

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1589

4. Insert the VBA code from the "VBA10" table.

5. Start the procedure with <F5>.

Assigning a VBA Macro using the "Macro" property

1. Open the VBA editor in Graphics Designer (<ALT+F11> or "Tools" > "Macros" > "Visual

Basic Editor")

2. In Project Explorer, open the document in which you want to write the VBA code:

3. To start a VBA macro via the Macro property, assign the VBA macro to each menu item or

icon. In the following example, a user-defined menu with two menu entries is created, which

retrieve two different VBA macros:

The VBA code of the following VBA11 example depends on the file type. The VBA code is

added as an example for a PDL and a PDT file. Both cases can be distinguished in the

following manner:

– PDL file:

The VBA code in a PDL file is only executed when this PDL file is being displayed.

– PDT file:

The VBA code in a PDT file is always executed when the Graphics Designer is open.

4. Insert the VBA code from the "VBA11" table. Sample code for PDL file or "VBA821: Sample

code for PDT file".

You can call the following two procedures via the menu items in the user-defined menu

"DocMenu1":

5. Insert the VBA code from the "VBA12" table.

6. Start the procedure with <F5>.

The following tables show the VBA codes for the example:

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1590

System Manual, 11/2008,