DKSTOOLTIP : UN TOOL TIP PERSONNALISABLE AU LOOK XP, MULTILIGNE ET TRANSLUCIDE

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 30 déc. 2004 à 21:20
jmbourreau Messages postés 17 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 4 avril 2007 - 5 janv. 2010 à 00:09
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/28515-dkstooltip-un-tool-tip-personnalisable-au-look-xp-multiligne-et-translucide

jmbourreau Messages postés 17 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 4 avril 2007
5 janv. 2010 à 00:09
Bonjour,
Je n'arrive pas à modifier le tooltype d'une flexgrid de manière interactive.
Cela fonctionne au démarrage, mais lorsque je passe sur une ligne cela ne se rafraichis pas au contraire cela plante.
Si tu pouvais me donner la méthode d'appel.
Merci.
dsodilon Messages postés 14 Date d'inscription samedi 18 décembre 2004 Statut Membre Dernière intervention 22 juillet 2008
3 nov. 2007 à 18:48
Bonjour ,
Débutant en VB.net je cherche depuis un moment un code qui me permet d’afficher un tooltips sur un trait dessiné sur une form

Ou alors un contrôle qui me permet de faire un trait et comme ça je peux afficher un tooltips

Merci d’avance pour votre aide
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
10 mars 2007 à 10:50
et théorie oui : le code est du pur vb avec des appels aux API standards de Windows, donc ce code doit pouvoir être facilement utilisé (avec quelques légères modifications peu-être) sous VBA.

DarK Sidious
cs_Lapou Messages postés 30 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 juin 2008 1
10 mars 2007 à 10:47
Bonjour,

Merci pour cette source...
Je vais posez une question bête : est-ce que je peux transposer cela sur un formulaire dans Access ???
Je suis un débutant mais je trouve très sympa :-)

Merci
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
6 déc. 2006 à 19:27
merci exporeur, c'est sympa !

Ca fait belle lurette que je ne poste plus de sources vb6 par manque de temps, mais le vb est toujours dans mon coeur ;)

DarK Sidious
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
6 déc. 2006 à 19:14
Salut Darksidious,

Sympa de faire partager ses connaissances en vb, et de mettre des sources comme celle-ci qui "profite bien" et qui sont facile de compréhension.
10/10
A+
Exploreur
Le Colossal Messages postés 1 Date d'inscription samedi 14 janvier 2006 Statut Membre Dernière intervention 17 juin 2006
17 juin 2006 à 02:47
J'ai le même problême (XP Sp2), les tooltips personnalisés ne s'affichent tout simplement pas. Mais cela doit venir de chez moi, d'autres sources utilisant le même principe ne fonctionnent pas non plus.
Dommage ça m'aurait été bien utile : )
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
3 juin 2006 à 17:22
Qu'est-ce qui "ne fonctionne pas" ? Si tu veux que je puisse t'aider, il me faudrait plus de détails...

DarK Sidious
danynous Messages postés 15 Date d'inscription mercredi 21 septembre 2005 Statut Membre Dernière intervention 13 mai 2012
3 juin 2006 à 15:49
Bonjour, Le tooltip ne fonctionne pas sur mon pc XP
merci de ton aide

@+ et merci pour cette source
Rrominet Messages postés 133 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 24 novembre 2014 1
16 mars 2006 à 15:59
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 :-)
Rrominet Messages postés 133 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 24 novembre 2014 1
16 mars 2006 à 15:50
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 ;-)
Rrominet Messages postés 133 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 24 novembre 2014 1
9 mars 2006 à 14:18
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 ;-)
darkanlegrand Messages postés 11 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 5 mai 2006
10 févr. 2006 à 11:25
Bon ben voilà, helas, un debut d'explication...
(fourni par le sevice dévelloppement de http://www.teebo.com)


Hello Darkan,
Thank you for contacting Teebo Software Solutions. The problem is actually a bug in the win32 implementation of tooltips in Windows XP. The are a number of posts in internet forums and Usenet groups by developers asking about the same problem with their own custom tooltip implementations. Since our product is based on the win32 implementation, our product is affected by the bug. We have tried to find a workaround, but have not found anything satisfactory as of this time. Microsoft has not publicly acknowledged the bug, and doesn?t seem to be willing to offer us help in finding a workaround, either, but they do seem to have found a way around the problem. Unfortunately, there isn?t much we can do at this time. We apologize for any inconvenience. Please let us know if you have any other questions.



Thank you,
Christopher J. Thibeault
Teebo Software Solutions

http://www.teebo.com
darkanlegrand Messages postés 11 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 5 mai 2006
8 févr. 2006 à 13:24
hélas rien n'y fait, je remarque que l'affichage est moins "stable": il y a en scintillement lors de l'apparition du tooltip en enlevant les2 lignes.

je viens de faire un autre test en exécutant vb6 avec le manifest pour avoir l'interface directement avec le loovk XP.
mais toutjours pareil... je comprend vraiment pas pourquoi appellant les composants de comctl32.ocx d'XP cela pose ce pb....

je cherche!

merci.
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
8 févr. 2006 à 12:54
Salut,

En effet, j'ai constaté un bug avec ma source sur le display time (je n'arrivais pas à mettre des tooltips pour des feuilles contenant une vingtaine de contrôle). Enlève les 2 lignes permettant de définir le temps d'affichage et le délais, ca devrais résoudre pas mal de tes problèmes (en tout cas, chez moi, ca marche bien mieux sans cà).

