[Tangohan]

Bonswar, l'outil Timer nétant pas disponible sur VB avec la Windows Presentation Foundation (WPF), il y a quand même moyen de l'avoir avec un:

Code :

Public Sub dispatcherTimer_Tick(ByVal sender As Object, ByVal e As EventArgs)

Donc tout d'abords on fait un Load qui charge en même temps que la WPF, sous une Form VB normal le code existe déjà, c'est celui-ci

Form_Load:

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub

Pour nous, vue que nous sommes sous une form WPF, on va d'abord rajouter une balise dans le XML, à la ligne:

Code :

Title="MainWindows" Height="300" Width="300" >

Qui devient:

Code :

 Title="MainWindows" Height="300" Width="300"  Loaded="Window_Loaded" >

Maintenant que cela est fait, on peut faire notre sub Main_Loaded avec le timer:

Code :

Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) _
       Handles MyBase.Loaded
       Dim dt As DispatcherTimer = New DispatcherTimer()
       AddHandler dt.Tick, AddressOf dispatcherTimer_Tick
       dt.Interval = New TimeSpan(0, 0, 1)
       dt.Start()

   End Sub

Puis on fait le sub du dispatchertimer où vous pouvez mettre ce que vous voulez:

Code :

 Public Sub dispatcherTimer_Tick(ByVal sender As Object, ByVal e As EventArgs)
      
   End Sub

Voila, le timer est bon, ce lancera au lancement de la WPF et executera la tâche affecté dans le Dispatcher Timer