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 .....