Bonjour,
Je cherche un équivalent VB.Net simple du code suivant VB6 qui implique des menus indexés (sous forme de tableaux) ?
La propriété Index d'un menu ayant disparu sous VB.Net 2013, il ne semble plus possible de disposer de menus sous forme de tableaux.
Voici le code VB6 :
Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 'Le menu "mnuItems" est créer avec le créateur de menus sous VB6, 'en disposant de la propriété Index = 0. mnuItems(0).Caption = "Item 0" Dim i As Integer, NbItems A Integer NbItems = 5 For i = 1 to NbItems - 1 'Chargement de nouveaux items du menu. Load mnuItems(i) mnuItems(i).Caption = "Item" & Str$(i) mnuItems(i).Checked = True Next i
René
Partager