Label link trés simple, sans ocx ni rien

Télécharger le projet
Commenter

Description

La facon la plus simple de faire un hyperlien avec un controle Label Uniquement.
J'ai trouvé plusieurs sources qui etaient des OCX ou controle utilisateurs, perso quand je fait un prog j'aime en deployer le moins possible....

Source / Exemple : 


Option Explicit
Dim i As Integer

Private Sub Form_Load()

For i = 0 To Label1.Count - 1
   Label1(i).ToolTipText = "Visiter " & Label1(i).Caption
Next
            ' Met a jour l'info bulle pour chaque lien
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

For i = 0 To Label1.Count - 1
   Label1(i).FontUnderline = False  ' Lorsque la souris passe au dessus de la
Next                                ' Form les liens ne sont plus soulignés

End Sub

Private Sub Label1_Click(Index As Integer)

With Label1(Index)
   .FontUnderline = False   ' Enleve le trait de soulignement lors du click
   .ForeColor = vbRed       ' Pour marqué en rouge les liens deja visités
End With

' ### Action associé au click du lien
' ### Si la propriété Tag est vide on lance le lien par la propriété Caption
' ### Sinon on lance le lien avec la propriété Tag

If Label1(Index).Tag = "" Then
   Shell "explorer " & Label1(Index).Caption, vbHide    ' Lance Le lien avec la propriété Caption
Else
   Shell "explorer " & Label1(Index).Tag, vbHide        ' Lance Le lien avec la propriété Tag
End If

End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

For i = 0 To Label1.Count - 1   ' Boucle pour la totalité des controles
   If i = Index Then        ' Si la souris est sur ce controle
      Label1(i).FontUnderline = True    ' on le souligne
   Else
      Label1(i).FontUnderline = False   ' ou on le "désouligne"
   End If
Next

End Sub

Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

For i = 0 To Label1.Count - 1
   Label1(i).FontUnderline = False  ' Lorsque le clik de la souris est relaché
Next                                ' Les liens son désoulignés

End Sub

Conclusion :


C'est tout simple , j'espere ca pourrat aider les debutants ;)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Danyz)