Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Infos boutons

Infos boutons

8 réponses
Avatar
JCM
Bonjour =E0 tous

je voudrais que s'assiche dans une bulle, le nom d'un=20
bouton plac=E9 dans un toolbar quand la souris est=20
positionn=E9e dessus comme dans Word par exemple

Pouvez-vous me donner un bout de code

Cordialement
Jean Claude
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
le_troll
Bonjour,

Propriété:

ToolTipText

de l'objet

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"JCM" a écrit dans le message de
news:75ee01c494e2$828b8d40$
Bonjour à tous

je voudrais que s'assiche dans une bulle, le nom d'un
bouton placé dans un toolbar quand la souris est
positionnée dessus comme dans Word par exemple

Pouvez-vous me donner un bout de code

Cordialement
Jean Claude
Avatar
Jean-Marc
>"JCM" a écrit dans le message de


news:75ee01c494e2$828b8d40$
Bonjour à tous



je voudrais que s'assiche dans une bulle, le nom d'un
bouton placé dans un toolbar quand la souris est
positionnée dessus comme dans Word par exemple



Pouvez-vous me donner un bout de code



Hello,

une form, un bouton de commande (command1) juste pour l'exemple

Option Explicit

Private Sub Form_Load()
Command1.ToolTipText = "Coucou je suis le bouton"
End Sub

lancer le programme, et "poser" la souris sur le bouton de commande

--
Jean-marc
Avatar
le_troll
Cher ami :o), excellent, sauf qu'à mon sens, il est préférable de le
déclarer dans la boîte de propriété de l'objet, car VB nous économise la vue
du code dans ce cas, ce qui allège le code de la form, et rend plus lisible
ainsi, en effet, si on fait ça sur 2, 3 propriétés pour 10 objets, on se
retrouve avec 100 lignes de code totalement inutiles pour nos yeux
sensibles, enfin, c'est là mon très humble point de vue :o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Jean-Marc" a écrit dans le message de
news:413e0c55$0$4197$
>"JCM" a écrit dans le message de
news:75ee01c494e2$828b8d40$
>Bonjour à tous

>je voudrais que s'assiche dans une bulle, le nom d'un
>bouton placé dans un toolbar quand la souris est
>positionnée dessus comme dans Word par exemple

>Pouvez-vous me donner un bout de code

Hello,

une form, un bouton de commande (command1) juste pour l'exemple

Option Explicit

Private Sub Form_Load()
Command1.ToolTipText = "Coucou je suis le bouton"
End Sub

lancer le programme, et "poser" la souris sur le bouton de commande

--
Jean-marc




Avatar
Vincent Guichard
le_troll a écrit :

Cher ami :o), excellent, sauf qu'à mon sens, il est préférable de le
déclarer dans la boîte de propriété de l'objet, car VB nous économise la vue
du code dans ce cas, ce qui allège le code de la form, et rend plus lisible
ainsi, en effet, si on fait ça sur 2, 3 propriétés pour 10 objets, on se
retrouve avec 100 lignes de code totalement inutiles pour nos yeux
sensibles, enfin, c'est là mon très humble point de vue :o)



Sauf dans le cas ou la valeur de la chaine doit changer (en fonction de
la langue, par exemple)

Vincent Guichard
Avatar
JCM
Bonjour a tous

OK mais mon problème c'est que j'ai 11 boutons dans un
toolsbar, j'ai écrit le code ci-dessous et l'info-bulle
affichée n'est jamais la bonne sauf quand je suis sur le
premier bouton

Pouvez-vous me dire ou est l'erreur

Private Sub tbToolBar_MouseMove(Button As Integer, Shift
As Integer, x As Single, y As Single)
'affiche l'info-bulle du bouton
Dim I As Long
Dim lebouton As Integer

For I = 1 To 11
lebouton = tbToolBar.Buttons(I).Index

Select Case lebouton
Case 1
tbToolBar.Buttons(lebouton).ToolTipText
= "Ouvrir un fichier"
Case 2
tbToolBar.Buttons(lebouton).ToolTipText
= "Imprimer"
Case 3
tbToolBar.Buttons(lebouton).ToolTipText
= "Aperçu avant impression"
Case 4
tbToolBar.Buttons(lebouton).ToolTipText
= "Sélection"
Case 5
tbToolBar.Buttons(lebouton).ToolTipText
= "Déplacer"
Case 6
tbToolBar.Buttons(lebouton).ToolTipText
= "Zoom plus"
Case 7
tbToolBar.Buttons(lebouton).ToolTipText
= "Zoom moins"
Case 8
tbToolBar.Buttons(lebouton).ToolTipText
= "Zoom sélection"
Case 9
tbToolBar.Buttons(lebouton).ToolTipText
= "Micro-fiche"
Case 10
tbToolBar.Buttons(lebouton).ToolTipText
= "Déplacer"
Case 11
tbToolBar.Buttons(lebouton).ToolTipText
= "Rechercher une ville"
End Select


Next

End Sub

Merci de bien vouloir me repondre
Cordialement
JCM
-----Message d'origine-----
Cher ami :o), excellent, sauf qu'à mon sens, il


