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
Partager