Ver Mensaje Individual
  #3 (permalink)  
Antiguo 04/06/2010, 08:52
Erick21
 
Fecha de Ingreso: abril-2010
Ubicación: Lima-Peru
Mensajes: 96
Antigüedad: 14 años
Puntos: 2
Respuesta: Listbox en un Label

tengo una lista que lo he llenado con un arreglo utilizando un with y un boton que me agrega mas elementos al listboxt desde un textboxt , ahora tengo un boton y un label y quiero que los datos del listboxt me aparescan en un label.

el script es bastante sencillo .

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

LSTENTRADAS.items.clear()

With LSTENTRADAS
.Items.Add("papa a la huancaina")
.Items.Add("ensalada rusa")
.Items.Add("ocopa arequipeña")
.Items.Add("choritos a la chalaca")
End With

Private Sub cbxseleccione_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxseleccione.SelectedIndexChanged

If cbxseleccione.Text = "menu vegetariano" Then
LSTENTRADAS.Items.Clear()
With LSTENTRADAS
.Items.Add("ensalada mixta")
.Items.Add("lechugas")
.Items.Add("caldo minuta")
.Items.Add("sopa de letras")

End With

Private Sub Agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Agregar.Click

LSTENTRADAS.Items.Add(txtplato.Text)
End Sub