Creamos un proyecto en Visual Basic.Net 2012 y diseñamos el formulario en la siguiente forma, añadimos el control Listview, modificamos su nombre por lsvDatos, en donde se mostrara el contenido del array:
Doble click en el boton Ejecutar y agregamos el siguiente codigo:
Private Sub btnEjecutar_Click(sender As Object, e As EventArgs) Handles btnEjecutar.Click
Dim N As Integer
N = txtEntrada.Text
'Creamos el array de N elementos
Dim Numeros(N - 1) As Integer
'Ingreso de numeros al array
For X As Integer = 0 To N - 1
Numeros(X) = InputBox("Ingresar numero entero " & X)
Next
'Utilizamos la siguiente propiedad
'para mostrar los datos en el ListView
lsvDatos.View = View.Details
'Agregamos columna, el primero es el nombre
'de la columna y el segundo el ancho
lsvDatos.Columns.Add("Numeros", 100)
For x = 0 To Numeros.Length - 1
'Creamos una objeto ListaItem para
'agregar datos al ListView
Dim ListaItem As New ListViewItem
ListaItem.Text = Numeros(x).ToString
lsvDatos.Items.Add(ListaItem)
Next
End Sub
Dim N As Integer
N = txtEntrada.Text
'Creamos el array de N elementos
Dim Numeros(N - 1) As Integer
'Ingreso de numeros al array
For X As Integer = 0 To N - 1
Numeros(X) = InputBox("Ingresar numero entero " & X)
Next
'Utilizamos la siguiente propiedad
'para mostrar los datos en el ListView
lsvDatos.View = View.Details
'Agregamos columna, el primero es el nombre
'de la columna y el segundo el ancho
lsvDatos.Columns.Add("Numeros", 100)
For x = 0 To Numeros.Length - 1
'Creamos una objeto ListaItem para
'agregar datos al ListView
Dim ListaItem As New ListViewItem
ListaItem.Text = Numeros(x).ToString
lsvDatos.Items.Add(ListaItem)
Next
End Sub
Al ejecutar el programa mostrara la siguiente salida.
Si desea obtener el codigo fuente escribir a: cgprognet@hotmail.com.
No hay comentarios:
Publicar un comentario