Bonjour,

Commet faire pour refresh des fonction DIM sur le code suivant à l'aide de Timer.
J'aimerais que les "Dim Procs" et "Dim tcpclient" se repette toute les 1 seconde pour mettre à jour les label1 et label6 en conséquence.
J'ai essayer de refresh la Form1 à l'aide de Me.Refresh() mais cela la refresh bien mais en plus de ne pas refresh les fonction DIM celui ci crée un chargement blanc sur mon background de ma form1.

Merci

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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    Dim procs As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("steam")
    If procs.Length > 0 Then
        Label1.Text = "Vous êtes connecté à Steam"
        Label1.ForeColor = Color.Green
 
    Else
        Button1.Enabled = False
        MsgBox("Veuillez vous connecter à Steam sur votre ordinateur pour rejoindre le serveur !", MsgBoxStyle.Critical, ("Avertissement"))
        Label1.Text = "ATTENTION Vous n'êtes pas connecté à Steam, veuillez le démarrer puis redémarrer le Launcher !"
        Label1.ForeColor = Color.Red
        Label1.Font = New Font(Label1.Font, FontStyle.Bold)
    End If
 
    If My.Settings.SaveIp = "" Then
    Label6.Text = "IP Manquante"
    Label6.ForeColor = Color.LightSlateGray
    Label6.Font = New Font(Label6.Font, FontStyle.Bold)
 
    Else
    Dim tcpClient As New Sockets.TcpClient
    Dim IP As String = "000.000.000.00"
    Dim Port As Int32 = "00000"
    Dim IPAddress As IPAddress = IPAddress.Parse(IP)
 
    Try
        tcpClient.Connect(IP, Port)
        Label6.Text = "En Ligne"
        Label6.ForeColor = Color.Green
        Label6.Font = New Font(Label6.Font, FontStyle.Bold)
    Catch err As Exception
        Label6.Text = "Hors Ligne"
        Label6.ForeColor = Color.Red
        Label6.Font = New Font(Label6.Font, FontStyle.Bold)
    End Try
    End If
 
End Sub