TIMER ASYNCHRONE
EvilGost
Messages postés
235
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 mai 2011
-
1 mars 2006 à 15:33
kam_2006 Messages postés 49 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 29 novembre 2010 - 3 mars 2006 à 12:58
kam_2006 Messages postés 49 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 29 novembre 2010 - 3 mars 2006 à 12:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/36329-timer-asynchrone
https://codes-sources.commentcamarche.net/source/36329-timer-asynchrone
3 mars 2006 à 12:58
3 mars 2006 à 08:44
En effet c'est l'interpretation du callBack par l'IDE de VB qui pose souvent problème, en cas de pas à pas sur une procédure n'hésite pas au prealable d'appeller la fonction StopTimer afin d'inhiber le callback.
@+
Megafan
2 mars 2006 à 18:23
faut passer par une Dll, au besoin
2 mars 2006 à 17:34
par contre, apres test, le TimerCallBack est captricieux, et n'hésite pas à planter VB si le callback est appelé pendant qu'autre chose est en cours semble-t-il...ou meme lors que l'on est en pas à pas :|
2 mars 2006 à 14:20
quand on peut aider....
Et surout n'hesite pas quand tu as des trucs un peu ch... , j'aime bien me prendre la tête.
@+
Megafan
2 mars 2006 à 13:42
je mets 10 :D
2 mars 2006 à 08:59
Question aux Admins : N'y a t'il pas un probléme avec l'upload ?
pour EvilGost :
Voici ce qui manque
sur Form1 tu ajoutes une Checkbox appelée ChkCnx et en caption 'Checker pour Connexion ok'
Tu ajoutes ensuite un ListBox appelée List1 qui sert de log.
Content d'avoir pu aider
@+
Megafan
Option Explicit
Private Sub Form_Load()
List1.AddItem "Test connexion au démarrage..."
If IsConnected() = False Then
List1.AddItem "Mise en route Timer..."
StartTimer (5000)
Else
List1.AddItem "Connexion au démarrage OK"
GoJob
End If
End Sub
Public Sub GoJob()
StopTimer
List1.AddItem "Connexion à la BD OK !"
End Sub
Private Sub Form_Unload(Cancel As Integer)
' Uniquement pour l'IDE qui n'aime pas trop les callback
StopTimer
End Sub
1 mars 2006 à 15:33