Accueil > > > LABEL LINK TRÉS SIMPLE, SANS OCX NI RIEN
LABEL LINK TRÉS SIMPLE, SANS OCX NI RIEN
Information sur la source
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
- 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
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 ;)
Historique
- 21 février 2005 11:57:23 :
- MAJ : Le label lance maintenant l'URL et le lien ne reste plus souligné lorsque l'on click sur le label et que l'on relache le click en dehors de la feuille
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[RIA SERVICES] MAITRE - DéTAIL ET DOMAINDATASOURCE[RIA SERVICES] MAITRE - DéTAIL ET DOMAINDATASOURCE par Audrey
A l'occasion d'un projet client, j'ai utilisé RIA Services avec Silverlight 3 (mais cela fonctionne aussi avec la version 4), et je l'ai utilisé pour une interface façon Maitre / Détail. Voici comment j'ai procédé pour arriver à mes fins. Nous allons pren...
Cliquez pour lire la suite de l'article par Audrey CSDL FUNCTIONCSDL FUNCTION par Matthieu MEZIL
Dans mon post précédent , j'ai utilisé une CSDL Function afin de générer une requête SQL avec un DateDiff utilisant la date courante sur la BD à partir d'une requête LINQ. Dans le cadre de ce post , vous avez probablement remarqué que dans le cadre de plu...
Cliquez pour lire la suite de l'article par Matthieu MEZIL LINQ TO ENTITIESLINQ TO ENTITIES par Matthieu MEZIL
Cette semaine je suis à Montréal en tant que speaker sur Entity Framework pour l'évènement confoo . J'en profite pour remercier les organisateurs de cet évènement de m'avoir fait confiance et Access-IT de m'avoir permis d'y participer. En parallèle, j'ai ...
Cliquez pour lire la suite de l'article par Matthieu MEZIL FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010 par neodante
La nouvelle interface d'Office 2010 à amener quelques modifications par rapport à celle de 2007. Certes mineures, ces modifications ont fait disparaître la case à cocher de l'onglet 'Développeur' en première page du panneau du 'bouton Office' (dans Office...
Cliquez pour lire la suite de l'article par neodante [ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1[ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1 par pierre
Si vous avez téléchargé comme moi Microsoft Forums NNTP Bridge V1 avant le 11 mars 2010 (voir [Astuce] Disponibilité de Microsoft Forum NNTP Bridge Version 1.0), un problème de date localisée pour les non anglais était présent. Un patch est disponibl...
Cliquez pour lire la suite de l'article par pierre
Forum
MAILMAIL par eslif300
Cliquez pour lire la suite par eslif300
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
Comparez les prix

HTC Hero
Entre 550€ et 550€
|