OUverture form ralentie par des comboboxRésolu

Question

Bonjour, 

A l'ouverture d'une form, je charge des fichiers text dans des combobox, en appelant des procédures dans load

En VB6 aucun problème, ma form s'affichait instantanément avec toutes les cb chargées.

En VBNet il faut environ 5 secondes avant que ma form apparaissent avec les combobox chargées.

Auriez-vous une explication et une solution pour y remédier ?

merci

cs_Robert33 · Answer

Bonjour

Il faudrait voir le code de la fonction Load pour une tentative d'explication.
une solution consisterait à charger les ComboBox dans un thread séparé. 
 
Bob.
C# is amazing, enjoy it!

ehjoe · Answer

Bonjour,

La visibilité de l'objet ralenti son chargement !

Option Explicit OnPublic Class Form1  Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load    Dim i As Long    ComboBox1.Visible = False    For i = 1 to ?      ComboBox1.Items.Add(ta data)    Next i  End Sub  Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown    ComboBox1.Visible = True  End SubEnd Class

Cordialement, Joe.

collargol123 · Answer

Bonjour,

J'ai essayé :
Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown  
mais Me.Shown ou mybase.shown n'est pas accepté.

Voici le code :
Dans le load, j'appelle 9 procédures pour alimenter mes combobox :
loadlistbox (cb1,chemin)
puis je resize ma form

Voici le code de la procédure qui charge les combobox :
Public Sub LoadListBox(ByRef oLst As System.Windows.Forms.ComboBox, ByVal sPath As String)

        On Error GoTo biii


        'Dim file As System.IO.File
        Dim reader As System.IO.StreamReader
        Dim line As String

        If Not File.Exists(sPath) Then
            Exit Sub
        End If

        reader = File.OpenText(sPath)
        'now loop through each line  
        While reader.Peek <> -1
            line = reader.ReadLine()
            oLst.Items.Add(line)

        End While

        'close your reader  
        reader.Close()
biii:
    End Sub
 
merci

ehjoe · Answer

Suite,

La procédure évènementielle "Form1_Shown" ne doit pas être écrite par toi mais générée par le gestionnaire de procédures.

Public Sub LoadListBox(ByRef oLst As System.Windows.Forms.ComboBox, ByVal sPath As String)  Try   Dim reader As System.IO.StreamReader    Dim line As String    reader = File.OpenText(sPath)    While reader.Peek <> -1     oLst.Items.Add(reader.ReadLine() )    End While    reader.Close()   Catch ex As Exception   MsgBox("ERREUR : " & err.number & vblf & err.description) End TryEnd Sub 

Cordialement, Joe.

cs_Robert33 · Answer

Bonjour

As-tu essayé de charger les ComboBox d'un seul coup  ?

Private Sub LoadListBox(oLst As ComboBox, sPath As String)

Try
            oLst.Items.AddRange(File.ReadAllLines(sPath))
        Catch ex As Exception

End Try

End Sub

collargol123 · Answer

J'ai tenté ce qui est écrit ci-dessus.
J'ai fait la mise à jour vb express 2010 et cela fonctionne.
Va t'en savoir ....

OUverture form ralentie par des combobox

6 réponses

Votre réponse

Discussions similaires