1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
| Imports System.ComponentModel
Partial Public Class btn_bille
Inherits System.Web.UI.UserControl
' Valeurs possibles pour le paramètre « Titre_Menu » du contrôle utilisateur
Public Enum l_titreMenu
Accueil = 1
Actu = 2
EspaceClient = 3
NousContacter = 4
Références = 5
End Enum
Dim l_titre As l_titreMenu
<Description("Sélectionner le titre du menu associé au contrôle utilisateur"), _
Category("Paramètre(s) à compléter"), Browsable(True)> _
Public Property Titre_Menu() As l_titreMenu
Get
Return l_titre
End Get
Set(ByVal value As l_titreMenu)
l_titre = value
End Set
End Property
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
Dim l_fichierImg As String 'le nom du fichier img
Dim l_textMenu As String 'le titre du menu
Dim l_pageDest As String 'l'url de la page à afficher
Select Case l_titre
Case 1
l_fichierImg = "bille_tpi.png"
l_pageDest = "~/pages/page_acc.aspx"
l_textMenu = "bill_accueil"
Case 2
l_fichierImg = "bille_bleu.png"
l_pageDest = "~/pages/page_actu.aspx"
l_textMenu = "bill_actu"
' ...
Case Else
l_fichierImg = "bille_tpi.png"
l_pageDest = "~/pages/page_acc.aspx"
l_textMenu = "bill_accueil"
End Select
id_imgBtn.ImageUrl = "~/images/" & l_fichierImg
id_imgBtn.PostBackUrl = l_pageDest
id_lbl_btn.Text = GetGlobalResourceObject("TTT_ress", l_textMenu)
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class |
Partager