document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub Form_Open()
  2.  
  3.   ListBoxPlatos.mode = Select.Multiple \'Pulse las teclas Ctrl o Mays y Click para ir seleccionando varios Item
  4.   ListBoxPlatos.Add("Patatas Fritas con huevos")
  5.   ListBoxPlatos.Add("Patatas Fritas con filetes")
  6.   ListBoxPlatos.Add("Arroz con leche")
  7.   ListBoxPlatos.Add("Ensalada")
  8.   ListBoxPlatos.Add("Paella")
  9.   ListBoxPlatos.Add("Puchero")
  10.   ListBoxPlatos.Add("Gazpacho")
  11.  
  12.   ListViewComida.Add("Id_Desayuno", "En el Desayuno", Picture["amanecer.png"])
  13.   ListViewComida.Add("id_Almuerzo", "En el Almuerzo", Picture["dia.png"])
  14.   ListViewComida.Add("id_Merienda", "En la Merienda", Picture["atardecer.png"])
  15.   ListViewComida.Add("id_cena", "En la Cena", Picture["cena.png"])
  16.  
  17.   ComboBoxCamarero.Add("Juan")
  18.   ComboBoxCamarero.Add("Felipe")
  19.   ComboBoxCamarero.Add("Maria")
  20.  
  21.   TextLabelInforme.border = Border.Plain
  22.  
  23. End
  24.  
  25. Public Sub ButtonInfome_Click()
  26.  
  27.   Dim a As Integer
  28.  
  29.   TextLabelInforme.text = "Informe:<br>"
  30.   TextLabelInforme.text &= ".....Camarero que se encarga: " & ComboBoxCamarero.Text & "<br>"
  31.   TextLabelInforme.text &= ".....Comida que se sirve en   " & ListViewComida.Selection[0] & "<br>"
  32.  
  33.   TextLabelInforme.text &= ".....Platos:<br>"
  34.  
  35.   For a = 0 To ListBoxPlatos.Count
  36.     If ListBoxPlatos[a].Selected = True Then TextLabelInforme.text &= ".........." & ListBoxPlatos[a].Text & "<br>"
  37.    
  38.   Next
  39.  
  40. End
');