ITSM/Vertragsverwaltung - Kopie/Klassen/clsToolTips.vb

Imports C1.Win.C1TrueDBGrid
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace TKB.VV.Utils

    Public Class clsToolTips
        Public WithEvents MyTooltip As New ToolTip
        Dim ToolTipData As DataSet = Globals.ToolTipDaten
        Dim connection As New SqlConnection()
        Dim da As New SqlDataAdapter("", connection)
        Dim l As New List(Of Control)
        Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder

        Public Function Edit_ToolTips(ByRef frm As Form, ByRef ctlcol As Collection)
            Me.Load_Data()
            l.Clear()
            Me.GetControl(frm, "*", l)
            For Each s As Control In l
                Try
                    MyTooltip.SetToolTip(s, frm.Name + "|" + s.Name)
                    MyTooltip.Tag = frm.Name
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Next
            'For Each ctl As Control In ctlcol
            '    Try
            '        MyTooltip.SetToolTip(ctl, "SetToolTip")
            '        MyTooltip.Tag = frm.Name + "|" + ctl.Name
            '    Catch ex As Exception
            '    End Try
            'Next
        End Function
        Private Sub MyTooltip_Popup(ByVal sender As Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles MyTooltip.Popup
            'MsgBox(e.AssociatedControl.Name)
            evh.Edit_Tooltip(MyTooltip.Tag, e.AssociatedControl.Name)
            'Dim s As String = MyTooltip.Tag
            'Dim sp() As String
            'sp = s.Split("|")
            'evh.Edit_Tooltip(sp(0), sp(1))

        End Sub

        Public Function Set_ToolTips(ByRef frm As Form)
            Me.Load_Data()
            'MyTooltip.ToolTipIcon = ToolTipIcon.Info
            MyTooltip.IsBalloon = True
            MyTooltip.UseFading = True
            MyTooltip.UseAnimation = True
            Dim dv As New DataView(ToolTipData.Tables(0), "Aktiv = 1 and (Formularname='" & frm.Name & "' or Formularname='Allgemein')", "", DataViewRowState.CurrentRows)
            For Each dr As DataRowView In dv
                l.Clear()
                Me.GetControl(frm, dr.Item("Controlname"), l)
                Try
                    For Each ctl As Control In l
                        Try
                            MyTooltip.SetToolTip(ctl, dr.Item("ToolTip"))
                        Catch
                        End Try
                    Next
                Catch ex As Exception
                End Try
            Next
        End Function


        ''' <summary>
        ''' Daten ab Datenbank laden
        ''' </summary>
        ''' <remarks></remarks>
        Private Sub Load_Data()
            Try
                If ToolTipData.Tables.Count < 1 Then
                    ToolTipData.Tables.Clear()
                Else
                    Exit Sub
                End If
            Catch ex As Exception
            End Try
            ToolTipData.Tables.Clear()
            Dim sqlcmd As New SqlCommand

            sqlcmd.CommandText = "dbo.my_tooltip_get_data"
            'sqlcmd.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value

            sqlcmd.CommandType = CommandType.StoredProcedure
            sqlcmd.Connection = connection
            Try
                connection.ConnectionString = Globals.sConnectionString
                connection.Open()
                da.SelectCommand = sqlcmd
                da.Fill(ToolTipData, "Tooltips")
                Globals.SecurityDaten.Tables.Add(ToolTipData.Tables(0).Copy)
            Catch ex As Exception
            Finally
                connection.Close()
                da.Dispose()
                sqlcmd.Dispose()
            End Try
        End Sub

#Region "Utils"
        ''' <summary>
        ''' Sucht in den Base-Controls s<>mtliche Controls mit dem Namen in "Key" (Wildcards * m<>glich) und listet
        ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
        ''' </summary>
        ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
        ''' <param name="Key">Schl<68>ssel welcher gesucht werden soll</param>
        ''' <param name="L">Liste der gefundenen Objekte</param>
        ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
        ''' </returns>
        ''' <remarks></remarks>
        Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
            If L Is Nothing Then L = New List(Of Control)
            Dim Gut As Boolean
            Dim ReturnFlag As Boolean = False
            If Key IsNot Nothing Then Key = Key.ToLower

            If BaseControl.HasChildren = True Then
                For Each ctl As Control In BaseControl.Controls
                    Gut = False
                    If Key Is Nothing Then
                        Gut = True
                    Else
                        If ctl.Name.Length >= Key.Length Then
                            Key = Key.ToLower
                            If Key.StartsWith("*") Then
                                If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
                            ElseIf Key.EndsWith("*") Then
                                If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
                            Else
                                If Key = ctl.Name.ToLower Then Gut = True
                            End If
                        End If
                    End If

                    If Gut = True Then
                        L.Add(ctl)
                        If ReturnAtFirstElement = True Then ReturnFlag = True
                    End If
                    If ReturnFlag = False Then
                        Call GetControl(ctl, Key, L)
                    End If
                Next
            End If

            If L.Count - 1 > -1 Then
                Return True
            Else
                Return False
            End If
        End Function
#End Region

 
    End Class
End Namespace