begin process at 2012 02 12 04:03:07
  Trouver un code source :
 
dans
 

72 commentaire(s) de Rrominet sur des sources sur tout CodeS-SourceS

Déposé sur Utilisation molette roulette souris

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...
Posté le : 03/11/2006 13:17:14

Déposé sur Utilisation simplifiée du hasard en .net

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 :-)
Posté le : 31/08/2006 16:17:43

Déposé sur Analyse de projets vb6

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 :-)
Posté le : 20/07/2006 09:56:37

Déposé sur Saisir au clavier.

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 !! ;-)
Posté le : 05/06/2006 11:08:29

Déposé sur Album photo web

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 !
Posté le : 02/05/2006 09:48:52

Déposé sur Clm's picker : capturer une couleur le plus simplement du monde

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 !
Posté le : 28/03/2006 10:39:19

Déposé sur Dkstooltip : un tool tip personnalisable au look xp, multilig...

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 :-)
Posté le : 16/03/2006 15:59:53

Déposé sur Dkstooltip : un tool tip personnalisable au look xp, multilig...

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 ;-)
Posté le : 16/03/2006 15:50:21

Déposé sur Dkstooltip : un tool tip personnalisable au look xp, multilig...

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 ;-)
Posté le : 09/03/2006 14:18:38

Déposé sur Utilisation molette roulette souris

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 !!
Posté le : 14/02/2006 17:03:51

1 2 3 4 5 6 7 8


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,842 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales