Variacion
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...
Regístrate para leer el documento completo.