Surcharge du controle hyperlink pour lui faire afficher une image et du texte...
0/5 (3 avis)
Snippet vu 9 934 fois - Téléchargée 38 fois
Contenu du snippet
le titre devrait se suffire à lui-même ;-)
le controle présenté, permet de faire afficher une image avec du texte dans un lien. En effet, le controle HyperLink ne le fait pas.
merci de me prévenir si vous améliorez, ou trouvez une erreur dans ce code.
le controle présenté, permet de faire afficher une image avec du texte dans un lien. En effet, le controle HyperLink ne le fait pas.
Source / Exemple :
Imports System.Web.UI.WebControls
Namespace skyControls
'permet de faire un lien qui contient une image et du texte....
'les 4 propriétés servent au rendu de l'image:
'isrc = l'url du fichier image
'iheight = hauteur en pixel de l'image
'iwidth = largeur en pixel de l'image
'ImgBefore = si true ou non renseigné, permet de spécifier que l'image sera placée avant le texte, si False, l'image sera placée après le texte
'comme le contrôle hérite de HyperLink, les propriétés standards sont accessibles.
'n'oubliez pas de renseigner la propriété NavigateUrl afin d'avoir le lien ;-)
Public Class textimglink
Inherits HyperLink
Public _isrc As String = String.Empty
Public _iheight As String = String.Empty
Public _iwidth As String = String.Empty
Public _ImgBefore As Boolean = True
Public Property isrc() As String
Get
isrc = _isrc
End Get
Set(ByVal Value As String)
_isrc = Value
End Set
End Property
Public Property iheight() As String
Get
iheight = _iheight
End Get
Set(ByVal Value As String)
_iheight = Value
End Set
End Property
Public Property iwidth() As String
Get
iwidth = _iwidth
End Get
Set(ByVal Value As String)
_iwidth = Value
End Set
End Property
Public Property ImgBefore() As Boolean
Get
ImgBefore = _ImgBefore
End Get
Set(ByVal Value As Boolean)
_ImgBefore = Value
End Set
End Property
Protected Overrides Sub RenderContents(ByVal writer As System.Web.UI.HtmlTextWriter)
Dim myimg As System.Web.UI.WebControls.Image
myimg = New System.Web.UI.WebControls.Image()
myimg.Attributes.Add("border", 0)
myimg.Attributes.Add("height", iheight)
myimg.Attributes.Add("width", iwidth)
myimg.ImageUrl = Me.isrc
If ImgBefore = True Then
myimg.RenderControl(writer)
writer.Write(Me.Text)
Else
writer.Write(Me.Text)
myimg.RenderControl(writer)
End If
End Sub
End Class
End Namespace
Conclusion :
merci de me prévenir si vous améliorez, ou trouvez une erreur dans ce code.
A voir également
- Controle de surcharge
- Hyperlink asp.net - Meilleures réponses
- Dbtabcontrol : un contrôle hérité de tabcontrol pour afficher des données - Codes sources - Visual Basic / VB.NET (Control)
- [c/win32] controle hyperlink - Codes sources - C / C++ / C++.NET (API)
- Afficher une image dans une fenêtre tkinter - Forum - Python
- Mirc : afficher une image.swf dans un dialog mirc simple ! - Conseils pratiques - IRC
- Visual Basic / VB.NET : Afficher l'heure (desiner du texte) directx - CodeS SourceS - Guide
14 juil. 2007 à 00:39
Du coup j'ai modifie un peu le code pour qu'il prenne la valeur de imageURL et ca marche nikel. Meme apres 4 ans ton code sert encore ;)
14 juil. 2007 à 00:18
Tu as essayé???
13 juil. 2007 à 23:40
Pourquoi n'utilises-tu pas la propriete ImageURL de HyperLink comme url de ton image ?
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.