est préférable de le
déclarer dans la boîte de propriété de l'objet, car VB


nous économise la vue
du code dans ce cas, ce qui allège le code de la form, et


rend plus lisible
ainsi, en effet, si on fait ça sur 2, 3 propriétés pour


10 objets, on se
retrouve avec 100 lignes de code totalement inutiles pour


nos yeux
sensibles, enfin, c'est là mon très humble point de


vue :o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours


raison !


"Jean-Marc" a écrit dans le


message de
news:413e0c55$0$4197$
>"JCM" a écrit dans le




message de
news:75ee01c494e2$828b8d40$
>Bonjour à tous

>je voudrais que s'assiche dans une bulle, le nom d'un
>bouton placé dans un toolbar quand la souris est
>positionnée dessus comme dans Word par exemple

>Pouvez-vous me donner un bout de code

Hello,

une form, un bouton de commande (command1) juste pour




l'exemple

Option Explicit

Private Sub Form_Load()
Command1.ToolTipText = "Coucou je suis le bouton"
End Sub

lancer le programme, et "poser" la souris sur le bouton




de commande

--
Jean-marc






.



Avatar
Jean-Marc
"JCM" a écrit dans le message de
news:7df401c49584$24bdd9a0$
Bonjour a tous



OK mais mon problème c'est que j'ai 11 boutons dans un
toolsbar, j'ai écrit le code ci-dessous et l'info-bulle
affichée n'est jamais la bonne sauf quand je suis sur le
premier bouton



Pouvez-vous me dire ou est l'erreur



Hello,

tu dois placer ton code d'initialisation dans une sub d'initialisation.

Et puis pour 11 boutons, fais ça simplment en chaine, comme ça:

tbToolBar.Buttons(1).ToolTipText= "Ouvrir un fichier"
tbToolBar.Buttons(2).ToolTipText= "Fermer un fichier"
' etc ...


sub init()
' on initialise les propriétés tooltip text des boutons
end sub

dans le form_load (ou ailleurs, mais UNE SEULE FOIS, au début du programme):

sub form_load()
' .. blabla
call init
' blabla
end sub

et voila.

<humour_gentil >
Et SURTOUT PAS de code d'affectation dans le mouse_move... Pauvre PC! il n'a
rien fait de mal pour que tu fasses souffrir comme ça le CPU :-)
</humour_gentil>

--
Jean-marc
Avatar
Salut Jean Marc

Merci pour le code mais cela ne marche pas, j'ai écrit :

dans un module MyFonction
Public Function InitBoutonsCarto()
FrmCartographie.tbToolBar.Buttons(1).ToolTipText = "Ouvrir
un fichier"
FrmCartographie.tbToolBar.Buttons(2).ToolTipText
= "Imprimer"
FrmCartographie.tbToolBar.Buttons(3).ToolTipText = "Aperçu
avant impression"
End Function

et dans ma Form Load

Call MyFonction.InitBoutonsCarto

Rien ne se passe, faut-il faire un e boucle dans le
InitBoutonsCarto ?

Cordialement
JCM
-----Message d'origine-----
"JCM" a écrit dans le


message de
news:7df401c49584$24bdd9a0$
Bonjour a tous



OK mais mon problème c'est que j'ai 11 boutons dans un
toolsbar, j'ai écrit le code ci-dessous et l'info-bulle
affichée n'est jamais la bonne sauf quand je suis sur le
premier bouton



Pouvez-vous me dire ou est l'erreur



Hello,

tu dois placer ton code d'initialisation dans une sub


d'initialisation.

Et puis pour 11 boutons, fais ça simplment en chaine,


comme ça:

tbToolBar.Buttons(1).ToolTipText= "Ouvrir un fichier"
tbToolBar.Buttons(2).ToolTipText= "Fermer un fichier"
' etc ...


sub init()
' on initialise les propriétés tooltip text des


boutons
end sub

dans le form_load (ou ailleurs, mais UNE SEULE FOIS, au


début du programme):

sub form_load()
' .. blabla
call init
' blabla
end sub

et voila.

<humour_gentil >
Et SURTOUT PAS de code d'affectation dans le


mouse_move... Pauvre PC! il n'a
rien fait de mal pour que tu fasses souffrir comme ça le


CPU :-)
</humour_gentil>

--
Jean-marc


.



Avatar
jean-marc
wrote in message
news:8bfe01c4965f$c1c577e0$
Salut Jean Marc

Merci pour le code mais cela ne marche pas, j'ai écrit :

dans un module MyFonction
Public Function InitBoutonsCarto()
FrmCartographie.tbToolBar.Buttons(1).ToolTipText = "Ouvrir
un fichier"
FrmCartographie.tbToolBar.Buttons(2).ToolTipText
= "Imprimer"
FrmCartographie.tbToolBar.Buttons(3).ToolTipText = "Aperçu
avant impression"
End Function

et dans ma Form Load

Call MyFonction.InitBoutonsCarto

Rien ne se passe, faut-il faire un e boucle dans le
InitBoutonsCarto ?



Non il n'y a rien à faire. Si maintenant tu passes ta souris sur un des
boutons, le tool tip doit apparaitre.