Discussion :

[deicide]

Bonjour,
j'ai un soucis avec le "Label2.Text = ip" qui doit s'afficher à chaque boucle
hors le seul moyen que j'ai trouvé pour le faire c'est de rajouter cette "msgbox"
quand la msgbox est commentaire ca ne marche pas
quand la msgbox est active ca marche dans la msgbox et dans le label2 !
j'y comprends rien

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
        Dim ip As String
        Dim numero As String
        Dim host As String
        host = Nothing
        
        For compteur As Integer = 1 To 30
            numero = compteur
            ip = "192.168.0." + numero
            Label2.Text = ip
            'MsgBox(ip)

            If My.Computer.Network.Ping(ip) Then
                host = host & vbNewLine & ip
            End If

        Next

merci de votre aide

[plume13]

Qu'entends-tu exactement par "ça ne marche pas" ? Si le résultat de ta boucle est l'affichage de 192.168.0.30 dans le Label2, c'est normal, c'est ce que tu as codé...

[deicide]

le but c'est de savoir à quelle ip j'en suis (affiché par mon label2.text)
(celle qui est en train d'etre pingée)

ca me l'affiche bien dans le label (et dans la messagebox) QUE quand la ligne msgbox est présente (pas en commentaire)
sinon ca ne m'affiche rien tant que la boucle n'est pas finie

MERCI

[plume13]

Ok, dans ce cas, ça doit être un problème de rafraichissement de la fenêtre : http://www.developpez.net/forums/d10...nform-refresh/

[deicide]

ok
merci beaucoup

je vais regarder ca mais c'est pas (encore) de mon niveau je pense

MERCI

[chrismonoye]

Bonjour
vous pouvez aussi rafraichir le Label comme il est écrit dans la réponse 5.1

Ne pas oublier Label1.Refresh qui force l'affichage pour chaque tour de la boucle. Sans cela l'affichage serait mis à jour uniquement en fin de procédure.

vous pouvez aussi temporiser le Thread en cours soit le Thread principal de l'application :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        For compteur As Integer = 1 To 60
            numero = compteur.ToString
            ip = "192.168.0." + numero
            Label2.Text = ip
            If My.Computer.Network.Ping(ip) Then
                host = host & vbNewLine & ip
            End If
 
            Threading.Thread.Sleep(200)
            Label2.Refresh()
        Next

L'inconvénient est que l'on bloque l'application.
Pour l'éviter, il faudra -comme le dit plume13- déléguer le traitement à un Thread secondaire.

[deicide]

merci chrismonoye

le Label.Refresh() est effectivement ce dont j'avais besoin

le Threading.Thread.Sleep(ms) me rends bien service à un autre endroit, je n'osez pas l'utiliser mais mon code est tellement hazardeux que ça n'est pas encore ma priorité


Thread.Sleep is a sign of a poorly designed program

merci merci merci !

[Uranne-jimmy]

Du coup j'ai une petite question toute conne à poser qui vient de me traverser l'esprit : c'est parce que c'est dans une statusStrip que mon label se refresh automatiquement ?