SetPriorityColor方法示例
2015-12-15 22:24:15   来源：   评论：0 点击：

下列示例为 对象AlarmSummaryOCX1中各报警优先级设置显示颜色。

Dim lGreen As OLE_COLOR

Dim lBlue As OLE_COLOR

Dim lRed As OLE_COLOR

lGreen = 57344

lBlue = 16722988

lRed = 725759

AlarmSummaryOCX1.SetPriorityColor 7, lGreen

AlarmSummaryOCX1.SetPriorityColor 6, lBlue

AlarmSummaryOCX1.SetPriorityColor 5, lRed