DarK Sidious
darkanlegrand Messages postés 11 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 5 mai 2006
8 févr. 2006 à 12:47
hello all!

je vois que les posts sont un peu vieux mais je tente ma chance ....

La source de Dark fonctionne nickel chez moi (XP_pro_sp2). Que ce soit sous l'ide(vb6_pro) ou compilée. Mais je suis apperçu d'un truc bizarre, j'explique:

lorsque je fais démarrer l'exe avec le .manifest, les tooltips fonctionnent jusqu'à ce que le m_lDisplayTime soit terminé. Après quoi, plus rien, il ne réaffihe pas le tooltip.
Idem si je donne le focus à l'objet sur lequel le tooltip est affiché(exemple un bouton), une fois qu'il à reçu le focus, impossible d'avoir le tooltip, même si je donne le focus à un autre objet et que je revienne dessus en survol, pas de tooltip. Biarre non,... ?!?

J'ai donc essayé plusieurs sources(de ce site et d'ailleur) utilisant le principe que nous propose DArkSidious, mais à chaque fois même problème avec l'utilisation du .manifest.

J'ai fait plusieurs test, y compris de "fusionner" le .manifest dans l'exe, mais rien n'y fait :((
C'est toujours pareil. J'entrvois un pb de Handle, mais mes compétences s'arrètent là. Qlq'un aurait une petite idée, même aussi vaste soit elle???

Dark, j'ai compris que tu ne voulait pas t'attarder sur cette source, mais si tu as une idée pour orienter mais recherches...

Merci à tous!
cs_Lus Messages postés 35 Date d'inscription lundi 6 novembre 2000 Statut Membre Dernière intervention 6 mars 2008
12 janv. 2006 à 15:48
Bravo a tous... Mais comment faire pour créer un lien dans cette infobulle stype XP????
cs_MasterHack Messages postés 586 Date d'inscription jeudi 18 septembre 2003 Statut Membre Dernière intervention 13 février 2008 2
9 août 2005 à 19:57
moi je prefere On local error,pour gerer les erreurs internes seulement.bonne prog
cs_myco Messages postés 6 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 25 juillet 2005
9 août 2005 à 18:23
Le typeOf marche aussi Pour les CommonDialog mais pas pour les ImageList! c dingue!
Je garde ma soluce parcque j'ai des problèmes avec le On error Goto , au premier passage il va bien au goto et retourne dans la boucle. Et a la seconde erreur il retourne dans la gestion d'erreur de mon Form_Load ou j'appel ApplyToolTip(). Comprend pas...
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
26 juil. 2005 à 18:36
ok pour le On Error ...
(c'est d'ailleurs pour cela que j'ai repris le Menu, qui lui est là ^^ )
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
26 juil. 2005 à 18:10
Le problème avec ce genre de test, c'est qu'il faut que les contrôles soient référencés, donc ca crée des dépendances énormes !

Alors qu'avec un On Error Goto, et gérer le numéro de l'erreur qui peut apparaître est sûrement aussi sûr, et plus pratique !

DarK Sidious
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
26 juil. 2005 à 17:07
C'est incevable d'efectuer le test sur le nom des objets...

If TypeOf oFor1 Is Menu Then
If i >= frmForm.Controls.Count Then
GoTo exitFor
Else
GoTo nextFor
End If
End If

par contre sur leur Type ....
cs_myco Messages postés 6 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 25 juillet 2005
26 juil. 2005 à 16:21
Merci pour ton travail et ton partage Darksidious!
J ai intégrer ton source dans un projet ca marche nickel!
Juste une remarque :D Faire attention avec certains controle qui ne possède pas la propriété tooltiptext, il faut faire des exceptions dans la fonction ApplyToolTip() dans les deux boucle FOR EACH du genre:

For Each oFor1 In frmForm.Controls
i = i + 1
If oFor1.Name "Imageliste" Or oFor1.Name "CommonDialog" Or oFor1.Name = "Menu1" Then
If i >= frmForm.Controls.Count Then
GoTo exitFor
Else
GoTo nextFor
End If
End If
...
...
nextFor:
Next oFor1
exitFor:

J'ai essaye de faire une verif sur le type du controle pour que ce soit plus propre et fonctionnel, mais j'ai pas encore trouver...
@bientot
;-)
FredRaid Messages postés 1 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 24 juin 2005
24 juin 2005 à 22:18
Source nickel... Cela va beaucoup m'aider pour le prog que je suis en train de mettre à jour. Par contre je suis interessé par la source d'EricSim et je ne la vois pas dans le ZIP. Y'a t'il eut des changements depuis mai ?
Et encore merci...
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
3 mai 2005 à 13:49
Je l'ai bien reçu mais je n'ai pas le temps actuellement pour la regarder.

