Discussion :

[agnaou]

bonsoir a tous
monsouci c'est que je veux afficher les menus d'un mdi selon le type d'utilisateur j'ai fait ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
con.Open()
            Dim cmd As OdbcCommand
            cmd = New OdbcCommand("select * from utilisateur where login_user=? and mot_passe_user=?", con)
            cmd.Parameters.AddWithValue("login_user", login.Text)
            cmd.Parameters.AddWithValue("mot_passe_user", mot_de_passe.Text)
            cmd.Connection = con
            Dim rs As OdbcDataReader
            rs = cmd.ExecuteReader()
            If rs.Read() Then
                MessageBox.Show("vous etes connectez mr   " & rs.GetString(4))
                'If rs.GetString(2) = "a" Then
                '    Me.MdiParent.Menu.MenuItems(1).Visible = True
                '    Me.MdiParent.Menu.MenuItems(2).Visible = True
                '    Me.MdiParent.Menu.MenuItems(3).Visible = True
                '    Me.MdiParent.Menu.MenuItems(4).Visible = True
                '    Me.MdiParent.Menu.MenuItems(5).Visible = True
                'Else
                '    Me.MdiParent.Menu.MenuItems(3).Visible = True
 
                '    Me.MdiParent.Menu.MenuItems(4).Visible = True
                'End If
                Me.MdiParent.Menu.MenuItems(0).MenuItems(0).Text = "Déconnexion"
                Me.MdiParent.Text = (((Me.MdiParent.Text & " ------- Bienvenue ") + rs.GetString(5) & " ") + rs.GetString(3) & " ") + rs.GetString(4) & " ---------"
                Me.Close()
                con.Close()
            Else
                MessageBox.Show(Me, "Login ou Mot de passe invalide", "", MessageBoxButtons.OK, MessageBoxIcon.[Error])
            End If

mais il me gére une erreur de type

la réference d'objet n'est pas définit a un instance d'un objet

et merci d'avance pour vous reponse

[Pol63]

erreur qu'on appelle aussi erreur du débutant car un objet n'est pas instancié ou n'existe pas

la ligne de l'erreur et éventuellement quelques espions express te diront où ca cloche

[agnaou]

tous d'abord merci pour ta répnse
mais l'erreur cegére dans cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Me.MdiParent.Menu.MenuItems(1).Visible = True

a votre avis que peut on nous instancier
et merci encore une fois

[Pol63]

dans ce cas c'est pas une question d'instanciation c'est que tu veux accéder à quelque chose que tu crois existant mais qu'il ne l'est pas


Me.MdiParent.Menu.MenuItems(1).
vu que tu enchaines 4 choses, l'une des 4 n'existe pas


Me existe forcément
donc faut tester les autres (point d'arret dessus)
sélectionner me.mdiparent faire shift+F9
puis tester Me.MdiParent.Menu
et enfin Me.MdiParent.Menu.MenuItems(1)

[agnaou]

merci encore une fois pour ta réponse
svp tu peut me détaillé les etapes a faire(comment savoir l'existance des objets (menu et menuitems))
et merci encore une fois

[Pol63]

apprend à débugger une appli ...
ca doit se trouver là dedans : http://plasserre.developpez.com/cours/vb-net/

[agnaou]

encore un fois merci
donc mr ça bugue en menu
et je nesais pas comment accéder aux élément du menuscript
et merciencore une fois

[agnaou]

bonjour a tous
donc aprés plusieurs essai j'arrivé a résolu 80% de mon probléme parceque il faut remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.MdiParent.Menu.MenuItems(index).Visible = True

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.MdiParent.MainMenuStrip.Items.Item(index).Visible

mais une petit souci c'est comment accéder a sous menu du l'item(index)?
et merci encore une fois