2024年6月11日发(作者：)

可以使用 VBSWinCC对所有图形编辑器对象进行访问，以使图形运行环境

动态化。根据变量或周期性（例如闪烁）情况，可在执行操作（例如在按钮上单

击鼠标）时使图形对象动态化。

以下示例说明如何在鼠标单击后更改图形对象。

步骤

在以下示例中，每次单击鼠标时运行系统中圆的半径都会设置为

Dim objCircle

Set objCircle= ScreenItems("Circle1")

= 20

2.实例：

定义对象的颜

图形对象的颜色通过 RGB值（红 / 绿/ 蓝）定义。可以设置或读出图形对象

的颜色值。

20：

步骤

以下示例将 “ScreenWindow1”的填充颜色定义为蓝色：

Dim objScreen

Set objScreen = s("ScreenWindow1")

yle = 131075

lor = RGB(0, 0, 255)

3.例：

如何组态语言切换

1/18

可使用 VBS切换 WinCC的运行系统语言。最常用的是包含相应语言代码

的按钮，这些按钮位于项目的起始页上。

在 VBS中通过使用国家代码（例如，

1031 表示德语 -默认， 1033 表示英语 -

美国等）指定运行系统语言。有关所有国家代码的汇总，请参见标题为

“区域方

案 ID (LCID)图”的主题下的 VBScript基本知

识。步骤 :

使用按钮上的 “Mouseclick事”件创建 VBS动作，输入以下动作代码将运

行系统语言切换为德语：

ge = 1031

可以使用 VBS终止 WinCC运行系统，例如，通过鼠标单击，依靠变量值

或其它事件（例如，启动运行系统时密码的多次错误输入）。

要执行的操作

以下示例会终止

WinCC运行系统：

5.实例：

全局组态画面更改

简介

VBS可用于启动全局画面更改，因而会在分布式系统的客户机上显示服

务器中的画面。为此，服务器的服务器前缀必须位于目标画面之前。

要执行的操作

为按钮组态以下画面更改代码，例如：

reenName = "Serverprefix:

:New screen"

2/18