Θέλω να φτιάξω ένα δυναμικό context menu και δεν μπορώ να καταλάβω πως θα προσθέτω υπομενού. Στο MSDN βρήκα κάποιο παράδειγμα αλλά αφορά συγκεκριμένο αριθμό από υπομενού. Καμιά βοήθεια;

Αν αυτό μπορεί να σε βοηθήσει......

Dim menu_users As New System.Windows.Forms.ToolStripMenuItem
menu_users.Name = "menu_users"
menu_users.Text = "Χρήστες"
ContextMenuStrip1.Items.Insert(2, menu_users)
Dim sub_menu_users As New System.Windows.Forms.ToolStripMenuItem("Διαχείριση χρηστών", Global.CRM.My.Resources.Resources.usersIco, New EventHandler(AddressOf sub_menu_users_Click))
menu_users.DropDownItems.Add(sub_menu_users)

Ευχαριστώ αλλά ο αριθμός των υπομενού στην περίπτωση μου δεν είναι συγκεκριμένος. Τι θα πρέπει να κάνω;

Δεν σε καταλαβαίνω όταν λες ο αριθμός των υπομενού....Αν ενοείς πλήθος κάτω απο ένα μενού δεν έχεις προβλημα, αν εννοείς βάθος στο μενού σου πάλι δεν εχεις πρόβλημα...

Dim menu_users As New System.Windows.Forms.ToolStripMenuItem
menu_users.Text = "Χρήστες"
ContextMenuStrip1.Items.Insert(0, menu_users)
Dim sub_menu_users1 As New System.Windows.Forms.ToolStripMenuItem("Διαχείριση χρηστών")
menu_users.DropDownItems.Add(sub_menu_users1)
menu_users.DropDownItems.Add(New System.Windows.Forms.ToolStripMenuItem("Διαχείριση χρηστών")
sub_menu_users1.DropDownItems.Add(New System.Windows.Forms.ToolStripMenuItem("Διαχείριση χρηστών"))

Απ'ότι βλέπεις μπορείς να το αναπτύξεις όπως θέλεις, όπως π.χ. ένα Treeview.

Έχεις δίκιο. Συνδύασα αυτά που μου έγραψες και έκανα το παρακάτω αλλά δεν μπορώ να διαβάσω το click. Τι μπορώ να κάνω; Με την New EventHandler(AddressOf sub_menu_users_Click) που γράφεις δεν βγάζω άκρη.

For l = 0 To 9
Dim menu_tasks As New System.Windows.Forms.ToolStripMenuItem
menu_tasks.Name = "menu_tasks" & l
menu_tasks.Text = "name" & CStr(l)
cntxSelDay.Items.Insert(l, menu_tasks)
Dim sub_menu_tasks As New System.Windows.Forms.ToolStripMenuItem
For t = 0 To 4
menu_tasks.DropDownItems.Add("sub" & CStr(t))
Next
Next

Ευχαριστώ πολύ.

Με το (AddressOf sub_menu_users_Click) στην ουσία δηλώνεις τι θα εκτελεσθεί όταν δημιουργηθεί το event OnClick.

Π.χ.

Private Sub sub_menu_users_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

DO SOMETHING HERE

End Sub

Ωραία. Εγώ όμως θέλω να εκτελείται η ίδια sub σε οποιοδήποτε menuitem και αν κάνω κλικ και να στέλνω στη sub κάποιο ID, διαφορετικό για κάθε menuitem.

Σ' ευχαριστώ πάρα πολύ για το χρόνο σου και την υπομονή σου (κυρίως).

Δεν χρειάζεται να στέλνεις ID, έτσι κι αλλιώς περνάει ολόκληρο το object που έχει προκαλέσει το event ως "sender". Έτσι λοιπόν, μπορείς να κάνεις διάφορα κόλπα όπως να βάλεις στο Tag property του menuitem οποιαδήποτε τιμή (είναι τύπος object). Όταν πλέον τρέξει η procedure, θα μετατρέψεις το sender object σε menuitem και θα διαβάσεις το Tag property

---

Vir prudens non contra ventum mingit

Και πιο αναλυτικά σε αυτό που λέει ο KelMan στην δημιουργία του menuItem:

...
...
menu_tasks.Text = "name" & CStr(l)
menu_tasks.Name = "menu_tasks" & l
menu_tasks.Tag = TO ID ΣΟΥ
...
...

Και στην εκτέλεση:



Private Sub menu_tasks(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Id
Id =CType(sender, System.Windows.Forms.ToolStripMenuItem).Tag
End Sub

Σας ευχαριστώ πολύ!!!