Hydra
31 de Octubre del 2005

Hola a todos,
Soy nueva en esto y tengo que hacer un programa que me muestre fotos seleccionándolas desde un combobox. He usado un select case para mostrar las imágenes, pero siempre me sale la primera. ¿Qué tengo mal o qué me falta?
Muchas gracias.


Private Sub Form_Load()
Combo1.Text = ""
Combo1.AddItem "Foto 1"
Combo1.AddItem "Foto 2"
Combo1.AddItem "Foto 3"
Combo1.AddItem "Foto 4"
Combo1.AddItem "Foto 5"
End Sub

Private Sub Foto_Click()

Select Case Foto
Case 1
Picture1.Picture = LoadPicture("c:1.bmp")
Case 2
Picture1.Picture = LoadPicture("c:2.bmp")
Case 3
Picture1.Picture = LoadPicture("c:3.bmp")
Case 4
Picture1.Picture = LoadPicture("c:4.bmp")
Case 5
Picture1.Picture = LoadPicture("c:5.bmp")
End Select
End Sub

maxi
31 de Octubre del 2005

select case combo1.text

case "Foto 1"
etc...
end select