Bonjour,
je crée un menu dynamique qui s'affiche correctement, (la n'est pas le
problème)
1) j'aimerais gérer l'évènement Click pour chacun des items créés
2) ainsi qu'un ShortCut (1,2,3,4,...) en fonction de leur position dans la
liste
3) je ne vois pas de propriété Tag sur un menuItem. Comment peut-on donner
un nom au menu et lui assigner une valeur du type "c:\truc.txt" ?
voila la procédure pour les points 1 et 2
' -----------------------------------------------------------------------
Dim SR As StreamReader = New StreamReader(Application.StartupPath &
"\debits.txt")
Dim tablo() As String
Dim I As Integer
Dim CM As New MenuItem
Dim Menu As MainMenu = Me.MainMenu1
Dim Tmp As String
Do While SR.Peek() >= 0
Dim mI As New MenuItem
Tmp = SR.ReadLine
If Microsoft.VisualBasic.Left(Tmp, 1) <> ";" Then
tablo = Split(Tmp, "|")
mI.Text = tablo(0)
'''''''''''''' ------------------------------------------------------------------
'''''''''''''' AddHandler MenuItem2.Click,
AddressOf .....
'''''''''''''' ------------------------------------------------------------------
'''''''''''''' je ne vois pas ce que je peux
faire pour renseigner l'opérateur AdressOf
'''''''''''''' j'aimerais aussi, rajouter un
shortCut avec un n° incrémentiel à mI
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
nesserb
Bonjour,
Il faut creer une procedure qui va gerer l'evenement Click.
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Ici on verifie le sender et on redirige vers la fonction voulue
...
End Sub
Puis dans AddHandler MenuItem2.Click, AddressOf ....
il faudrait mettre :
AddHandler MI.Click , AddressOf Button_Click
Voila en esperant avoir repondu au 1° de votre sujet ! Bon courage.
Bonjour, je crée un menu dynamique qui s'affiche correctement, (la n'est pas le problème) 1) j'aimerais gérer l'évènement Click pour chacun des items créés 2) ainsi qu'un ShortCut (1,2,3,4,...) en fonction de leur position dans la liste 3) je ne vois pas de propriété Tag sur un menuItem. Comment peut-on donner un nom au menu et lui assigner une valeur du type "c:truc.txt" ?
voila la procédure pour les points 1 et 2 ' ----------------------------------------------------------------------- Dim SR As StreamReader = New StreamReader(Application.StartupPath
&
"debits.txt") Dim tablo() As String Dim I As Integer Dim CM As New MenuItem Dim Menu As MainMenu = Me.MainMenu1 Dim Tmp As String Do While SR.Peek() >= 0 Dim mI As New MenuItem Tmp = SR.ReadLine If Microsoft.VisualBasic.Left(Tmp, 1) <> ";" Then tablo = Split(Tmp, "|") mI.Text = tablo(0)
'''''''''''''' je ne vois pas ce que je peux faire pour renseigner l'opérateur AdressOf '''''''''''''' j'aimerais aussi, rajouter un shortCut avec un n° incrémentiel à mI
Il faut creer une procedure qui va gerer l'evenement Click.
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
' Ici on verifie le sender et on redirige vers la fonction voulue
...
End Sub
Puis dans
AddHandler MenuItem2.Click, AddressOf ....
il faudrait mettre :
AddHandler MI.Click , AddressOf Button_Click
Voila en esperant avoir repondu au 1° de votre sujet !
Bon courage.
Bonjour,
je crée un menu dynamique qui s'affiche correctement, (la n'est pas le
problème)
1) j'aimerais gérer l'évènement Click pour chacun des items créés
2) ainsi qu'un ShortCut (1,2,3,4,...) en fonction de leur position dans la
liste
3) je ne vois pas de propriété Tag sur un menuItem. Comment peut-on donner
un nom au menu et lui assigner une valeur du type "c:truc.txt" ?
voila la procédure pour les points 1 et 2
' -----------------------------------------------------------------------
Dim SR As StreamReader = New StreamReader(Application.StartupPath
&
"debits.txt")
Dim tablo() As String
Dim I As Integer
Dim CM As New MenuItem
Dim Menu As MainMenu = Me.MainMenu1
Dim Tmp As String
Do While SR.Peek() >= 0
Dim mI As New MenuItem
Tmp = SR.ReadLine
If Microsoft.VisualBasic.Left(Tmp, 1) <> ";" Then
tablo = Split(Tmp, "|")
mI.Text = tablo(0)
'''''''''''''' je ne vois pas ce que je peux
faire pour renseigner l'opérateur AdressOf
'''''''''''''' j'aimerais aussi, rajouter un
shortCut avec un n° incrémentiel à mI
Il faut creer une procedure qui va gerer l'evenement Click.
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Ici on verifie le sender et on redirige vers la fonction voulue
...
End Sub
Puis dans AddHandler MenuItem2.Click, AddressOf ....
il faudrait mettre :
AddHandler MI.Click , AddressOf Button_Click
Voila en esperant avoir repondu au 1° de votre sujet ! Bon courage.
Bonjour, je crée un menu dynamique qui s'affiche correctement, (la n'est pas le problème) 1) j'aimerais gérer l'évènement Click pour chacun des items créés 2) ainsi qu'un ShortCut (1,2,3,4,...) en fonction de leur position dans la liste 3) je ne vois pas de propriété Tag sur un menuItem. Comment peut-on donner un nom au menu et lui assigner une valeur du type "c:truc.txt" ?
voila la procédure pour les points 1 et 2 ' ----------------------------------------------------------------------- Dim SR As StreamReader = New StreamReader(Application.StartupPath
&
"debits.txt") Dim tablo() As String Dim I As Integer Dim CM As New MenuItem Dim Menu As MainMenu = Me.MainMenu1 Dim Tmp As String Do While SR.Peek() >= 0 Dim mI As New MenuItem Tmp = SR.ReadLine If Microsoft.VisualBasic.Left(Tmp, 1) <> ";" Then tablo = Split(Tmp, "|") mI.Text = tablo(0)
'''''''''''''' je ne vois pas ce que je peux faire pour renseigner l'opérateur AdressOf '''''''''''''' j'aimerais aussi, rajouter un shortCut avec un n° incrémentiel à mI
