GetStatusFont 方法示例

下列示例在AlarmSummary对象AlarmSummaryOCX1中获得具有LO状态的报警的字体属性。

Dim sFontName As String

Dim bStrike As Boolean

Dim bUnderline As Boolean

Dim bBold As Boolean

Dim bItalic As Boolean

Dim iSize As Integer

sFontName = AlarmSummaryOCX1.GetStatusFont(3, bStrike, bUnderline, bBold, bItalic, iSize)