搬家第五天-96.Wincc V7.3 Activex控件使用1-ccdiskspace

wincc的activex控件内容丰富，本文介绍其中ccdiskspace控件的使用，这个控件是用棒图显示磁盘空间使用情况。在画面上放置一个ccdiskspace控件，名字修改为Space。放置8个静态文本，名字修改为txt1至txt8。在画面打开事件中写入一下vbs脚本

Sub OnOpen()      
Dim ctrlSpace
Dim txt1,txt2,txt3,txt4,txt5,txt6,txt7,txt8
Set ctrlSpace=ScreenItems("Space")
Set txt1=ScreenItems("txt1")
Set txt2=ScreenItems("txt2")
Set txt3=ScreenItems("txt3")
Set txt4=ScreenItems("txt4")
Set txt5=ScreenItems("txt5")
Set txt6=ScreenItems("txt6")
Set txt7=ScreenItems("txt7")
Set txt8=ScreenItems("txt8")
txt1.Text ="磁盘:"
txt2.Text =ctrlSpace.Drive
txt3.Text="总容量:"
txt4.Text=ctrlSpace.Total
txt5.Text="已使用:"
txt6.Text=ctrlSpace.Used
txt7.Text="剩余:"
txt8.Text=ctrlSpace.Free

ctrlSpace.Drive="c"

ctrlSpace.Warning=0.70 '使用空间超过70%达到警告条件
ctrlSpace.Activate=0.85  '使用空间超过85%达到报警条件

ctrlSpace.NormalColor =vbGreen  '正常使用空间绿色
ctrlSpace.WarningColor =vbYellow '达到警告使用空间黄色
ctrlSpace.AlarmColor =vbRed '达到报警使用空间黄色 
End Sub

 

保存运行，当画面打开的时候就可以显示出c盘的吃饭使用情况。在wincc变量管理中添加sysinfo驱动使用系统变量也可以做这种统计。