problème lors de perte focus

[blue wave]

Salut tt le M,

J'ai un p'tit problème lorsque mon applic perd le focus.

 

J'ai codé une petite applic en VB qui, grâce à un timer qui est activé en permanence, va récupérer des infos sur d'autres serveurs et les stocke dans ma base de données.

 

Il se trouve que quand j'ouvre une autre fenêtre, quelle qu'elle soit (word, eudora,...) mon applic se met à clignoter, ou plutot le caption de mon applic. Elle ne supporte visiblement pas de ne pas être au premier plan.

Je pense que c'est du au timer... mais comment contourner le problème ?

 

HELP !!

 

 

Merci d'avance,

[leneuf22]

Qu'est-ce que tu as mis dans le code de ton timer ?

[blue wave]

j'ai mis un truc assez basic..

 

'Dim AFocus As Object

Dim nbHeures As Integer

Dim StartTime As Date

Dim tmp As Date

 

'Set AFocus = Me.ActiveControl

'affiche l'heure

edTime.Text = Format(Time, "hh:mm:ss")

'affiche le temps écoulé

tmp = Now()

 

If chkActivate.Value = 1 Then

 

'affichage temps écoulé depuis activation timer

If tmp - LoadTime > 1 Then

edClock.Text = Int(tmp - LoadTime) & " Day(s) " & Format(tmp - LoadTime, "HH") & " h " & Format(tmp - LoadTime, "Nn") & " min " & Format(tmp - LoadTime, "ss") & " sec"

Else

edClock.Text = Format(tmp - LoadTime, "HH") & " h " & Format(Now() - LoadTime, "Nn") & " min " & Format(tmp - LoadTime, "ss") & " sec"

End If

 

'appel de process

If Not IsBusy Then

If Not IsEdit Then

CheckProcess

End If

End If

Else

' met le temps écoulé à zero si timer désactivé

edClock.Text = " -----"

End If