Steuerelemente mit Index (.NET) Zeigt wie man unter VB.NET Steuerelemente mit Index erstellt
Autor:   Jan Biniok	Bewertung:     [ Jetzt bewerten ]	Views:  18.051
www.merx.tk	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie vermissen in VB.NET die Möglichkeit Steuerelemente mit Index zu erstellen?

Try this... ;)

Nachfolgender Code erstellt ein PopUp-Menü mit insgesamt 10 Menü-Einträgen.

Sub Form_Load ... oder ContextInit(Anz as long) oder ... 
  Dim i As Long
  Dim mnuContext As New ContextMenu
  Dim mnuC() As MenuItem
  ReDim mnuC(9) ' oder Redim mnuC(anz)
 
  For i = 0 To 9  ' oder ... to anz
    mnuC(i) = New MenuItem
    mnuC(i).Text = Trim(Str(i))
    mnuContext.MenuItems.Add(mnuC(i))
 
    AddHandler mnuC(i).Click, AddressOf mnuC_Click
  Next
 
  ' Contextmenu als Menu für MainForm festlegen
  Me.ContextMenu = mnuContext
End Sub

Private Sub mnuC_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  Select Case sender.index
    Case 0
 
    Case 1
 
    ' ...
 
  End Select
 
  ' oder
  MsgBox(Trim(Str(sender.index)))
End Sub