Menu contextuel

Question

Bonjour,

Je suis nouveau dans le domaine de la programmation en VB.NET (h&#233; oui, un de plus lol). Voila, je cr&#233;e un petit programme tout b&#234;te qui permet d'ouvrir un fichier texte, et de l'enregistrer. Je cherche &#224; y rajouter un menu contextuel contenant les fonctions "Ouvrir" et "Enregistrer sous" par l'interm&#233;diaire d'un clic droit de la souris dans la zone "richtextbox1".

Voici mon code:


Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk


End Sub


Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click


Dim objstreamreader As System.io.TextReader


If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


objstreamreader = System.IO.File.OpenText(OpenFileDialog1.FileName)


RichTextBox1.Text = objstreamreader.ReadToEnd()


objstreamreader.Close()


Else


End If


End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub


Private Sub SauvegarderSous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerSous.Click


Dim objstreamwriter As System.io.TextWriter


Dim fichier As String


fichier = RichTextBox1.Text


If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


objstreamwriter = System.IO.File.CreateText(SaveFileDialog1.FileName)


objstreamwriter.WriteLine(fichier)


objstreamwriter.Close()


Else


End If


End Sub


Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click


Me.Close()


End Sub


Private Sub Nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click


Dim reponse As MsgBoxResult


If RichTextBox1.Text <> "" Then


MessageBox.Show("Attention, ceci va effa&#231;er votre travail en cours!" & vbCrLf & "Voulez-vous Continuez?", "Attention", MessageBoxButtons.YesNo, MessageBoxIcon.Question)


If reponse = MsgBoxResult.Yes Then


RichTextBox1.Text = ""


Else


End If


End If


End Sub


Private Sub Texte_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


End Sub


Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged


End Sub


Protected Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup


Dim ouvrir As New MenuItem("Ouvrir")


Dim enregistrersous As New MenuItem("Enregistrer sous")


ContextMenu1.MenuItems.Clear()


If ContextMenu.SourceControl Is RichTextBox1 Then


ContextMenu1.MenuItems.Add(enregistrersous)


ContextMenu1.MenuItems.Add(ouvrir)


Else : MsgBox("Impossible de cr&#233;er un menu contextuel ici!")


End If


End Sub


End Class



PS: Mon menu ne s'affiche pas et j'ai aussi un probl&#232;me au niveau de la fonction "Nouveau_Click", je n'arrive pas &#224; effacer le texte dans la textbox.
Merci de votre aide ...

nhervagault · Answer

Salut



Voici une solution fonctionnelle



    Private Sub MesControles_MouseDown(ByVal sender As
Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
RichTextBox1.MouseDown, TextBox.MouseDown

        EnregistrerSous.Visible = True

        Ouvrir.Visible = True

        If CType(sender, Control).Name.Equals(RichTextBox1.Name) Then



            Nouveau.Visible = False

            Quitter.Visible = False

            Enregistrer.Visible = False

        Else

            Nouveau.Visible = True

            Quitter.Visible = True

            Enregistrer.Visible = True

        End If



    End Sub



J'ai rajout&#233; une texbox pour te montrer comment tu peux gerer cette textbox.



Les deux controles ont la propri&#233;t&#233; contextmenu remplie avec ton menu contextuel.



La ContextMenu1_Popup esxt a supprimer







Voila

J'espere que c'est le fonctionnement esp&#233;r&#233;

jlnblade · Answer

Salut,

Merci pour ta r&#233;ponse, cependant, mon menu contextuel ne s'affiche pas et les fonctions "Enregistrer Sous", "Nouveau", et "Quitter", ne sont plus accessible via le menu "Fichier".
J'ai chercher sur internet pour avoir des descriptions d&#233;taill&#233;es mais tout ce que j'essaie ne fonctionne pas.
Je conserve ta r&#233;ponse qui me sera utile je pense d'ici peu (lorsque je comprendrai un peu mieu le fonctionnement de ce code).
En tout cas merci et j'esp&#232;re avoir d'autres solutions afin de r&#233;soudre mon probl&#232;me.

nhervagault · Answer

Salut



Fichier est contenu dans un mainmenu??

Les items menu appartiennent soit &#224; un mainmenu soit &#224; un contexte menu.

Mais pas &#224; deux chose.

--> Donc il faut duplkiquer les menus.



Car si je met le code suivant dans le form_load

         fichier.MenuItems.Add(EnregistrerSous)

         fichier.MenuItems.Add(Ouvrir)

        fichier.MenuItems.Add(Nouveau)

        fichier.MenuItems.Add(Enregistrer)

        fichier.MenuItems.Add(Quitter)





j'ai le menu contectuel qui ne fonctionne plus

jlnblade · Answer

Salut,

Apr&#232;s avoir effectu&#233; des recherches, j'ai r&#233;ussi &#224; comment faire pour afficher mon menu contextuel. En revanche, je ne sais pas comment faire pour que le "Ouvrir" de mon contextmenu fasse la m&#234;me chose que le le "Ouvrir" de mon mainmenu. Dois-je &#233;crire de nouvelles fonctions (si oui lesquelles et o&#249; ...) ou existe-t-il un moyen pour cr&#233;er une sorte le lien afin que mes deux "bouttons ouvrir" fassent la m&#234;me action.

Je reposte mon code ci dessous :


Friend quelfichier As String


Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk




End Sub




Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click


Dim objstreamreader As System.io.TextReader


If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


objstreamreader = System.IO.File.OpenText(OpenFileDialog1.FileName)


RichTextBox1.Text = objstreamreader.ReadToEnd()


objstreamreader.Close()


Else


End If




End Sub




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load




End Sub




Private Sub SauvegarderSous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerSous.Click


Dim objstreamwriter As System.io.TextWriter


Dim fichier As String


fichier = RichTextBox1.Text


If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


objstreamwriter = System.IO.File.CreateText(SaveFileDialog1.FileName)


objstreamwriter.WriteLine(fichier)


objstreamwriter.Close()


Else


End If




End Sub




Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click


Me.Close()


End Sub




Private Sub Nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click


Dim reponse As MsgBoxResult


If RichTextBox1.Text <> "" Then


MessageBox.Show("Attention, ceci va effa&#231;er votre travail en cours!" & vbCrLf & "Voulez-vous Continuez?", "Attention", MessageBoxButtons.YesNo, MessageBoxIcon.Question)


If reponse = MsgBoxResult.Yes Then


RichTextBox1.Text = ""


Else


End If


End If


End Sub




Private Sub Texte_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)




End Sub




Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged




End Sub




Protected Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup


Dim ouvrir As New MenuItem("Ouvrir")


Dim enregistrersous As New MenuItem("Enregistrer sous")


ContextMenu1.MenuItems.Clear()


ContextMenu1.MenuItems.Add(ouvrir)


ContextMenu1.MenuItems.Add(enregistrersous)


End Sub




Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown


Dim Point As New Point(e.X, e.Y)


If (e.Button = MouseButtons.Right) Then


ContextMenu1.Show(RichTextBox1, Point)


End If


End Sub


End Class

Merci pour votre aide.

nhervagault · Answer

menu contextuel



++++++







Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click
 

ME.quitter(sender,e)


End Sub



Mainmenu

++++++++++



Private Sub Quitter2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter2.Click


 ME.quitter(sender,e)

 
End Sub



Traitement commun

++++++++++++++++++



Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

me.Close

end sub



Les parametres pour le traitement commun ne sont pas obligatoire

jlnblade · Answer

Je viens de mettre ce que tu m'as dit. J'ai une erreur sur la ligne "Me.ouvrir (sender, e)" me disant qu'un accès à la propriété doit assigner la propriété ou utiliser sa valeur. 

Merci beaucoup pour ton aide nhervagault.

nhervagault · Answer

Tu n'a pas besoin de mettre le me et les parametres.



Je ne vois pas trop ou est l'erreur sinon.



Et je n'ai pas l'exemple c'est sur un autre ordi.

Menu contextuel

7 réponses

Discussions similaires