加载中…CITECT2018R2过程分析器设置游标粗细和颜色
(2023-09-03 17:38:15)
标签：
施耐德过程分析器citectvbacitect2018r2游标粗细和颜色 |
分类： 施耐德PLC |
在前一个练习基础上设置一下游标的粗细和颜色，让其更加醒目。在过程分析器初始化脚本中设置游标位置添加后面设置游标粗细和颜色
hCursor.width=5
hCursor.color=255
游标粗细数值范围是1至8，颜色按照VB函数RGB的计算结果来写颜色对应的数值。整个控件初始化脚本如下：
Sub PAIni()
'趋势控件初始化，现时显示游标、数据板命名、趋势笔命名，标签位置规范排列
Dim pa As Object
Dim hPanes As Object
Dim hPane As Object
Dim hPens As Object
Dim hPen As Object
Dim hcursor As Object
Dim value1,value2
Dim asLocal As Boolean
Dim cursorTime As Date
Dim milli As Integer
Dim cursorValue As String
asLocal = -1
'取本地时间
Set pa=trend1_AN4'趋势控件
Set
hCursor=pa.cursors.create("游标处的数值",500)
hCursor.visible=true
hCursor.width=5
hCursor.color=255
Set hPanes=pa.Panes
Set hPane=hPanes.item(1)
hPane.Name="趋势笔标签自定义单位练习"
Set hPens=hPane.Pens
Set hPen=hPens.item(1)
hCursor.PenlabelX(hPen)=100
hCursor.PenlabelY(hPen)=40
hPen.Name="流量1"
hCursor.PenLabelHeight(hPen)=100
hCursor.PenLabelWidth(hPen)=150
hPen.VerticalAxisLabelType=35
Set hPen=hPens.item(2)
hCursor.PenlabelX(hPen)=300
hCursor.PenlabelY(hPen)=40
hPen.Name="浓度1"
hCursor.PenLabelHeight(hPen)=100
hCursor.PenLabelWidth(hPen)=150
hPen.VerticalAxisLabelType=35
End Sub
喜欢
0
赠金笔