En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1121411 visiteurs

 3 visiteurs en ligne

FAQ

Déplier Fermer  Système

Lorsque dans la table, existe un champ qui contient le chemin et le nom d'un fichier, il est facile de démarrer le programme par défaut attribué à son extension.


Devant votre zone de texte, placez une étiquette indépendante. Eventuellement, couper et coller l'étiquette existante ce qui aura pour effet de la rendre indépendante.


Private Sub Form_Current()

'// Préparation de l'étiquette
If IsNull(Me.NomImage.Value) Then

Me.lbl_NomImage.Caption = "Pas d'image"
Me.lbl_NomImage.FontUnderline = False
Me.lbl_NomImage.ForeColor = vbBlack

Else

Me.lbl_NomImage.Caption = Me.NomImage.Value
Me.lbl_NomImage.FontUnderline = True
Me.lbl_NomImage.ForeColor = vbBlue

End If

End Sub


Private Sub lbl_NomImage_Click()
'//
'// Sur clic de l'étiquette
'//

If Not IsNull(Me.NomImage) Then

Me.lbl_NomImage.HyperlinkAddress = "file:" & Me.NomImage.Value
Me.lbl_NomImage.Hyperlink.Follow
Me.lbl_NomImage.HyperlinkAddress = ""

End If


End Sub



Dernière modification :02/02/2007 : 18:17 Hyperlien 

Vous êtes ici :   Accueil » FAQ