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
|
Private Sub MaFonction(ByVal sender As Object, _
ByVal cevent As System.EventArgs)
Me.UltraToolbars_Accueil.Tools("Identification - Nouvelle"
+ " session").SharedProps.Enabled = True
Try
'Declaration
Dim sbtnName As String = 'Recup du Nom'
Dim NewUserBtn As _
New Infragistics.Win.UltraWinToolbars.ButtonTool(sbtnName)
'Initialisation
NewUserBtn.SharedProps.Caption = sbtnName
NewUserBtn.SharedProps.DisplayStyle = _
Infragistics.Win.UltraWinToolbars.ToolDisplayStyle.ImageAndText
'------------------------------------------------
' Ajout ds le menu au premier niveau
' Me.UltraToolbars_Accueil.Tools.Add(NewUserBtn)
'
' CA MARCHE BIEN, AJOUT AU PREMIER NIVEAU DU MENU
'------------------------------------------------
' ----------------------- LIGNE QUI DEVRAIT FONCTIONNER
' ----------------------- POUR AJOUTER LE NOM SOUS ----
' ----------------------- L'ENTREE "UTILISATEURS" --------
' ----------------------- MAIS IL NE SE PASSE RIEN -------
Me.UltraToolbars_Accueil.Tools
("Utilisateurs").ToolbarsManager.Tools.Add(NewUserBtn)
Catch ex As Exception
Throw LogMsgs.Err(ex, Me)
End Try
End Sub |
Partager