在 WinCC 中，如何在运行系统中通过脚本来改变对象颜色（背景、边框、文本

在 WinCC 中，如何在运行系统中通过脚本来改变对象颜色（背景、边框、文本

描述
从 WinCC 7.0 开始, 包含 32 位值的颜色，并支持颜色透明度。

可以在运行系统中通过脚本改变颜色和对象元素的透明度。
颜色相关的对象元素包括背景颜色、文本颜色和边框颜色。
（诸如位置和尺寸等其它可以在运行系统中改变的对象属性，可以使用同样的方式进行组态。）

在 WinCC 中，如何在运行系统中通过脚本来改变对象颜色（背景、边框、文本

1. <font size="2">
   
2. -------------------- C-Script 1a --------------------
   
3. 
   
4. long GetPaletteColor(int ColorIndex)
   
5. {
   
6.   if (ColorIndex > 199)
   
7.   ColorIndex = 199;
   
8.   return pow(2,31) + ColorIndex;
   
9. }
   
10. 
    
11. 
    
12. 
    
13. 
    
14. -------------------- C-Script 1b --------------------
    
15. 
    
16. SetBackColor(lpszPictureName, "Testobjekt", GetPaletteColor(4));
    
17. 
    
18. 
    
19. 
    
20. -------------------- C-Script 2a --------------------
    
21. 
    
22. long CreateRGBColor32(int nRed, int nGreen, int nBlue, ...)
    
23. {
    
24.   va_list argptr;
    
25.   int Alpha;
    
26.   long Color;
    
27.   va_start (argptr, nBlue);
    
28.   
    
29.   if (argptr != NULL)
    
30.     Alpha = va_arg(argptr, int);
    
31.   else
    
32. 
    
33.   Alpha = 0;
    
34.   va_end(argptr);
    
35. 
    
36.   Color = nRed + (pow(2, 8)) * nGreen + (pow(2, 16)) * nBlue + (pow(2, 24)) * (Alpha + 1);
    
37.   return Color;
    
38. }
    
39. 
    
40. 
    
41. 
    
42. -------------------- C-Script 2b --------------------
    
43. 
    
44. SetBackColor(lpszPictureName, "Testobjekt", CreateRGBColor32(255, 60, 100, 30));
    
45. 
    
46. 
    
47. 
    
48. -------------------- VB-Script 1 --------------------
    
49. 
    
50. Dim ColorIndex
    
51. ColorIndex=5
    
52. ScreenItems("Button5").BackColor = ((-2147483648)+ColorIndex)
    
53. 
    
54. 
    
55. 
    
56. -------------------- VB-Script 2 --------------------
    
57. 
    
58. ScreenItems(揟estobject?.BackColor=RGB(70,60,100)
    
59. ScreenItems(揟estobject?.Transparency=50
    
60. </font>

复制代码