tfrancais
Messages postés21Date d'inscriptiondimanche 28 novembre 2010StatutMembreDernière intervention22 février 2015
-
11 déc. 2008 à 12:55
tfrancais
Messages postés21Date d'inscriptiondimanche 28 novembre 2010StatutMembreDernière intervention22 février 2015
-
11 déc. 2008 à 17:19
Bonjour,
Comment peut-on utiliser un "confirm" de JavaScript pour un item dans un menu ?
Quand je clique sur le menu, j'attrape le titre de l'item et je voudrais avoir un popup dans les actions effectuées.
Je me suis inspiré du moyen de générer un popup d'alerte mais cela ne fonctionne pas. J'ai posté le code en VB si vous avez une piste pour débloquer mon problème.
Protected Sub MonMenu_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles MonMenu.MenuItemClick
Try
If Page.IsPostBack Then
Rights = CInt(Me.Session(Decl.USER_GrtInt))
Dim scrpt As String = " "
Select Case e.Item.Text
'Ensemble de cases qui précèdent...
'Case qui m'inéresse
Case "Réinitialiser la Base"
If Rights >= 64 Then
Dim Reinit As Boolean = False
Reinit = Cbool(ScriptManager..RegisterStartupScript(Me.Page, GetType(Page), "QReinit", "Return confirm('Attention !\nCette action va effacer l\'ensemble des réalisations. Voulez vous vraiment réinitialiser la base?');",true) 'Génère une erreur car RegisterStartupScript ne renvoie rien.
If Reinit Then
Me.ReinitDB() 'Fonction pour réinitialiser la base
End If
Else
ScriptManager.RegisterStartupScript(Me.Page, GetType(Page), "PasRIB", "Alert('Attention !\nCette action n'est autorisée que pour les comptes \'Super Administrateur\' !');", True)
End If
'Autres cases qui suivent...
tfrancais
Messages postés21Date d'inscriptiondimanche 28 novembre 2010StatutMembreDernière intervention22 février 2015 11 déc. 2008 à 17:19
En cherchant sur Internet, j'ai trouvé l'idée d'ajouter un attribut mais je n'arrive qu'à l'ajouter à me.... Y-t-il moyen d'attraper la feuille choisie dans le menu pour lui ajouter l'attribut ? Comment peut-on récupérer la valeur retournée par le "Confirm" pour valider l'utilisation de la fonction de réinitialisation de ma base ?
Protected Sub MonMenu_MenuItemClick(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.MenuEventArgs) Handles MonMenu.MenuItemClick
Try
If Page.IsPostBack Then
Rights = CInt(Me.Session(Decl.USER_GrtInt))
Dim scrpt As String = " "
Select Case e.Item.Text
'Ensemble de cases qui précèdent...
'Case qui m'intéresse
Case "Réinitialiser la Base"
If Rights >= 64 Then
Me.Attributes.Add("OnClick", "Return
confirm('\t!!!Attention!!!\nCette action va effacer l\'ensemble des
réalisations.\nVoulez vous vraiment réinitialiser la base ?');")
Me.ReinitDB() 'Fonction pour réinitialiser la base qui s'exécute quel que soit le choix dans le la panneau
Else
ScriptManager.RegisterStartupScript(Me.Page, GetType(Page), "PasRIB",
"Alert('Attention !\nCette action n'est autorisée que pour les comptes
\'Super Administrateur\' !');", True)
End If
'Autres cases qui suivent...