前面写过一个点击数字弹出趋势弹窗的练习，今天更进一步，弹窗的ruler控件上显示出数据的单位。
在前面练习项目程序的内部变量新建一个8位文本型变量Danwei，弹窗画面的ruler控件块选项卡标签改成单位
主画面输入输出域1鼠标点击事件增加赋值单位脚本，完整如下（加粗部分为新增内容）：
Sub OnClick(Byval Item)
Dim PopTrend,TrendTagName,TrendName,TrendWinName,Danwei
Set PopTrend = ScreenItems("PopTrend")
Set TrendTagName=HMIRuntime.Tags("TrendTagName")
Set TrendName=HMIRuntime.Tags("TrendName")
Set TrendWinName=HMIRuntime.Tags("TrendWinName")
Set Danwei=HMIRuntime.Tags("Danwei")
TrendTagName.Write "过程值归档\Rand1"
TrendName.Write "Rand1"
TrendWinName.Write "Rand1的趋势"
PopTrend.Visible=False
PopTrend.Visible=True
Danwei.Write "mg/m3"
End Sub
其他输入输出域相应作出修改，附上各自变量的单位
弹窗画面的打开画面事件增加显示数据单位的脚本，完整如下（加粗为新增部分）：
Sub OnOpen()
Dim trend,Danwei,TrendTagName,TrendName,TrendWinName
Set trend=ScreenItems("trend")
Set Danwei=HMIRuntime.Tags("Danwei")
Set TrendTagName=HMIRuntime.Tags("TrendTagName")
Set TrendName=HMIRuntime.Tags("TrendName")
Set TrendWinName=HMIRuntime.Tags("TrendWinName")
trend.TrendIndex=0
trend.TrendRemove =trend.TrendName
trend.TrendAdd= TrendName.Read
trend.TrendTagName =TrendTagName.Read
trend.TrendTrendWindow="趋势窗口 1"
trend.TrendTimeAxis="时间轴 1"
trend.TrendValueAxis="数值轴 1"
trend.Caption=TrendWinName.Read
trend.TrendLabel = Danwei.Read
End Sub
保存、编译、运行后点击输入输出域，弹窗上就有该变量的单位信息了。