Je te tiendrais au courant d'ici la fin de semaine

DarK Sidious
ericsim Messages postés 6 Date d'inscription vendredi 4 juillet 2003 Statut Membre Dernière intervention 20 avril 2005
3 mai 2005 à 12:15
J'ai envoyé la fonction à DARKSIDIOUS, j'espère qu'il la bien recue
ericsim Messages postés 6 Date d'inscription vendredi 4 juillet 2003 Statut Membre Dernière intervention 20 avril 2005
28 avril 2005 à 08:27
Pas de problème, mais il faut que je la retravaille pour qu'elle soit présentable, en début de semaine prochaine
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
27 avril 2005 à 18:14
Si tu veux, tu me l'envoie par mp, et je la publie avec la source, ainsi tout le monde pourras en bénéficier (je n'oublierais pas de te citer dans le code bien entendu !)

DarK Sidious
cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
27 avril 2005 à 18:10
Ta fonction m'interesse ericsim, pourrais-tu nous la faire partager ?

mon mel : webmaster arobazeuh hivacruz point com

Merci à toi !
ericsim Messages postés 6 Date d'inscription vendredi 4 juillet 2003 Statut Membre Dernière intervention 20 avril 2005
27 avril 2005 à 16:46
C'est déja trés bien...

Pour mon appli, j'ai créé un type genre
tool_type...
texte as string
titre as string
etc...


Que je remplie suivant les besoins de l'objet, je balance ce type à une fonction qui me retourne le texte formaté, et je n'ai plus qu'a l'affecter au tooltypetext de mon objet...

En plus, j'initialise le type au demarrage de l'appli, genre couleur de fond, couleur des caractères, transparences, centrage ... ce qui permet d'avoir des tooltypetext identique pour toute l'appli

Bon j'espère avoir été clair, c'est parfois plus facile à faire qu'a dire :-)
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
27 avril 2005 à 16:00
Merci pour ce test ericsim et pour tes appréciations, ca fait plaisir ;)

Les tooltips sont en fait un paramètre à spécifier à une fenêtre (donc à un contrôle) :

'on définit les informations du tooltip
With m_pToolTipInfo
Let .lFlags = TTF_SUBCLASS Or TTF_IDISHWND
If m_bIsCentered Then Let .lFlags = .lFlags Or TTF_CENTERTIP
Let .hWnd = lControlHwnd
Let .lId = lControlHwnd
Let .hInstance = App.hInstance
Let .lpStr = m_sTipText
Let .lSize = Len(m_pToolTipInfo)
End With
Call SendMessage(m_lHwnd, TTM_ADDTOOLA, 0&, m_pToolTipInfo)

