Imports System.Windows.Forms

Public Class frmMessenger_NeuerChat

    Dim SQL As New SQL

    Dim loaded = False

    Sub initDGV()
        If Not loaded Then Exit Sub
        With dgvMitarbeiter
            Dim FirmaTMP = MyComboBox1._value
            Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,mit_firma  FROM [tblMitarbeiter]"
            sqlStr &= " WHERE  mit_gekuendigt=0 AND mit_abteilung IN ('QS','ZOLL','DISPO') AND [mit_TESTonly]=0 AND [mit_pseudoUser]=0"
            sqlStr &= " AND  mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
            If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )"

            sqlStr &= "    order by mit_nname,mit_vname"

            .DataSource = SQL.loadDgvBySql(sqlStr, "ADMIN")

            If .Columns.Count = 0 Then Exit Sub

            .Columns("mit_id").Visible = False
            .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
        End With
    End Sub

    Private Sub frmMessenger_NeuerChat_Load(sender As Object, e As EventArgs) Handles Me.Load
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
        MyComboBox1.changeItem("VERAG")
        loaded = True
        initDGV()

    End Sub

    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
        initDGV()
    End Sub

    Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyDown
        If dgvMitarbeiter.Rows.Count = 0 Then Exit Sub

        If e.KeyCode = Keys.Down Then
            If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True
            If dgvMitarbeiter.Rows.Count > dgvMitarbeiter.SelectedRows(0).Index + 1 Then
                Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index + 1
                dgvMitarbeiter.ClearSelection()
                dgvMitarbeiter.Rows(newIndex).Selected = True
                MyTextBox1.Focus()
            End If
        End If

        If e.KeyCode = Keys.Up Then
            If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True
            If dgvMitarbeiter.SelectedRows(0).Index > 0 Then
                Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index - 1
                dgvMitarbeiter.ClearSelection()
                dgvMitarbeiter.Rows(newIndex).Selected = True
                MyTextBox1.Focus()
            End If
        End If
        If e.KeyCode = Keys.Return Then
            If dgvMitarbeiter.SelectedRows.Count > 0 Then
                dgvChatMembers.Rows.Add(dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
                If dgvChatMembers.Rows.Count = 1 Then
                    MyTextBox2.Text = dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value
                Else
                    MyTextBox2.Text = ""
                End If
                MyTextBox1.Text = ""
                MyTextBox1.Focus()
            End If
        End If
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        If MyTextBox2.Text = "" Then
            MsgBox("Chat-Name eingeben!")
            Exit Sub
        End If
        If dgvChatMembers.Rows.Count = 0 Then
            MsgBox("Mitglieder eingeben!")
            Exit Sub
        End If

        Dim MB_LIST As New List(Of Integer)
        MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
        For Each r As DataGridViewRow In dgvMitarbeiter.Rows
            MB_LIST.Add(r.Cells("mit_id").Value)
        Next
        If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(MyTextBox2.Text, MB_LIST) Then
            Me.Close()
        End If

    End Sub

    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
        initDGV()
    End Sub
End Class