| 作者 | 主题 |
|---|---|
|
那一剑的温柔 侠圣
经验值:2773 发帖数:445 精华帖:4 |
楼主
主题:如何AlarmControl中的报警内容 请问,在wincc V7.5 SP1 如何读取AlarmControl控件中,鼠标选中的报警信息的编号和内容?谢谢 |
|
W.M.J 侠圣 经验值:2255 发帖数:143 精华帖:7 |
4楼
主题:回复:如何AlarmControl中的报警内容给你一段示例代码: Dim ctrl Dim coll Dim lIndex Dim lCellIndex Set ctrl = ScreenItems("AlarmControl") Set coll = ctrl.GetRowCollection HMIRuntime.Trace "Number of message rows:" & coll.Count & vbCrLf 'enumerate and trace out row numbers For lIndex = 1 To coll.Count HMIRuntime.Trace "Row: " & (ctrl.GetRow(lIndex).RowNumber) & " " 'enumerate and trace out column titles and cell texts For lCellIndex = 1 To ctrl.GetRow(lIndex).CellCount HMIRuntime.Trace ctrl.GetMessageColumn(lCellIndex -1).Name & " " HMIRuntime.Trace ctrl.GetRow(lIndex).CellText(lCellIndex) & " " Next HMIRuntime.Trace vbNewLine Next |