J'ai aussi le problème sur un ordi où la molette ne fonctionne pas malgré ce code...
Et d'autres ordis où cela fonctionne nickel !!

Sinon juste pour info, pas mal de contrôles que j'ai pu créer ou réutiliser me plantent VB6.
Ca devient monnaie courante quand l'appli en utilise beaucoup ou est trop grosse. Sans doute qu'il y a des choses à ne pas faire en dev et qui font planter VB...

Le fait de passer de Win98 à WinXP m'avait permi à l'époque d'éviter beaucoup de plantages de VB, mais il en reste trop...

Je ne connaissais pas l'objet Random, mais il semble générer un nombre aléatoire correct (pas comme en C).

Merci pour cette petite classe qui fait gagner du temps :-)

Hello,

Marche bien ton petit programme, si ce n'est à mon goût pas assez de gestion d'erreurs ;-)

Juste une modif à faire, quite à lanalyse de mon (gros) projet. J'aurais déclaré le type suivant de la manière suivante :

Private Type VBPEntity
     ...
     Fichier(500) As VBPFile
End Type

(500 au lieu de 40 fichiers, parce que 40 c'est peu :P).


Et à la fin de ta boucle With dans la fonction Analyse(), il y a un m.Row = m.Row + 1 qui plante.

Mais à part ça c'est pratique :-)

Je ne sais pas si ma critique sera utile, mais je viens de me pencher sur Java et la POO depuis quelques heures seulement (Je suis Pro-VB à la base) et j'ai l'impression que ta source est ce qu'on apprends quasiment en premier dans les cours que j'ai pu trouver sur le net.

C'est utile certes pour développer vite, mais ça me parait basique.

C'est pas pour ça que je dénigre ta source hein, elle me servira sûrement !! ;-)

Ca m'a l'air pas mal, moi qui cherchait un moyen simple pour ma copine afin qu'elle mette ses photos sur le net.

En revanche, je n'ai pas regardé pourquoi mais ta fonction "ResampleDib()" semble trèèèèèès longue, puisque dans mes tests je ne suis jamais arrivé à la fin...
Je ne sais pas encore à quoi elle sert, mais du coup ça ne fonctionne pas...

Je retenterais plus tard !

J'aurais aussi ajouté le code couleur de la fonction RGB() de VB, qui donne un entier long composé comme suit :
RGB = R + (G * 256) + (B * 256 * 256)

Je sais que j'en ai eu besoin dans VB une fois et que j'ai galéré pour trouver ma couleur :-)


Sinon excellente source !! Hyper basique mais hyper utile !

Oops, j'ai oublié la 2ème partie de la procédure que j'ai modifiée :

J'ai remplacé ce code :
-----------------------
  Let sToolTipText = oFor1.ToolTipText
  GoSub InitToolTip


Par celui-ci :
--------------
  If TypeOf oFor1 Is Toolbar Then
    For i = 1 To oFor1.Buttons.Count
      Let sToolTipText = oFor1.Buttons(i).ToolTipText
      GoSub InitToolTip
      DoEvents
    Next i
  Else
    Let sToolTipText = oFor1.ToolTipText
    GoSub InitToolTip
  End If 'Fin TypeOf()


Merki :-)

Juste pour information, j'ai voulu essayer de gérer des contrôles supplémentaires, comme par exemples les "ToolBar" ou bien les "SSDBComboBox" (du pack Sheridan), mais impossible de les afficher.

Je ne suis pas spécialiste du code que tu as écrit et j'avoue avoir un peu de mal à comprendre pourquoi les infos bulle ne s'affichent as sur ces contrôles.



En fait, concernant les ToolBar, j'ai remplacé ce code dans la fonction ApplyToolTip() de ton module "Mod_ToolTip.bas" :

      Let sToolTipText = oFor1.ToolTipText
      If sToolTipText <> "" Then
        'on teste si on veux un tooltip avancé ou pas
        If InStr(1, sToolTipText, "[") > 0 Then
          Let iNombreControles = iNombreControles + 1
        End If
      End If


par celui-ci :
--------------
  If TypeOf oFor1 Is Toolbar Then
    For i = 1 To oFor1.Buttons.Count
      Let sToolTipText = oFor1.Buttons(i).ToolTipText
        If sToolTipText <> "" Then
          'on teste si on veux un tooltip avancé ou pas
          If InStr(1, sToolTipText, "[") > 0 Then
            Let iNombreControles = iNombreControles + 1
          End If
        End If
        DoEvents
      Next i
    Else
      Let sToolTipText = oFor1.ToolTipText
      If sToolTipText <> "" Then
        'on teste si on veux un tooltip avancé ou pas
        If InStr(1, sToolTipText, "[") > 0 Then
          Let iNombreControles = iNombreControles + 1
        End If
      End If
    End If


... en pensant que ça gérerait les infos bulle des mes boutons. Mais du coup les infos bulle apparaissent normalement (style VB) avec tous le code des tiens ("[Title=Aide] [TipText="..."]...).


Merci d'avance si quelqu'un a une idée poue gérer cela ;-)

Je suis bien fan de cette source :-)

Je l'ai un peu modifiée pour intégrer quelques petits trucs perso, mais sinon rien à redire, excepté que la transparence ne semble pas fonctionner à chaque exécution de mon EXE (des fois tout le temps, des fois pas du tout...) malgré mon Windows XP.

Mais ce n'est pas ce que je recherche...


Merci ;-)

Tout bonnement géniale cette source !!!

Moi qui me voyait déjà galéré des heures sur le sujet, pour finir ça m'a pris 3 minutes chrono en main pour intégrer ta source de partout :-)


Merciiiiiiiiiiiiii !!