Problemas con las extensiones
txaly
27 de Febrero del 2004
Hola: Estoy haciendo un programa que contiene un DirListBox(en el cual aparecen las carpetas del directorio) y un FileListBox(que contiene los archivos que contienen las carpetas). Yo he hecho que al hacer click en un archivo de imagen(.jpg; .bmp) aparezca una previsualización del mismo(en un objeto image). Pero el problema es que hay archivos que en el FileListBox aparecen con la extensión en mayúsculas: foto.JPG y entonces el programa casca, luego miro en el explorador de windows el mismo archivo y aparece la extensión en minúsculas: foto.jpg. La solución que yo he hecho es pasar a minúsculas las extensiones que aparecen en mayúsculas. Pero tampoco funciona. ¿Me podrÃas hechar un cable? Muchas GRACIAS.
en?
27 de Febrero del 2004
no sé porqué no te funciona, pero supongo que podrÃas hacer:
Select Case UCase(Right(File1.FileName,3))
Case "JPG", "BMP", "ICO", ...
Picture1.Picture = LoadPicture(File1.FileName)
Case Else
Picture1.Picture = LoadPicture()
End Select
O algo asÃ.
Select Case UCase(Right(File1.FileName,3))
Case "JPG", "BMP", "ICO", ...
Picture1.Picture = LoadPicture(File1.FileName)
Case Else
Picture1.Picture = LoadPicture()
End Select
O algo asÃ.