Discussion :

[Jean-Luc80]

Bonjour
Quelqu'un a t'il déjà essayé de mettre des info bulles en forme de ballon (style XP) dans des forms Access ?
Est ce possible?
Merci

[francishop]

Bonsoir,

Sur un formulaire tout neuf on va mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Load()
   With Assistant
   Assistant.Sounds = True
   Assistant.Animation = msoAnimationGreeting
   Assistant.On = True
   End With
End Sub

Et tiens, pendant qu'on y est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Unload(Cancel As Integer)
   Assistant.On = False
End Sub

Sur ce formulaire un bouton qu'on interpelle sous le sobriquet de : cmdEssai
Lequel se fait plaisir en acceptant d'héberger le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub cmdEssai_Click()
   Set Bln1 = Assistant.NewBalloon
   Set Bln2 = Assistant.NewBalloon
   With Bln2
      .Animation = msoAnimationEmptyTrash
      .Button = msoButtonSetNone
      .BalloonType = msoBalloonTypeBullets
      .Heading = "Monsieur dit "
      .Icon = msoIconAlertInfo
      .Mode = msoModeAutoDown
   End With
   With Bln1
       .Animation = msoAnimationCheckingSomething
       .BalloonType = msoBalloonTypeBullets
       .Button = msoButtonSetYesNoCancel
       .Heading = "Monsieur désire autre chose?"
       .Icon = msoIconAlertInfo
       .Labels(1).Text = "Vous dites Oui"
       .Labels(2).Text = "Vous dites Non"
       .Mode = msoModeModal
       Select Case .Show
            Case msoBalloonButtonNo
               Bln2.Heading = Bln2.Heading & "Non"
            Case msoBalloonButtonYes
               Bln2.Heading = Bln2.Heading & "Oui"
            Case Else
               Bln2.Heading = Bln2.Heading & "d'annuler"
       End Select
       Bln2.Show
   End With
End Sub

Pour varier l'animation nous avons :
'.Animation = msoAnimationSendingMail
'.Animation = msoAnimationPrinting
'.Animation = msoAnimationEmptyTrash
'.Animation = msoAnimationSaving

Cordialement.

[Jean-Luc80]

Bonjour
Merci de la réponse
Ca marche mais je cherche seulement à afficher des info bulles en forme de ballon quand par exemple la souris passe au-dessus d'un contrôle.

[gael44]

Dans les propriétés des controles, il y en a une qui s'appelle "Texte d'info-bulle" dans les propriétés "Autres".
Est-ce cela que tu cherches ?

[Jean-Luc80]

Bonjour
Je connais cette propriété qui fait des info bulles rectangulaires
Moi j'aimerais en faire avec des coins arrondis comme dans certains programmes XP

[francishop]

Bonjour,

Le travail de Leban correspond à la demande?
Pièce jointe 24128

Cordialement.

[Jean-Luc80]

Bonjour
Merci pour le lien ! C'est exactement ce que je cherchais !
Avec qques modifs dans le code j'ai bien le résultat escompté
Encore Merci
@+

[jocomajo]

Bonjour,
J'ai le même besoin que Jean-Luc80 : afficher des info-bulles en forme de ballon quand la souris passe au-dessus d'un contrôle.

francishop qui a proposé cette réponse : "Le travail de Leban correspond à la demande? Pièce jointe 24128".

Mais la pièce jointe est aujourd'hui "non valide".
Serait-il possible de la reposter ?
Merci par avance et félicitations à tous pour ce site grandissime.

[francishop]

Bonjour et bienvenue.

Bonjour,
J'ai le même besoin que Jean-Luc80 : afficher des info-bulles en forme de ballon quand la souris passe au-dessus d'un contrôle.

Généralement, lorsque le tag "Résolu" est mis, on ouvre une autre discussion et plaçons un lien vers ce Post.
Nous avons Arkham46 qui a réalisé une petite merveille, bien plus contemporaine :
http://www.developpez.net/forums/sho...d.php?t=509140
Sans oublier,qu'en cas de "Bug" ou difficulté, l'inventeur passe souvent sur ce forum et donne un "coup de pouce" à chacun. Merci à Arkham46.

Cordialement.

[jocomajo]

Fantastique travail d'Arkham46 !
Merci à francishop pour cette réponse si rapide.