usercontrol8.ctl

来自「专业版本的vb防火墙管理程序」· CTL 代码 · 共 128 行 · 第 1/4 页

End Function

Private Function LoadBmpMenuLines(Legnth As Integer, ColorPallet As String, x As Integer, y As Integer) As Integer
    Dim Colors() As String, CurrentRow, CurrentColumn, Count, Rows
    Colors = Split(ColorPallet, ",")
    Rows = Int(Split(ColorPallet, ",")(0))
    For Count = 1 To UBound(Colors)
    If CurrentRow > (Rows) Then CurrentRow = 0: CurrentColumn = CurrentColumn + 1
    If Colors(Count) <> -1 Then
    UserControl.Line (x + CurrentColumn, y + CurrentRow)-(x + CurrentColumn + Legnth, y + CurrentRow), Colors(Count)
    End If
    CurrentRow = CurrentRow + 1
    Next
    LoadBmpMenuLines = CurrentColumn
End Function

Private Sub UserControl_Resize()
LoadColors
LoadBmpMenuLines 1, Color(1), 0, 0
End Sub

Private Sub UserControl_Show()
LoadColors
LoadBmpMenuLines 1, Color(1), 0, 0
End Sub

Function SetStatus(Status As Integer)
UserControl.Cls
LoadColors
LoadBmpMenuLines 1, Color(Status), 0, 0
End Function