Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992117 visiteurs

 3 visiteurs en ligne

Hyperlinks

Pour envoyer un message électronique :

Méthode complète :

Code destiné à un formulaire (affichage en mode simple), contenant un contrôle Étiquette nommé "lblAddress" lié à un champ texte nommé "txtAddress".
 

Private Sub cmdEnvoyer_Click()
    Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "")
    Me!lblAddress.ForeColor = 1279872587
    Me!lblAddress.FontUnderline = True

    If Not IsNull(Me!txtAddress.Value) Then
        Me!lblAddress.HyperlinkAddress = "Mailto:" _
                                         & Me!txtAddress.Value _
                                         & "?CC=" & "" _
                                         & "&Subject=" & "Le sujet du Message" _
                                         & "&Body=" & "Corps du message au kilomètre"
    Else
        Me!lblAddress.HyperlinkAddress = ""
    End If
End Sub

Méthode simple :

Dans votre formulaire vous disposez d'une zone de texte qui contient une adresse émail du style "lagardère@free.fr" et vous souhaiter démarrer OE par un simple clic sur cette zone de texte...
Disposez alors n'importe où sur votre formulaire une étiquette indépendante (label) que vous pouvez rendre invisible. Le libellé peut être quelconque et son nom sera "lblAdressMail".

Dans la Sub de l'événement "Sur clic" de votre zone de texte que nous nommerons txtEmail pour l'exemple, vous écrivez :

If InStr(1, txtEmail, "@") > 0 Then
    lblAdressMail.HyperlinkAddress = "mailto:" & Me.txtEmail
    lblAdressMail.Hyperlink.Follow
End If

Pour ouvrir une page d'un site web :

Private Sub cmdAfficher_Click()
    Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "")
    Me!lblAddress.ForeColor = 1279872587
    Me!lblAddress.FontUnderline = True

    If Not IsNull(Me!txtAddress.Value) Then
        Me!lblAddress.HyperlinkAddress = "http://" & Me!txtAddress.Value
        Me!lblAddress.HyperlinkAddress = ""

    End If
End Sub  

Pour ouvrir un fichier avec son logiciel par défaut :

- La méthode simple

Vous possédez d'un simple champ texte [Chemin] que vous placez sur votre formulaire. Ajouter n'importe ou une petite étiquette indépendante que vous nommez "txtLabel"

Rendez cette étiquette non visible via ses propriétés. Sur clic du champ [Chemin] qui contient le chemin du fichier, placez le code suivant:

Private Sub Chemin_Click()
    On Error Resume Next
    Dim hplk As Hyperlink

    If Dir([Chemin]) <> "" Then
        Set hplk = Me.txtLabel.Hyperlink
        hplk.Address = [Chemin]
        hplk.Follow
    End If
End Sub

- Autre possibilité

Private Sub txtNomImage_Click()
    'lblNomImage doit être une étiquette indépendante
    Me!lblNomImage.Caption = Nz(Me!txtNomImage.Value, "")
    Me!lblNomImage.ForeColor = 1279872587
    Me!lblNomImage.FontUnderline = True

    If Not IsNull(Me!txtNomImage.Value) Then
        Me!lblNomImage.HyperlinkAddress = "file:" & Me!txtNomImage.Value
        Me!lblNomImage.Hyperlink.Follow
        Me!lblAddress.HyperlinkAddress = ""
    End If
End Sub


Catégorie : Les mémos - Net
Page lue 7278 fois