2 terug plaatsen, array.

[Spy1]

Ik heb zeg maar de volgende array lijst:

Piet
Maikel
Klaas
Jan
Mannes

En ik wil graag dat 'Jan' 2 plaatsen terug word gezet, automatisch in het programma. Dat dan de lijst als volgt uit ziet:

Piet
Jan
Maikel
Klaas
Mannes

Deze lijst is natuurlijk gewoon als voorbeeld, dat jullie even een beetje snap waar ik het over heb.

 

[Pizara]

Zo'n sub bestaat (nog) niet. Je kan er wel simpel eentje zelf maken.
ReplaceTo(sourceindex,destinationindex,arraynaam)

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Coll As New MyArray

        Coll.Add("Piet")
        Coll.Add("Maikel")
        Coll.Add("Klaas")
        Coll.Add("Jan")
        Coll.Add("Mannes")

        Coll.ReplaceTo(3, 1, Coll)

    End Sub

    Public Class MyArray
        Inherits ArrayList

        Public Sub ReplaceTo(ByVal source As Integer, ByVal destination As Integer, ByVal sender As ArrayList)
            Dim TempSource As String = sender.Item(source)
            sender.RemoveAt(source)
            sender.Insert(destination, TempSource)
        End Sub

    End Class

End Class

 

[Spy1]

Super! Bedankt, kan ik weer verder!