Imports System.Drawing
Imports System.ServiceModel.Configuration

Public Class usrCntlChat_Art_Btn
    Public Property _name As String = ""
    Public Property _aktiv As Boolean = False

    Public Event CLICKED(ctl As usrCntlChat_Art_Btn)
    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.


    End Sub

    Public Sub init()

        btn.Text = _name
        If _aktiv Then
            setAktiv()
        Else
            setInAktiv()
        End If
    End Sub


    Public Sub setAktiv()
        Me._aktiv = True
        btn.BackColor = Color.SteelBlue

    End Sub
    Public Sub setInAktiv()
        Me._aktiv = False
        btn.BackColor = Color.LightSteelBlue

    End Sub

    Public Sub setCnt(cnt)
        If cnt > 0 Then
            lblLKWChat_MsgCnt.Visible = True
            lblLKWChat_MsgCnt.Text = cnt
            lblLKWChat_MsgCnt.BringToFront()
        Else
            lblLKWChat_MsgCnt.Text = ""
            lblLKWChat_MsgCnt.Visible = False
        End If
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, lblLKWChat_MsgCnt.Click
        RaiseEvent CLICKED(Me)
    End Sub

    Private Sub usrCntlChat_Art_Btn_Load(sender As Object, e As EventArgs) Handles Me.Load
        init()
    End Sub
End Class