Label link trés simple, sans ocx ni rien
Soyez le premier à donner votre avis sur cette source.
Vue 6 496 fois - Téléchargée 671 fois
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....
C'est tout simple , j'espere ca pourrat aider les debutants ;)
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 ;)
Codes Sources
A voir également
- Label link trés simple, sans ocx ni rien
- Visual Basic / VB.NET : Color picker simple sans ocx (choix couleur) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Afficher un texte rtf simple sans utiliser richtx32.ocx - CodeS SourceS - Guide
- Jouer des fichiers mp3 (sans ocx) - Codes sources - Visual Basic / VB.NET (Multimedia)
- Visual Basic / VB.NET : Telecharger un fichier sans ocx - CodeS SourceS - Guide
- Visual Basic / VB.NET : Envoyer des fichiers sur un ftp (sans ocx) - CodeS SourceS - Guide
Il me renvoit l'erreur "could not find path 23632".
http://www.vbfrance.com/code.aspx?id=28210
- Messages postés
-
2167
- Date d'inscription
- mardi 11 novembre 2003
- Statut
- Membre
- Dernière intervention
- 16 juillet 2009
1Vous 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.