En gros, cela consiste à renseigner le contrôle quelle est la feuille qui sert de tooltip pour lui. Ensuite, il est possible de le personnaliser grâce à quelques paramètres :
TTM_SETTIPTEXTCOLOR
TTM_SETTIPBKCOLOR
TTM_SETDELAYTIME

Il me reste encore un peu de travail sur cette source pour la rendre aussi puissante que j'aimerais : l'ajout d'un bouton de fermeture comme on peux le voir sous Windows XP avec le tooltip du systray qui s'affiche lors d'une connexion internet par exemple. Ce bouton devra bien entendu être au look xp si l'ordinateur est sous XP, sinon, au look Win95 !

Malheureusement, je n'ai pas le temps de me pencher sur cette évolution en ce moment.

DarK Sidious
ericsim Messages postés 6 Date d'inscription vendredi 4 juillet 2003 Statut Membre Dernière intervention 20 avril 2005
27 avril 2005 à 15:25
Vraiment tres tres bien.
Question : Comment fonctionne l'apparaition du tool tip. Est-ce un appel à une fonction Windows. J'avoue m'être servi des tool tip sans jamais m'en préocuper.

Je viens de faire un test sur un programme qui est en réseau, et cela fonctionne avec tous les Windows...
De W95 à XP sp2

Encore super pour le code
cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
26 avril 2005 à 15:55
Ah nan sorry, tout fonctionne parfaitement.. Erreur de waittime Désolé !

Je pense que tu devrais prendre en compte la modif de pluplu Dark Sidious car là ca fonctionne impec !

Merci à vous deux, et à bientot !
cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
26 avril 2005 à 15:50
Malheureusement, avec PostMessage plus aucun ne s'affiche :/
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
24 avril 2005 à 13:01
Oui, exact pluplu, je n'ai pas encore modifié cà, mais il est possible que ca vienne de là : si le contrôle n'a pas le temps d'intercepter le message envoyé par SendMessage, le tooltip ne s'affichera pas !

Merci de m'avoir raffraichit la mémoire pluplu ;)

DarK Sidious
cs_pluplu Messages postés 615 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 juillet 2012
24 avril 2005 à 08:59
YaNnOu

Si ton problème est que aléatoirement certains de tes tooltip ne fonctionnent pas essaie cela:

dans le module de class CDKSTooltip de la source, localise la sub Public Sub CreateToolTip et modifie les deux lignes juste après le commentaire 'on définit le délais d'attente et le temps d'affichage

remplace les deux commandes Call Sendmessage......
par Call PostMessage......

Pour moi cela a corrigé le problème je l'avais d'ailleur mentionné plus haut dans ce forum, mais je ne sais pas si le source à été corrigé par Dark que je salue au passage.
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
23 avril 2005 à 17:18
Ben là je vois pas alors ! ca marche très bien chez moi !

DarK Sidious
cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
22 avril 2005 à 18:52
J'ai téléchargé ta nouvelle source Dark Sidious et sans vouloir être lourd ( si ce n'est déjà le cas ) rien qu'en lancant ta source, le tooltiptext du bouton exit ne marche pas, sans aucune modif de ma part

Il n'y a que celui de la listbox qui semble fonctionner, je me demande vraiment à quoi cela peut être dû !
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
22 avril 2005 à 18:14
non , c'est vrai, reste qu'il faut cibler les lignes a ignorer....

éviter les On Error trop systématiques

(je n'ai pas vu le code de la procedure en question)
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
22 avril 2005 à 17:03
Oui je suis d'accord, le On Error permet de cibler les erreurs, et les ignorer toutes implique parfois des erreurs innatendues et très difficiles à percevoir par la suite si on les a ignorées, mais cependant, pour ce type de problème, on peux très bien le mettre : l'erreur venant très sûrement des contrôles qui ne possèdent pas de propriétés ToolTipText, cela n'engendrera pas de grosses erreurs, du moins, je ne pense pas ;)

DarK Sidious
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
22 avril 2005 à 16:59
mauvaise habitude que de placer dees On Error en tête de procédure...

il faut cibler les lignes de code qui génèrent les erreurs que l'ont veux intercepter.

s'il n'est pas possible de les prévoir sans gestion d'erreur (controle des parametres, par exemple).

dans le cas d'une propriété non disponible, pas le choix, je vous l'accorde.

néanmoins, il faut cibler les lignes de code :

on error Resume Next
Ctrl.ToolTipText = sToolTip
If Err <> 0 then
'# Traitement eventuel de l'erreur
End If
On Error Goto 0 '# On réactive la gestion d'erreur standard

enfin, si c'est confortable de se dire qu'un On Error... aide en développement, l'idéal serait d'en enlever un maximum, afin d'eviter certains bugs potentiels.
pour cela, activer l'arret sur toutes les erreurs dans les options de VB
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
22 avril 2005 à 16:46
Bon, je viens de vérifier, et le zip qui est sur le site n'est pas la version que j'ai sur mon poste, mais une version de test que j'avais faite, ca me paraît bizarre que j'ai posté une version de test ! Enfin bon, je viens de mettre le code à jour, et ca devrait mieux fonctionner maintenant ;)

