Dakosy, Chat, Feiertage, Formulare (AMBAR)

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlChat_Art_Btn.vb

@@ -0,0 +1,59 @@
+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