60 lines
1.4 KiB
VB.net
60 lines
1.4 KiB
VB.net
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
|