Comment Refresh un DIM avec un Timer
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:
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 |