comment actualiser des données dans linstbox

Bonjour,

Objets = 3
- form 1
- Timer 1
- ListBox 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
' Liste + Timer_form 1
Option Explicit On
Public Class Form1
  Dim sourceListe As String
 
  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ListBox1.Items.Clear()
    Timer1.Interval = 1000 ' 1s
    Timer1.Enabled = True
  End Sub
 
  Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    sourceListe = "???"
    ListBox1.Items.Add(sourceListe) ' ou autre op
    ListBox1.Refresh()
    If Condition = C Then Timer1.Enabled = False ' stop timer
  End Sub
End Class

Cordialement.

Joe.