Inscription
19 décembre 2002
Dernière intervention
6 octobre 2009
Interventions
28
Signature

Gestion erreur et timeout

Bonjour, Lorsque j'execute ce code pour ouvrir une fenetre Internet explorer : On Error GoTo erreur1 Set ie = Nothing Set ie = New InternetExplorer DoEvents ie.Visible = True DoEvents ie.navigate "www.google.fr" On Error GoTo 0 end erreur1: MsgBox ("Ya une erreur : " & Error) J'ai aleatoirement une erreur "Le compo... Lire la suite

Lister les items d'un form

Je cherche un petit projet en VB6 deja tout fait tant qu'a faire  qui me permette de lister les differents items d'un form dans une liste (avoir toutes les function, sub ...) Avant de faire moi meme,  je recherche si ca n'a pas ete fait mais je n'ai rien trouvé pour le moment. Merci d'avance

outils pour gestion fonctions [Résolu]

Bonjour, Mon prog en VB6 contient de multiples fonctions qui ont une durée de validité. Passé une date que je met en observation a coté de la fonction, elles ne me servent plus et je cherche a les supprimer facilement. Ca se presente comme cela Function MaFonction1 () '10/10/07    xxxx end function Function MaFonction1 () '12/... Lire la suite

Un coup de main pour trouver la couleur d'un pixel dans tout l'écran windows

Avec toutes les réponses du forum, j'ai réussi à faire ceci : ----- Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Sub Command1_... Lire la suite