Discussion :

[IL-MAFIOSO]

Bonjour à tous,

Voilà je reviens vers vous pour un petit soucis avec mon application VBNET.
Je recherche une raison qui peut faire que mon programme soit ralenti sur certains PC sous Windows 7.

Certains PC tournant sous XP ont été remplacés par des tout nouveaux PC tournant sous Windows 7.
On a constaté que lorsque l'utilisateur cliquait sur un bouton pour faire afficher un Form, celui-ci apparait après environ 8 secondes alors que sur d'autres PC, il faut environ 1 seconde.

Avez-vous des pistes pour savoir ce qui se passe sur ces PC ?

Merci d'avance pour votre future aide et vos futurs conseils.

[Uranne-jimmy]

Bonjour,
En premier lieu il faudrait expliquer (ou montrer le code) ce qui se passe au moment de l'ouverture du form, ça pourrait aiguiller vers la bonne raison.
Ensuite, je pense que ça peut être un problème de version (32 ou 64 bits) ou encore au niveau des framework, bien que la compatibilité descendante est normalement pas un soucis (m'enfin windows quoi, on sait jamais).

[Pol63]

j'aurais tendance à penser que ca vient de ton code, et tu es le seul à l'avoir ...

sinon tu peux utiliser system.diagnostics.stopwatch (chronomètre) pour isoler la portion de code qui prend du temps

[IL-MAFIOSO]

Hello,

Alors concernant le code, je ne l'ai pas changé. Je peux vous mettre un extrait si vous le voulez.
J'ai par exemple un datagridview qui contient des données. Si l'utilisateur fait un clic-droit cela affiche un menu contextuel. Dans cet exemple, l'utilisateur choisit une option qui permettra d'afficher les données contenues dans le datagridview dans un form puis l'affiche. Voici un extrait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Menumodifier_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Menumodifier.Click
        Try
            If Me.Table1DataGridView.SelectedRows.Count > 0 AndAlso _
                       Not Me.Table1DataGridView.SelectedRows(0).Index = _
                           Me.Table1DataGridView.Rows.Count - 1 Then
 
                Dim i As Integer
                i = Table1DataGridView.CurrentRow.Index
 
                If i <> -1 Then
                    Form2.dc.Text = Table1DataGridView.Item(1, i).Value.ToString
                    Form2.dc.Enabled = True
                    Form2.origine.Text = Table1DataGridView.Item(2, i).Value.ToString
                    Form2.destination.Text = Table1DataGridView.Item(3, i).Value.ToString
                    Form2.nombre.Text = Table1DataGridView.Item(4, i).Value.ToString
 
                    Form2.observation.Text = Table1DataGridView.Item(23, i).Value.ToString
                    If Table1DataGridView.Item(19, i).Value = "NON" Then
                        Form2.nonate.Checked = True 
                        Form2.dateate.Visible = False
                        Form2.Label21.Visible = False
                        Form2.Label16.Visible = False
                        Form2.ateok.Visible = False
                        Form2.Label23.Visible = False
                    End If
                    If Table1DataGridView.Item(19, i).Value = "OUI" Then
                        Form2.ouiate.Checked = True
                        Form2.dateate.Visible = True
                        Form2.Label21.Visible = True
                        Form2.Label16.Visible = True
                        Form2.ateok.Visible = True
                     End If
 
                    Form2.valider.Enabled = False
                    Form2.Missionmod.Enabled = True
                    Form2.Missionok.Enabled = True
                    Form2.Missionmod.Select()
                End If
            Else
                Exit Sub
            End If
 
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try
        Form2.valider.Select()
        Form2.ShowDialog()
    End Sub

Environ 8 secondes sur W7 et même pas 2 sur un XP.
Concernant le Framework, l'appli était compilé avec la version 2. Même avec la 4, j'ai le même problème de lenteur jusqu'à ce que le Form2 apparaisse.

[Graffito]

Je ne vois rien qui explique le probklème de performance dans ton code.

Teste si le problème se résoud quand on change le thème d'affichage en Windows classique (dans ce cas ce serait lié à la transparence).

Mets un MessageBox.Show() juste avant le ShowDialog() pour vérifier que le problème survient au niveau du Form2.ShowDialog().
Si c'est le cas comme je le crois, quels sont les events de la form qui pourraient être exécutés lors de l'activation de Form2() ?

[Pol63]

Alors concernant le code, je ne l'ai pas changé.

ca on s'en serait douté ^^


la méthode de Graffito peut convenir aussi, le but c'est de trouver la ou les lignes qui prennent du temps


sinon l'utilisation d'une form par son nom sans variable n'est pas recommandé, ca vient peut etre de là
les controles non nommés c'est moche aussi (label21 et autres)

[IL-MAFIOSO]

Hello,

Concernant le nom de certains labels, c'est vrai que j'aurais pu les renommer....
Sinon :

- Si je bascule en affichage classique, cela ne change rien ....
- J'ai mis un msgbox juste avant le Form2.Showdialog() et la msgbox apparait en moins d'une seconde .... mais le Form2 apparait toujours après plusieurs secondes.

J'ai regardé du côté de l'event et effectivement je crois que le soucis vient de là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        origine.AutoCompleteMode = AutoCompleteMode.Suggest
        origine.AutoCompleteSource = AutoCompleteSource.CustomSource
        destination.AutoCompleteMode = AutoCompleteMode.Suggest
        destination.AutoCompleteSource = AutoCompleteSource.CustomSource
 
        Call connection7()
 
        Dim Cmd As OleDbCommand
        Dim Dr As OleDbDataReader
        Dim Cn As New OleDbConnection(base1 & base9)
 
        Try
            Cmd = New OleDbCommand("Select Gares from Suggestions", Cn)
            Cn.Open()
            Dr = Cmd.ExecuteReader
            While Dr.Read
                origine.AutoCompleteCustomSource.Add(Dr.GetString(0))
                destination.AutoCompleteCustomSource.Add(Dr.GetString(0))
            End While
            Dr.Close()
            Cn.Close()
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try
 
    End Sub

Comme vous le voyez, je me connecte à une BDD pour rapatrier une liste de mot qui seront suggérés lors de la saisie dans 2 textbox ...
Y-a-t-il un moyen d'accélérer cette fonction ? Ou de changer la méthode ?

Ce qui est drôle est que sur un PC sous XP, c'est plus rapide alors que les deux PC XP et Seven se connecte au même lecteur réseau .....

[Pol63]

il ne faut pas tirer de conclusion hâtive ou hasardeuse

vu que tu es parti sur les messagebox, mets en un au début de ce code et un à la fin pour être sûr que ca vient de là
il faut isoler la ou les lignes qui mettent du temps, pas se dire ca doit venir de là
et ton code appelle une méthode, il faut aussi si ce n'est pas là bas

[IL-MAFIOSO]

Hello Pol63,

D'accord avec toi. En fait j'ai testé en supprimant tout ce qu'il y a dans le le load du Form2 et l'affichage du Form2 est alors quasiment instantané.

Le call connection7() sert juste à donner des valeurs aux variables base1 et base9.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
base1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "
        base9 = "C:\Users\Salvatore\Documents\config.mdb;Jet OLEDB:Database Password='coucou'"

Je suis débutant ... j'avais pris cette méthode pour n'avoir à changer qu'une fois les chemins que j'utilise à différents endroits dans mon application. Cette méthode est dans un module.

Le temps perdu est la partie try/end try lorsqu'il se connecte pour ajouter les noms dans les suggestions.

[Pol63]

ne pas modifier AutoCompleteCustomSource dans une boucle peut etre
c'est une habitude à prendre en windows forms, modifier le moins possible les controles en boucle
car souvent quand on leur modifie un truc ils font quelque chose derrière, donc ca fait une réaction en chaine

il faut donc préparer ce qu'on a à leur donner et leur donner en une fois, comme ca il ne font leur traitement qu'une fois

donc dans le datareader tu utilises un list(of string), tu ajoutes tout tes string et après du fait AutoCompleteCustomSource = lelist

[IL-MAFIOSO]

Re,

Merci pour tes commentaires
Par contre je ne sais pas faire ce que tu suggères. Peut-tu me corriger le code du load de mon form2 afin que cela corresponde à ta suggestion ?

Merci pour ta future aide.

[Pol63]

un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9

Dr = Cmd.ExecuteReader
Dim l As New AutoCompleteStringCollection
While Dr.Read
     l.Add(Dr.GetString(0))
End While
origine.AutoCompleteCustomSource = l
destination.AutoCompleteCustomSource = l

[IL-MAFIOSO]

Re,

Bon ben bravo Pol63, tu as visé dans le 1000

Vraiment merci beaucoup. C'était bien le contenu de la boucle qui faisait problème et avec ton exemple, c'est parfait.

Je classe le Topic comme résolu