Ver Mensaje Individual
  #7 (permalink)  
Antiguo 01/11/2008, 09:42
Gastonie
 
Fecha de Ingreso: octubre-2008
Mensajes: 13
Antigüedad: 15 años, 6 meses
Puntos: 0
Sonrisa Respuesta: Crear Lista en Visual 2008 (ayuda)

Vale ya logre hacerlo, seguramente mi codigo da asco pero recien empiezo y bueno intente que me funcione aunque el codigo este mal, ya logre llenar mi lista con valores introducidos por un textbox y mostrarlos segun su color al listview, este es el codigo, claro que tengo que corregir algunas cosas que pueden provocar errores como por ejemplo si ingreso una letra y no un numero pero eso sera mas adelante, gracias por su ayuda y siempre son bienvenidas las criticas para poder aprender...
Gaston

Cita:
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Genero las columnas de la lista
With ListView1
.View = View.Details
.Columns.Add("ro", 25)
.Columns.Add("am", 25)
.Columns.Add("az", 25)
End With
End Sub


Private Sub agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles agregar.Click
Dim dato As String = ""
'Cargo el valor del textbox a la variable dato
dato = TextBox1.Text
If dato <> "" Then
If CInt(dato) >= 0 And CInt(dato) <= 10 Then
'Segun el valor lo coloca en la lista con su color
Select Case CInt(dato)
Case 0, 1, 2, 3
Dim rojo As New ListViewItem(dato)

With rojo
.ForeColor = Color.Red
ListView1.Items.Add(rojo)
End With
Case 4, 5, 6, 7
Dim amarillo As New ListViewItem("")

With amarillo
.ForeColor = Color.Yellow
.SubItems.Add(dato)
ListView1.Items.Add(amarillo)
End With

Case 8, 9, 10

Dim azul As New ListViewItem("")

With azul
.ForeColor = Color.Blue
.SubItems.Add("")
.SubItems.Add(dato)
ListView1.Items.Add(azul)
End With

End Select
End If
End If
End Sub


End Class