Application VBNET ralentie sur W7

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.

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

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

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:

---

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.

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() ?

Citation:

---

Envoyé par IL-MAFIOSO

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)

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:

---

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

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

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:

---

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.

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

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.

un truc du genre

Code:

---

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

---

Re,

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

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 :D