Imports System.io
Imports As400Utils

Public NotInheritable Class FormSplash
    Private frmMain As FormMain

    Private Sub FormSplash_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown

        frmMain = New FormMain
        frmMain.hashFilePC = New Hashtable
        frmMain.hashFileIomega = New Hashtable
        frmMain.arrCRC32Iomega = New System.Collections.ObjectModel.Collection(Of String)
        frmMain.arrCRC32PC = New System.Collections.ObjectModel.Collection(Of String)

        frmMain.dsParams = New DataSet
        frmMain.dsParams.ReadXml(Application.StartupPath + "\Parametri.xml")

        InitSplash()

        InitFormMain()

        InitParametri()
        InitImageList()
        IconePulsanti()
        InitTextsForm()
        InitGrids()

        MappaUnita()
        'Application.DoEvents()

        frmMain.FillListaIomega()

        FillCombo()
        SetRegistryKey()

        frmMain.Init()

        'Me.Hide()

        'frmMain.ShowDialog()

        'Me.Close()

    End Sub

    Private Sub InitSplash()
        MainLayoutPanel.BackgroundImage = Image.FromFile(Application.StartupPath & "\img\MW-sfondo.jpg")
        MainLayoutPanel.BackgroundImageLayout = ImageLayout.Stretch

        ProgressBar.Style = ProgressBarStyle.Marquee
        ProgressBar.MarqueeAnimationSpeed = 50

        Dim f1 As New Font("Verdana", 12, FontStyle.Bold, GraphicsUnit.Pixel)

        For Each lbl As Control In Me.MainLayoutPanel.Controls
            If TypeOf lbl Is Label Then
                lbl.BackColor = Color.Transparent
                lbl.Font = f1
                lbl.ForeColor = Color.White

            End If
        Next

        lblApplicazione.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)

        lblVersione.Text = FormMain.dsParams.Tables("APPLICAZIONE").Rows(0).Item("VERSIONE")

        lblCopyRight.Text = "Massimiliano Cosso" & vbCrLf & _
                            "C.E.D. Megawatt" & vbCrLf & _
                            "Casoria (NA)"

        lblAttendere.Text = "Inizializzazione in corso. Attendere prego..."

    End Sub

    Private Sub InitFormMain()
        InitParametri()
        InitImageList()
        IconePulsanti()
        InitTextsForm()
        InitGrids()

        MappaUnita()
        'Application.DoEvents()

        frmMain.FillListaIomega()

        FillCombo()
        SetRegistryKey()

        frmMain.Init()

        'frmMain.ShowDialog()

    End Sub

    Private Sub InitParametri()
        ''inizializzo l'array di parametri
        'args = New System.Collections.ObjectModel.Collection(Of String)
        'For i As Integer = 0 To My.Application.CommandLineArgs.Count - 1
        '    args.Add(My.Application.CommandLineArgs(i))
        'Next

        'Controllo se c'è il parametro passato al programma
        If My.Application.CommandLineArgs.Count = 0 Then
            MessageBox.Show("Non sono stati passati parametri al programma", "ATTENZIONE...", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End If

        If My.Application.CommandLineArgs(0).Length = 1 Then
            'Utility Fill Database

        End If

        'Me.Refresh()
    End Sub

    Private Sub InitImageList()
        frmMain.imgList16x16 = New ImageList
        frmMain.imgList16x16.Images.Add("1DxSx", New Bitmap(Application.StartupPath & "\img\1DxSx.png"))
        frmMain.imgList16x16.Images.Add("TuttiDxSx", New Bitmap(Application.StartupPath & "\img\TuttiDxSx.png"))
        frmMain.imgList16x16.Images.Add("1SxDx", New Bitmap(Application.StartupPath & "\img\1SxDx.png"))
        frmMain.imgList16x16.Images.Add("TuttiSxDx", New Bitmap(Application.StartupPath & "\img\TuttiSxDx.png"))
        frmMain.imgList16x16.Images.Add("upload", New Bitmap(Application.StartupPath & "\img\upload.png"))
        frmMain.imgList16x16.Images.Add("Pdf", New Bitmap(Application.StartupPath & "\img\Pdf.ico"))
        frmMain.imgList16x16.Images.Add("Commento", New Bitmap(Application.StartupPath & "\img\commento.ico"))
        frmMain.imgList16x16.Images.Add("FiltroNo", New Bitmap(Application.StartupPath & "\img\filtrono.gif"))
        frmMain.imgList16x16.Images.Add("FiltroSi", New Bitmap(Application.StartupPath & "\img\filtrosi.gif"))
        'imgList.Images.Add("Esci", New Bitmap(Application.StartupPath & "\img\Esci.png"))

        frmMain.imgList64x64 = New ImageList
        Dim s As New Size(32, 32)
        frmMain.imgList64x64.ImageSize = s
        frmMain.imgList64x64.Images.Add("Esci", New Bitmap(Application.StartupPath & "\img\Esci.png"))

    End Sub

    Private Sub IconePulsanti()
        frmMain.btn1SxDx.Image = frmMain.imgList16x16.Images("1SxDx")
        frmMain.btnTuttiSxDx.Image = frmMain.imgList16x16.Images("TuttiSxDx")

        'buttonEsci.Image = imgList64x64.Images("Esci")
        frmMain.btnEsci.Text = "Esci"

        frmMain.btnFiltro.Image = frmMain.imgList16x16.Images("FiltroNo")

    End Sub

    Private Sub InitTextsForm()
        frmMain.Text = My.Application.Info.Title & _
                       " - Informazioni Cliente (" & My.Application.CommandLineArgs(0) & ") - (" & _
                       My.Application.CommandLineArgs(1) & ")"

    End Sub

    Private Sub InitGrids()
        frmMain.scMain.IsSplitterFixed = True

        With frmMain.gridPC
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .AllowUserToOrderColumns = False
            .AllowUserToResizeColumns = False
            .AllowUserToResizeRows = False
            '.ReadOnly = True

            'Permette con un clic soltanto di aprire la Combo TipoTrasporto
            .EditMode = DataGridViewEditMode.EditOnEnter

            'DataGridViewButtonColumn
            '************************
            'Creo
            Dim btnCol As New DataGridViewButtonColumn
            btnCol.Name = "colNota"
            btnCol.HeaderText = "Nota"
            btnCol.SortMode = DataGridViewColumnSortMode.NotSortable

            '...e la aggiungo come colonna #1 (indice 0)
            .Columns.Insert(0, btnCol) : .Columns(0).Width = 35

            'DataGridViewImageColumn
            '************************
            'Creo
            Dim iconColumn As New DataGridViewImageColumn
            iconColumn.Image = frmMain.imgList16x16.Images("Pdf")
            iconColumn.Name = "colIcona"
            iconColumn.HeaderText = "Icona"
            iconColumn.SortMode = DataGridViewColumnSortMode.NotSortable

            '...e la aggiungo come colonna #2 (indice 1)
            .Columns.Insert(1, iconColumn)
            .Columns(1).Width = 25

            'DataGridViewColumn
            '************************
            'Creo e aggiungo la colonna DataGridViewColumn (colonna standard) e la aggiungo come colonna #2 (indice 1)
            .Columns.Add("colFile", "File")
            .Columns(2).Width = 215
            .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable

            'DataGridViewComboBoxColumn
            '**************************
            'Creo
            Dim comboCol As New DataGridViewComboBoxColumn
            comboCol.Name = "colCombo"
            comboCol.HeaderText = "Tipo Upload"
            comboCol.SortMode = DataGridViewColumnSortMode.NotSortable

            '...e la aggiungo come colonna #3 (indice 2)
            .Columns.Insert(3, comboCol)
            .Columns(3).Width = 150

        End With

        With frmMain.gridIomega
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .AllowUserToOrderColumns = False
            .AllowUserToResizeColumns = False
            .AllowUserToResizeRows = False
            .ReadOnly = True

            'DataGridViewImageColumn
            '***********************

            'Creo
            Dim iconColumn As New DataGridViewImageColumn
            iconColumn.Image = frmMain.imgList16x16.Images("Pdf")
            iconColumn.Name = "colIcona"
            iconColumn.HeaderText = "Icona"
            iconColumn.SortMode = DataGridViewColumnSortMode.NotSortable

            '...e la aggiungo come colonna #1 (indice 0)
            .Columns.Insert(0, iconColumn) : .Columns(0).Width = 40

            'aggiungo colonna #2 (indice 1)
            .Columns.Add("colFile", "File")
            .Columns(1).Width = 160
            .Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable

            'aggiungo colonna #3 (indice 2)
            .Columns.Add("colData", "Data Creazione")
            .Columns(2).Width = 105
            .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable

            'aggiungo colonna #4 (indice 3)
            .Columns.Add("colNota", "Nota")
            .Columns(3).Width = 35
            Dim colCentr As DataGridViewColumn = .Columns(3)
            colCentr.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            colCentr.SortMode = DataGridViewColumnSortMode.NotSortable

            'aggiungo colonna #5 (indice 4)
            Dim btnCol As New DataGridViewButtonColumn
            btnCol.Name = "colPulsante"
            btnCol.HeaderText = "Nota"
            .Columns.Insert(4, btnCol)
            .Columns(4).Width = 39
            .Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable

            'aggiungo colonna #6 (indice 5)
            .Columns.Add("colTipoTrasf", "Tipo Upload")
            .Columns(5).Width = 100
            .Columns(5).SortMode = DataGridViewColumnSortMode.NotSortable

        End With

    End Sub

    Private Sub InitGrids_OLD()
        'Classica operazione da eseguire con il metodo della ricorsione !!!

        frmMain.scMain.IsSplitterFixed = True

        For Each ctrlContenitore As Control In frmMain.scMain.Controls
            'Scorro tutti i controlli del form...
            If TypeOf ctrlContenitore Is SplitterPanel Then
                '...se è un uno SplitterPanel...
                For Each ctrlPanel As Control In ctrlContenitore.Controls
                    '...scorro tutti i controlli dello SplitterPanel...
                    If TypeOf ctrlPanel Is DataGridView Then
                        '...settando le proprietà dei DataGridView
                        Dim grid As DataGridView = CType(ctrlPanel, DataGridView)

                        With grid
                            .AllowUserToAddRows = False
                            .AllowUserToDeleteRows = False
                            .AllowUserToOrderColumns = False
                            '.AllowUserToResizeColumns = False
                            .AllowUserToResizeRows = False
                            .ReadOnly = True

                            Dim iconColumn As New DataGridViewImageColumn
                            iconColumn.Image = frmMain.imgList16x16.Images("Pdf")
                            iconColumn.Name = "colIcona"
                            iconColumn.HeaderText = "Icona"

                            .Columns.Insert(0, iconColumn) : .Columns(0).Width = 25
                            .Columns.Add("colFile", "File") : .Columns(1).Width = 250

                        End With
                    End If
                Next
            End If
        Next

    End Sub

    Private Sub MappaUnita()
        'Cerca la prima unita di rete mappabile
        PrimaUnitaMappabile()

        'Connette l'Unità di rete
        Dim iEsito As Integer = UnitaRete.MontaUnità(frmMain.unitaMappata, _
                                                     frmMain.dsParams.Tables("SERVER").Rows(0).Item("CONNECTION"), _
                                                     frmMain.dsParams.Tables("SERVER").Rows(0).Item("USER"), _
                                                     frmMain.dsParams.Tables("SERVER").Rows(0).Item("PASSWORD"))

        If (iEsito <> 0) Then
            MessageBox.Show("Codice errore: " & iEsito & _
                            vbCrLf & _
                            "Impossibile mappare un'unità di rete (" & frmMain.unitaMappata.ToUpper & ")" & _
                            vbCrLf & _
                            "Contattare il CED", "ATTENZIONE...", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End
        End If

    End Sub

    Private Sub PrimaUnitaMappabile()
        For i As Integer = 65 To 90
            Dim sLett As String = Chr(i)

            For j As Integer = 0 To My.Computer.FileSystem.Drives.Count - 1
                Dim map As DriveInfo = My.Computer.FileSystem.Drives(j)

                If sLett = map.Name.Substring(0, 1) Then
                    frmMain.unitaMappata = Nothing
                    Exit For
                Else
                    frmMain.unitaMappata = sLett
                End If

                If j = My.Computer.FileSystem.Drives.Count - 1 Then
                    Exit Sub
                End If

            Next j

        Next i
    End Sub

    Private Sub FillCombo()
        Dim sQry As String = "SELECT * FROM tipo_trasferimento ORDER BY codice"

        Dim da As OleDb.OleDbDataAdapter = QueryUtils.QuerySelect(sQry, frmMain.sConnString)
        Dim dt As New DataTable("tipo_trasferimento")
        da.Fill(dt)

        frmMain.listaTipoTrasf = New List(Of TipoTrasferimento)

        For Each riga As DataRow In dt.Rows
            Dim tt As TipoTrasferimento = frmMain.GetObjTipoTrasferimento(riga)
            frmMain.listaTipoTrasf.Add(tt)
        Next

    End Sub

    Private Sub SetRegistryKey()
        'recupero il path dell'eseguibile direttamente dal registro:
        frmMain.sPathAcrobat = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\acrobat\shell\open\command", "", "0")
        If (frmMain.sPathAcrobat = Nothing) OrElse (frmMain.sPathAcrobat = "0") Then
            MessageBox.Show("Acrobat Reader mancante." & vbCrLf & "Contattare il C.E.D.", "ATTENZIONE...", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If

        'Ripulisco la stringa contenente il path di Acrobat Reader
        frmMain.sPathAcrobat = frmMain.sPathAcrobat.Replace("""", "")
        frmMain.sPathAcrobat = frmMain.sPathAcrobat.Replace("/u", "")
        frmMain.sPathAcrobat = frmMain.sPathAcrobat.Replace("%1", "")
        frmMain.sPathAcrobat = frmMain.sPathAcrobat.Trim

    End Sub

End Class