DarK Sidious
cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
22 avril 2005 à 16:29
Ca marche toujours une fois sur deux, des fois c'est le premier, des fois c'est le deuxieme textbox.. je perds espoir !
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
22 avril 2005 à 14:52
Arf, oui, si un contrôle ne possède pas la propriété ToolTipText, c'est normal !

Mets un On Error Resume Next en début de procédure.

DarK Sidious
cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
22 avril 2005 à 14:35
Argh j'obtiens une autre erreur maintenant, en essayant d'utiliser la nouvelle méthode dans mon projet :/

Ca me renvoie dans ton module en surlignant :

" Let sToolTipText = oFor1.ToolTipText"

et ca me dit "L'objet ne gère pas cette proprieté ou cette méthode " :(

Une idée ?

Merchi
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
22 avril 2005 à 06:52
Alixdj : malheuresement, je n'ai plus trop le temps de faire évoluer mes sources en ce moment, mais l'évolution de celle-ci reste ma priorité car j'ai aurais besoin dans un projet professionnel, donc la fermeture par une croix reste d'actualité !

YaNn0u : je rencontrais le même problème avec la version précédente, or cette version là fonctionne mieux... cela venait de la déclaration du windows common controls, faudras que je teste cà pour la prochaine mise à jour. Par contre, c'est quand même plus lourd à faire de devoir faire avec l'ancienne méthode !

DarK Sidious
cs_YaNn0u Messages postés 48 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 27 avril 2005
22 avril 2005 à 00:29
Hello,

J'ai pas mal de problème avec ta source que j'aimerais bien utiliser pour un projet assez gros.. J'ai préféré garder l'ancienne méthode pour faire les tooltiptext personnalisés ( avec les dizaines de "let tooltip".. ) mais ca ne marche pas, j'ai cinq textbox ou j'ai donc déclaré tous les controles pour les nouveaux tooltiptext mais un seul s'affiche ! J'ai essayé avec la nouvelle méthode et c'est pareil :/

J'tourne sur XP pro avec vb6.. J'attends avec plaisir ta réponse

A pluche
cs_alixdj Messages postés 9 Date d'inscription lundi 5 avril 2004 Statut Membre Dernière intervention 19 août 2005
22 avril 2005 à 00:27
Très jolis tooltips, j'attends aussi avec impatience qu'ils puissent rester ouverts.
Soit avec un bonton de fermeture, ou mieux avec clic
partout ailleurs.
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
7 janv. 2005 à 20:57
Cela viendras, mais plus tard, avec un bouton de fermeture comme le fait le tooltip de WindowsXP pour les messages du systray, si j'y arrive bien entendu !

DarK Sidious
cs_pluplu Messages postés 615 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 juillet 2012
7 janv. 2005 à 20:37
Ok dans ce cas j'attend ta source, c'est vrai qu'une dll activeX est une meilleure idée.
Un truc qui serai sympa serai de pouvoir maintenir le tooltip ouvert tant que l'on est sur le control.

A+ Pluplu
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
7 janv. 2005 à 20:15
Ben attends un petit peu : d'ici fin janvier-début février, je vais mettre à jour cette source pour implémenter l'automatisation des tooltips de tout les contrôles des feuilles, et je la passerais alors en tant que dll activeX. Je ne pense pas qu'un ocx apporte la moindre chose en plus : je vois mal mettre autant de contrôles ocx que de contrôles standards pour avoir des tooltips !

DarK Sidious
cs_pluplu Messages postés 615 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 juillet 2012
7 janv. 2005 à 19:36
Voilà j'ai trouvé la cause du problème, j'ai remplacé dans le module de class
les Instructions "SendMessage" par "PostMessage" et ça vas nettement mieux je n'ai plus aucun problème. Pour ce qui est de Win98 en mode Balloon les angles sont un peu cassé (pas très arrondis) mais l'effet reste valable et pour les icônes je ne vois pas grande différence.
Je vais maintenant essayer de mettre tout ça dans un OCX.

Pluplu
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
7 janv. 2005 à 18:29
Oui vraiment bizarre cà ! Va falloir que je fasse des tests plus approfondis !

Je ne savais pas que Windows 98 faisait des tooltips en balloon, c'est cool que ca marche aussi ! Par contre, au niveau des icônes, ca doit faire des icônes 24 bits alors ?

DarK Sidious
cs_pluplu Messages postés 615 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 juillet 2012
7 janv. 2005 à 18:16
Oui le mode Balloon marche sous Win98 et même si le mode translucide est activé sauf que sous Win98 le fond reste non-tranparent.
Pour ce qui est du probl. de WaitTime j'ai essayé avec différ. valeurs de 2 à 500 mais ça semble réagir bizarement avec une même valeur pour le WaitTime des fois le 1er control réagit normalement et les autres controls de la form de mannière très lente et cela sans que mon PC ne soit ralentis par d'autres process, j'ai essayé de transformer la classe en OCX mais le problème reste le même ??
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
7 janv. 2005 à 16:44
Tiens donc, je n'ai pas ce problème chez moi ! Combien mets-tu pour le WaitTime ?

Donc ca marche sous Windows 98 ? Ca c'est une bonne nouvelle ! Mais est-ce que le mode Balloon marche sous Win98 ?

DarK Sidious
cs_pluplu Messages postés 615 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 juillet 2012
7 janv. 2005 à 16:42
Quelques problèmes persistent, j'ai compilé et essayé un example sur win2000, et Win98 ça marche par contre sur XP si le tooltip est en mode Balloon il n'apparait qu'après un temps très long même si je recompile la source depuis XP ?? et même en essayant de changer le paramètre WaitTime.
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
3 janv. 2005 à 18:37
C'est clair tu peux plus coincer la bulle avec ton info !

Yop !

Afyn
Navedac
cs_MasterHack Messages postés 586 Date d'inscription jeudi 18 septembre 2003 Statut Membre Dernière intervention 13 février 2008 2
3 janv. 2005 à 17:32
Biensur que c'est bien,j'ai toujour aimer les infobulle au style XP bonne continuation
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
3 janv. 2005 à 17:29
Merci MasterHack ;)

J'étais loin de penser qu'une telle petite source plaise autant !

DarK Sidious
cs_MasterHack Messages postés 586 Date d'inscription jeudi 18 septembre 2003 Statut Membre Dernière intervention 13 février 2008 2
3 janv. 2005 à 17:27
c'est cool,vraiment top!bravo
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
3 janv. 2005 à 17:26
Un bouton de fermeture ?

Oui c'est possible, mais ca demande pas mal de boulot ! Surtout que tu le veux au look XP bien sûr, je me trompe ? ;) Je vais y réfléchir, mais ce sera pas pour tout de suite !

DarK Sidious
ProgrAmateur Messages postés 2 Date d'inscription mercredi 3 novembre 2004 Statut Membre Dernière intervention 3 janvier 2005
3 janv. 2005 à 17:18
Salut l'ami !
c'est bien comme source,une petite question si tu vx :Comment peut on attribuer un bouton de fermeture a ces infobulles?Merci pour la source.
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
3 janv. 2005 à 12:56
lol, la classe devrait être prête d'ici fin janvier normalement. Elle permettra d'automatiser les contrôles d'une (ou plusieurs) feuille avec la même méthode qu'actuellement : les balises dans le tooltiptext des contrôles permette de définir les options du tooltip rattaché.

DarK Sidious
Senynium X Messages postés 49 Date d'inscription vendredi 22 octobre 2004 Statut Membre Dernière intervention 12 juin 2008
3 janv. 2005 à 12:47
Attendons la classe ..., si on la fait pas avant
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
3 janv. 2005 à 11:36
Nouvelle mise à jour (décidément, c'est sur les sources que je ne pense pas faire de mise à jour où j'en fait le plus ;)

