cs_aurel_kb
Messages postés17Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention27 décembre 2012
-
15 févr. 2010 à 14:27
cs_aurel_kb
Messages postés17Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention27 décembre 2012
-
16 févr. 2010 à 11:51
bonjour tout le monde.
voila mon probleme j'ai un table que j'appel assignation(menu,idgroupe)
j'ai un menu (style office 2007) comportant des ongles(outils,admin par exemple)
dans les onglets on a les boutons outils(parametres,nom_entreprise par exemple)
dans admin(creer_users, habilitation par exemple)
voici les noms de mes bouton
bouton parametres le nom c'est bttparams
bouton nom_entreprise c'est bttetse
bouton creer_users c'est bttusers
bouton habilitation c'est btthabil
maintenant lorsqu'un utilisateur se connecte connaisant son groupe on fait
un select menu from assignation where idgroupe= groupeID par exemple si c'est
le groupe 2 on aura bttparams et bttusers
maintanant j'aimerai faire ce_quon_renvoi.visible=true
donc bttparams.visible=true et bttusers.visible=true
voila un peu ce que je veus faire, svp j'ai besoin je reponse pour faire avancé mon projet. merci pour vos reponse
DE-AUREL
cs_aurel_kb
Messages postés17Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention27 décembre 2012 16 févr. 2010 à 11:51
j'ai trouvé comment faire
dans le module fonction.vb
Select Case idGroupe
Case 1 'Admin
'on charge tout le menu
Case Else ' choix du menu dans la BD
Using connexion As New SqlConnection(MedicPharma.My.Settings.medicpharmaConnectionString)
connexion.Open()
Dim sqlSelect = "select menu from assignations where groupesID=" & GroupeID
Dim sqlCommand As New SqlCommand(sqlSelect, connexion)
Try
Dim oReader As SqlDataReader = sqlCommand.ExecuteReader
Do
'FrmMenuPrincipal.Controls(1).Controls.Find("", True)
While oReader.Read()
'For Each ctrl As Control In FrmMenuPrincipal.C1RibbonMenu.Controls(1).Controls
'FrmMenuPrincipal.Controls(1).Controls.Find(oReader.GetValue(0), True)
FrmMenuPrincipal.affiche(oReader.GetValue(0))
'If (ctrl.Name = oReader.GetValue(0)) Then
' CType(ctrl, C1.Win.C1Ribbon.C1Ribbon).Visible = True
'End If
'Next
End While
Loop While oReader.NextResult()
oReader.Close()
Catch ex As Exception
MsgBox("Il y a eu erreur lors de la sélection menu " + ex.Message)
Finally
sqlSelect = ""
End Try
End Using
End Select
la fonction affiche situe dans la fenêtre principal est comme suit
Public Sub affiche(ByVal menun As String)
'MsgBox(menun)
'DirectCast(Me.Controls(a), Button).visible = True
Try
DirectCast(Me.C1RibbonMenu.GetItemByName(menun), C1.Win.C1Ribbon.RibbonButton).Visible = True
Catch ex As Exception
DirectCast(Me.C1RibbonMenu.GetItemByName(menun), C1.Win.C1Ribbon.RibbonTab).Visible = True
End Try
End Sub