none
La barre de défilement de ma datagridview ne fonctionne pas RRS feed

  • Question

  • Dans mon programme j'ai le code suivant:

    If Me.ofd_Fichier.ShowDialog() = DialogResult.OK Then 
                Dim str_Fichier As String 
                For Each str_Fichier In ofd_Fichier.FileNames  
                    Try 
                        Dim SR As New StreamReader(str_Fichier, system.Text.Encoding.Default)  
                        Dim fi As New FileInfo(str_Fichier)  
                        Dim str_Lire As String = SR.ReadToEnd  
     
                        If str_Lire.Length > 0 And str_Lire.EndsWith("header") = False Then 
                            Dim array() As String = str_Lire.Split(Chr(10))  
     
                            Dim dgvRow As New DataGridViewRow  
                            Dim dgvCell As DataGridViewCell  
     
                            '-- name of file  
                            dgvCell = New DataGridViewTextBoxCell()  
                            dgvCell.Value = fi.Name  
                            dgvRow.Cells.Add(dgvCell)  
     
                            '-- date begin  
                            Dim array1() As String = array(2).Split(" ")  
     
                            dgvCell = New DataGridViewTextBoxCell()  
                            dgvCell.Value = array1(4)  
                            dgvRow.Cells.Add(dgvCell)  
     
                            '- hour begin  
                            dgvCell = New DataGridViewTextBoxCell()  
                            dgvCell.Value = array1(5)  
                            dgvRow.Cells.Add(dgvCell)  
     
                            '- hour end  
                            Dim array2() As String = array(array.Length - 3).Split(" ")  
                            dgvCell = New DataGridViewTextBoxCell()  
                            dgvCell.Value = array2(11)  
                            dgvRow.Cells.Add(dgvCell)  
     
                            dgvCell = New DataGridViewTextBoxCell()  
                            dgvCell.Value = CDate(array2(11)) - CDate(array1(5))  
                            dgvRow.Cells.Add(dgvCell)  
     
                            DataGridView1.Rows.Add(dgvRow)  
                            SR.Close()  
                        End If 
                    Catch 
                    End Try 
                  Next 
            End If 
    Quand je l'exécute les éléments s'affiche dans la grille mais la barre de défilement vertical ne fonctionne pas, elle est comme gelée.

    Merci
    mardi 10 mars 2009 12:47