Variacion

Páginas: 3 (563 palabras) Publicado: 24 de septiembre de 2012
PROYECTO FINAL

PROGRAMACION WEB II


El siguiente programa muestra la imagen y biografía breve de un personaje seleccionado en una lista.

Usaremos algunos comandos nuevos como el Case (quese usa igual que el IF) y algunos otros como el list.


1.- Abre Visual Basic y crea un nuevo proyecto.

2.- Inserta dos etiquetas, un ListBox y una imagen como se ve en la figura siguiente:[pic]

3.- Cambia los nombres de los controles: Label1 a lblName, label 2 a lblBio, Image1 y List1, respectivamente.

4.- Asigna los siguientes valores en sus respectivas propiedades:

[pic]Programación 125
5.- Busca 5 imágenes (de preferencia fotos, eso quiere decir que tenga extensión .jpg) y cada imagen debe tener una breve descripción, como por ejemplo:

beethoven.jpg,cheguevara.jpg
Etc.

6.- Escribe el siguiente código dentro del evento Form_Load:

Private Sub Form_Load()
List1.AddItem “Beethoven”
List1.AddItem “Che Guevara”
List1.AddItem“Adolfo Hitler”
List1.AddItem “Mahatma Gandhi”
List1.AddItem “Pelé”
End Sub
7.- Da doble clic sobre el objeto List1 y escribe el siguiente código:

Private Sub List1_Click()Select Case List1.ListIndex
Case 0
Image1.Picture = LoadPicture(“beethoven.jpg”)
lblName.Caption = “Beethoven”
lblBio.Caption =“Ludwig Van Beethoven (Bonn, 16 de
diciembre de 1770 - Viena, 26 de marzo de 1827).
Compositor alemán de música académica, vivió en la
transición delClasicismo al Romanticismo. Uno de los
más grandes y admirados de todos los tiempos. Se
le considera como el principal precursor romántico.
Entresus obras destacan la Quinta Sinfonía; la
Heróica, también llamada Tercera Sinfonía, en mi bemol
mayor, con la que rompe todas las pautas de la música...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • variación
  • VARIACIONES
  • variacion
  • Variacion
  • Variacion
  • Yo y la variación
  • Variacion
  • variaciones

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS