BALLONS TOOLTIPS
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
7 sept. 2006 à 17:08
programadorvb6 Messages postés 8 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 2 octobre 2007 - 14 sept. 2006 à 14:07
programadorvb6 Messages postés 8 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 2 octobre 2007 - 14 sept. 2006 à 14:07
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/39475-ballons-tooltips
https://codes-sources.commentcamarche.net/source/39475-ballons-tooltips
14 sept. 2006 à 14:07
Agora, qto ao Win98 até corre, mas existe um problema, o "SetLayered" (contido no módulo), em primeiro lugar ele não está efetivamente sendo usado, portanto pode ser simplesmente retirado (as APIs usadas por ele não são usadas em Win98), ao retirá-lo (pode tirar o módulo todo), os seguintes códigos devem ser removidos (estes códigos se encontram no frmBallon, na Sub ShowBalloon):
'***************************
' Efeito de Tranparencia
'***************************
For Looper = 0 To 250 Step 5
SetLayered Me.hwnd, Looper ' De 0 a 255, quanto menor maior a transparência
Sleep 0.6
DoEvents
Next
Desta forma (foi testado), corre mto bem em Win98 e em WinXP...
OBS: Caso queira colocar pra funfar a SetLayered, basta colocar um "On Error Resume Next" no início, q assim correrá tb em Win98 (mas sem o efeito de transparência)...flw
7 sept. 2006 à 17:10
Pesaroso, eu não quis não falado sobre Toto mas Windows.
7 sept. 2006 à 17:08
Obrigado ;-)
Le code est propre et bien organisé même s'il reste quelques optimisation à apporter :
- Suppression des Timers
- Et 2 ou 3 autres trucs mais rien de grave