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 r1

Dim result1

r1=60.0

Set pa=trend1_AN4'趋势控件

Set hCursor=pa.cursors.create("游标处的数值",500)

hCursor.visible=true

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=11

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=9

End Sub

在这个画面的“进入画面时”事件写下面的cicode脚本

VbCallReturn(VbCallRun(vbcallopen("PAIni")))

保存、编译、设置计算机向导，初始化面为tred1，运行，可以看到趋势笔标签有单位，字体变大了

上面使趋势笔标签显示单位的属性是.VerticalAxisLabelType，可以查询，这个属性有1至35种数值，每种数值对应一种单位，35是自定义标签文本，前面34种单位实际上不全，日常使用所需要的很多单位没有在1-34当中，比如m3/h、mg/m3等等，此外1-34种单位显示出来是中文，这可能和citect是中文版有关系。第35种标签类型理论上需要配合.SetVerticalAxisLabelValue使用，不过我测试了一下，没有效果，后续的学习联系如果弄出来了，我会及时的写学习笔记记录下来。

让趋势笔标签字体变大，不是设置FONT，而是通过设置.PenLabelHeight(hPen)和.PenLabelWidth(hPen)设置标签的高和宽数值来实现。