´
 
 
Imports System.Windows.Forms.UserControl
 
Public Class ConditionsWindowClass_KM
    Public TermList As New ArrayList
    'Erstellt einen neuen UND Block
    Private Sub AddAndBTN_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AddAndBTN.Click
        Dim anAND As TabPage = New TabPage_KM
        anAND.Text = "AND" & ShowConditionsTC.TabPages.Count + 1
        ShowConditionsTC.Controls.Add(anAND)
    End Sub
    'Fügt einem UND Block einen Term hinzu
    Private Sub AddTermBTN_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AddTermBTN.Click
        If Item1GR1CB.Text <> Nothing And Operator1GR1CB.Text <> Nothing _
        And ItemValue1GR1CB.Text <> Nothing Then
            AddAndTerm(Item1GR1CB.Text, Operator1GR1CB.Text, _
            ItemValue1GR1CB.Text)
            DirectCast(ShowConditionsTC.SelectedTab, _
            TabPage_KM).UserControl.AddTerm(Item1GR1CB.Text & vbTab & _
            Operator1GR1CB.Text & vbTab & ItemValue1GR1CB.Text)
        End If
    End Sub
    'Löscht einen Term aus der TermList und Checkbox
    Private Sub BTNRemove_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles RemoveBTN.Click
        If DirectCast(ShowConditionsTC.SelectedTab, _
        TabPage_KM).UserControl.TermsLB.Items.Count > 0 Then
            RemoveTerm(DirectCast(ShowConditionsTC.SelectedTab, _
            TabPage_KM).UserControl.ReturnTerm(), _
            ShowConditionsTC.SelectedIndex)
            DirectCast(ShowConditionsTC.SelectedTab, _
            TabPage_KM).UserControl.RemoveTerm()
        End If
    End Sub
 
    'Fügt der Liste TermList einen neuen Term hinzu
    Sub AddAndTerm(ByVal Item As String, ByVal Oper As String, ByVal Value As _
      Integer)
        Dim aTerm As Term
        aTerm.ItemId = Item
        Select Case Oper
            Case "="
                aTerm.Operand = RecordConditionControl_KM.CompOp.Eql
            Case "<"
                aTerm.Operand = RecordConditionControl_KM.CompOp.les
            Case "<="
                aTerm.Operand = RecordConditionControl_KM.CompOp.lesEql
            Case ">"
                aTerm.Operand = RecordConditionControl_KM.CompOp.grt
            Case ">="
                aTerm.Operand = RecordConditionControl_KM.CompOp.grtEql
            Case "<>"
                aTerm.Operand = RecordConditionControl_KM.CompOp.nEql
        End Select
        aTerm.Value = Value
        aTerm.Tab = ShowConditionsTC.SelectedIndex
        For i As Integer = 0 To RecordItems_KM.ItemArray.Length - 1
            If RecordItems_KM.ItemArray(i).ItemID = Item Then
                aTerm.Index = i
            End If
        Next
        TermList.Add(aTerm)
    End Sub
 
    Sub Reset()
        ItemValue1GR1CB.Text = ""
        ShowConditionsTC.TabPages.Clear()
        Dim anAND As TabPage = New TabPage_KM
        anAND.Text = "AND" & ShowConditionsTC.TabPages.Count + 1
        ShowConditionsTC.Controls.Add(anAND)
        TermList.Clear()
    End Sub
    'Löscht einen Term aus der TermList 
    Sub RemoveTerm(ByVal Term As String, ByVal Element As Integer)
        Dim TermString() As String = Split(Term, vbTab)
        Dim ItemID As String = TermString(0)
        Dim Oper As String = TermString(1)
        Dim Value As String = TermString(2)
        For i As Integer = 0 To TermList.Count - 1
            If TermList.Item(i).ItemID = ItemID And TermList.Item(i).Operand = _
              Oper And TermList.Item(i).Value = Value And TermList.Item(i).Tab _
              = Element Then
                TermList.RemoveAt(i)
                Exit For
            End If
        Next
    End Sub
    'Erzeugt das Tooltip, das erscheint wenn man die Maus über das ausgewählte 
    ' Item bewegt
    Private Sub Item1GR1CB_MouseHover(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Item1GR1CB.MouseHover
        Dim aToolTip As New ToolTip()
        aToolTip.AutoPopDelay = 2000
        aToolTip.InitialDelay = 100
        For i As Integer = 0 To RecordItems_KM.ItemList.Count - 1
            If Item1GR1CB.SelectedItem = RecordItems_KM.ItemList.Item( _
              i).Description Or Item1GR1CB.SelectedItem = _
              RecordItems_KM.ItemList.Item(i).ItemID Then
                aToolTip.SetToolTip(Me.Item1GR1CB, RecordItems_KM.ItemList.Item( _
                i).ItemID)
            End If
        Next
    End Sub
End Class