Alors, bug avec l'exe résolu, maintenant ca à l'air de mieux marcher.

Et j'ai surtout rajouté une fonction pour appliquer automatiquement les tooltips à tout les contrôles d'une feuille ! Cela peut en inspirer certains pour encapsuler cà dans une classe avant que je le fasse (c'est prévu pour après mes exams ;) Ainsi, il sera possible d'automatiser les tooltips pour un nombre non définit de feuille : un objet par feuille en fait !

DarK Sidious
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
3 janv. 2005 à 11:05
idem (Xp Pro / NT4)
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
3 janv. 2005 à 10:55
... Au fait j'ai un bug sur mon ordi ?
Le tooltip ne fonctionne pas sur l'exe compilé ?

A+

Bonne Prog

Afyn
Navedac
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
3 janv. 2005 à 10:52
C'est super ... et trés bien commenté.
Bon, je n'ai plus qu'a bucher pour comprendre !

Bravo

Afyn
Navedac
Senynium X Messages postés 49 Date d'inscription vendredi 22 octobre 2004 Statut Membre Dernière intervention 12 juin 2008
3 janv. 2005 à 10:06
Classe tres interessante, du bon boulot
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
2 janv. 2005 à 15:07
Voilà c'est fait, j'ai rajoutté une propriété pour rendre le tool-tip transparent. A n'utiliser que sous Windows XP ou 2000 cependant !

DarK Sidious
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
2 janv. 2005 à 14:30
Bonjour
La fenêtre du Tool Tip peut elle être transparente ?

Merci

Afyn
Navedac
cs_pluplu Messages postés 615 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 juillet 2012
31 déc. 2004 à 16:41
Pas vu de problème sous win 2000 tout marche bien, bon boulot, je vais m'en servir directement c'est super chouette encore merci Dark
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
31 déc. 2004 à 14:08
Tout à fait Renfield, et je n'ai pas essayé de te copier, bien au contraire !

Je suis par contre désolé d'avoir mis une source qui existe déjà sur ce site, bien que différente en code, elle est équivalente en finalité. J'espère juste qu'il n'y aura pas autant de sources sur ce sujet qu'il n'y en a pour les programmes de messagebox par exemple ;)

DarK Sidious
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
31 déc. 2004 à 14:01
Pas de probleme Dark...

NISANDSYSTEMS, inutile de s'enerver... j'ai vu la source de Darksidious, et ayant fait un code sur le susujet, je m'y suis interessé....

Je dis pas d'utiliser l'une ou l'autre, j'indique l'URL pour que ceux que ca interesse aillent faire un tour...

J'ajouterais que d'autres avant Darksidious ou moi ont deja epprouvé ces techniques, qui sont documentées sur le Net (MSDN, notamen)

enfin, c'est ma vision de la chose... pas de comparaison a faire, ni de jugement quelconque, c'est un site de partage, je fournis un autre point de vue sur les mêmes finalités...

sur ce, amusez-vous bien avec les Tooltips ;-)
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
31 déc. 2004 à 11:05
Désolé Renfield, je n'avais pas vu que tu avais posté une source similaire !

DarK Sidious
thierrydelepine Messages postés 521 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 11 septembre 2008 6
31 déc. 2004 à 11:03
Renfield : Ton code aussi est tres interessant, les deux se valent (je ne suis pas rentré dans les details pour les comparer), mais il est vrai que vos deux codes sources apportent un add-on a visual basic qui est vraiment basic dans ces controles.

merci a vous deux.
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010
31 déc. 2004 à 11:02
Renfield ici pas de pub ici.
DarK Sidious poste une source, on dit ce que l'on en pense et non de la vanitée sur tes prouesses si magiques...


DarK Sidious; Interessant et bien pensé

Nisand-Systems
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
31 déc. 2004 à 07:25
pour ceux que ca interesse, j'ai fait il ya quelques temps une source similaire...

http://www.vbfrance.com/code.aspx?id=6539
thierrydelepine Messages postés 521 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 11 septembre 2008 6
30 déc. 2004 à 22:21
une classe interressante
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
30 déc. 2004 à 21:20
par contre, si l'un d'entre vous possède windows 2000/ME/98 ou 95, est-ce que vous pouvez me dire si le tool tip sous forme de bulle marche aussi sur ces OS svp ?

Merci d'avance

DarK Sidious
Rejoignez-nous