Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub Form_Open()
- ListBoxPlatos.mode = Select.Multiple 'Pulse las teclas Ctrl o Mays y Click para ir seleccionando varios Item
- ListBoxPlatos.Add("Patatas Fritas con huevos")
- ListBoxPlatos.Add("Patatas Fritas con filetes")
- ListBoxPlatos.Add("Arroz con leche")
- ListBoxPlatos.Add("Ensalada")
- ListBoxPlatos.Add("Paella")
- ListBoxPlatos.Add("Puchero")
- ListBoxPlatos.Add("Gazpacho")
- ListViewComida.Add("Id_Desayuno", "En el Desayuno", Picture["amanecer.png"])
- ListViewComida.Add("id_Almuerzo", "En el Almuerzo", Picture["dia.png"])
- ListViewComida.Add("id_Merienda", "En la Merienda", Picture["atardecer.png"])
- ListViewComida.Add("id_cena", "En la Cena", Picture["cena.png"])
- ComboBoxCamarero.Add("Juan")
- ComboBoxCamarero.Add("Felipe")
- ComboBoxCamarero.Add("Maria")
- TextLabelInforme.border = Border.Plain
- End
- Public Sub ButtonInfome_Click()
- Dim a As Integer
- TextLabelInforme.text = "Informe:<br>"
- TextLabelInforme.text &= ".....Camarero que se encarga: " & ComboBoxCamarero.Text & "<br>"
- TextLabelInforme.text &= ".....Comida que se sirve en " & ListViewComida.Selection[0] & "<br>"
- TextLabelInforme.text &= ".....Platos:<br>"
- For a = 0 To ListBoxPlatos.Count
- If ListBoxPlatos[a].Selected = True Then TextLabelInforme.text &= ".........." & ListBoxPlatos[a].Text & "<br>"
- Next
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement