Discussion :

[Phossoyeur]

Bonjour à tous, voila je code en vb6 aujourd'hui.

J'aimerais savoir comment faire lorsque ma souris est sur un label en surbrillance, afficher un texte spécifique.

Un peu comme lorsque vous mettez en surbrillance un fichier, le pc va afficher sa taille, son nom etc ...

Merci !

[ProgElecT]

Salut

Un label ne peut être sélectionné par un utilisateur du programme.
A la rigueur on peut le simuler par code et donc faire apparaître une information lors du passage de la souris.
Pour essais, sur un Form, un Label et un CommandButton avec ce

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
Option Explicit
Dim BackSelect As Long
Dim ForColorSelect As Long
Private Sub Form_Load()
BackSelect = &H8000000D
ForColorSelect = &HFFFFFF
End Sub
 
Private Sub Command1_Click()
'bouton bascule sélectionné/desélectionné
If Label1.BackColor = BackSelect Then
    Label1.BackColor = &H80000005: Label1.ForeColor = &H80000008: Label1.ToolTipText = ""
    Else
    Label1.BackColor = BackSelect: Label1.ForeColor = ForColorSelect
End If
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
If Label1.ToolTipText = "" And Label1.ForeColor = ForColorSelect Then
    'puisque Label1 est en sur-brillance, affiche un texte dans la bulle de celui-ci
    Label1.ToolTipText = "Passage du curseur au dessus du label"
End If
End Sub

[Phossoyeur]

concretement je veux que sa marche sur ma checkbox qui s'appelle

CHK_CP

et je veux afficher le texte 'Conditions Personnelles'


Comment je me débrouille tu m'as un peu perdu je doit avoir ^^'

cette checkBox est sur une form


Merci

[ProgElecT]

concretement je veux que sa marche sur ma checkbox qui s'appelle CHK_CP et je veux afficher le texte 'Conditions Personnelles'
Comment je me débrouille tu m'as un peu perdu...
Merci

............

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CHK_CP_Click()
If CHK_CP.Value = 1 Then
    'selectionné
    CHK_CP.ToolTipText = "Conditions Personnelle'"
    Else
    'non selectionné
    CHK_CP.ToolTipText = ""
End If
End Sub

?