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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.