Hola, soy principiante en lo que es .net y tengo un problema sobre los arreglo.
Lo que sucede es que quiero que el arreglo que elimine del arreglo1 se agregue en el arreglo2 antes que se elimine del arreglo1, y que al presionar el boton 'listar' se liste todos los arreglos eliminados del arreglo1.
Aqui les dejo el codigo que he utilizado:
Cita: Public Class Form1
Dim arreglo As New ArrayList
Dim arreglo2 As New ArrayList
Sub listarArreglo()
Me.ListView1.Items.Clear()
For Each puntero As claseArreglo In arreglo
Dim filas As New ListViewItem(puntero.codigo)
filas.SubItems.Add(puntero.nombre)
Me.ListView1.Items.Add(filas)
Next
End Sub
Sub listarArreglo2()
End Sub
Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Enter Then
For Each puntero As claseArreglo In arreglo
If puntero.codigo = Me.TextBox1.Text Then
MsgBox("Ya existe codigo")
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox1.Focus()
Exit Sub
End If
Next
Dim clase As New claseArreglo
clase.codigo = Me.TextBox1.Text
clase.nombre = Me.TextBox2.Text
arreglo.Add(clase)
Call listarArreglo()
End If
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick, ListView2.DoubleClick
Dim buscar As String = Me.ListView1.SelectedItems(0).SubItems(0).Text
For Each puntero As claseArreglo In arreglo
If puntero.codigo = buscar Then
arreglo.Remove(puntero)
MsgBox("Registro eliminado")
Call listarArreglo()
Exit Sub
End If
Next
End Sub
#Region "Clase para la Arraylist"
Public Class claseArreglo
Private _codigo As String
Private _nombre As String
Public Property codigo() As String
Get
Return _codigo
End Get
Set(ByVal value As String)
_codigo = value
End Set
End Property
Public Property nombre() As String
Get
Return _nombre
End Get
Set(ByVal value As String)
_nombre = value
End Set
End Property
End Class
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call listarArreglo2()
End Sub
End Class
Espero puedan ayudarme gracias