Visual Basic - Mostrar una imagen en lugar de su thmbails

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Mostrar una imagen en lugar de su thmbails

Publicado por Ricardo (4 intervenciones) el 12/11/2022 19:01:13
Hola. He conseguido un proyecto de un visualizador de fotos muy básico, que muestra los metadatos de los archivos, que es lo que necesito. Pero agradecería enormemente si alguien pudiera ayudarme a cambiar un par de cosas, que para un programador no creo que sea muy difícil.

visualbasic

En primer lugar, cuando abro una fotografía, en la Imagebox se muestra el thumbails de esa imagen, yo necesito que se muestre la fotografía, no el thumbails, ajustada al Imagebox, a ser posible.

Y en segundo lugar, y esto ya mucho pedir, si habría alguna forma, de una vez abierto un fichero, con un botón Anterior, y Siguiente, ir pasando el resto de imágenes de una determinada carpeta.

Gracias!.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 145
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar una imagen en lugar de su thmbails

Publicado por Sah1d Ra (191 intervenciones) el 14/11/2022 17:08:17
Hola, espero te pueda servir el siguiente codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click() 'Incremetar
 If File1.ListIndex < File1.ListCount - 1 Then
  File1.ListIndex = File1.ListIndex + 1
 Else
  File1.ListIndex = 0
 End If
End Sub
 
Private Sub Command2_Click() 'Decrementar
 If File1.ListIndex <= 0 Then
  File1.ListIndex = File1.ListCount - 1
 Else
  File1.ListIndex = File1.ListIndex - 1
 End If
End Sub
 
Private Sub File1_Click()
 MsgBox File1.Path + "\" + File1.FileName
End Sub

saludos y felices líneas de programac10n
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Mostrar una imagen en lugar de su thmbails

Publicado por Ricardo (4 intervenciones) el 15/11/2022 12:11:26
Gracias. Me ha funcionado.

Soy algo novato en programación. En el proyecto que adjunto, ¿como hago para que se muestre la imagen entera del archivo, y no la vista reducida thumbail?

He modificado de todo, y se sigue mostrando el thumbail de un fichero jpg.

Gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 145
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar una imagen en lugar de su thmbails

Publicado por Sah1d Ra (191 intervenciones) el 15/11/2022 17:30:59
Hola, en el archivo que adjuntaste no vi ninguna imagen en miniatura, me refiero a lo siguiente:

imagen en miniatura https://http2.mlstatic.com/D_Q_NP_783138-MLA49509475613_032022-R.webp
D_Q_NP_783138-MLA49509475613_032022-R

imagen normal https://http2.mlstatic.com/D_NQ_NP_783138-MLA49509475613_032022-O.webp
D_NQ_NP_783138-MLA49509475613_032022-O

checa el nombre de la imagen que cambia, en este caso si tiene cambios diferentes

pero existen otros casos mas sencillos como

ImagenOriginal ocupa mas espacio, mas detalles y abre mas lento
ImagenOriginalT ocupa menos espacio menos detalles y abre mas rápido

Lo que quiero decir es que la imagen normal y reducida son dos imágenes diferentes.


Lo otro que pudieras hacer para abrir la imagen original es usar el PictureBox y si deseas redimencionar y mostrar esa misma imagen en pequeño usa el control IMAGE y su propiedad de stretch, para estirar o encoger la imagen que contenga.

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
     Picture1.Picture = LoadPicture(Ruta_Del_Archivo)
     Picture1.Autosize = TRue
     Image1.Picture = Picture1.Picture
     Image1.Stretch = True
     Image1.Width = Image1.Width /2
     Image1.Hight = Image1.Height /2
     Me.backColor = vbred
End Sub

saludos y felices lineas de programac10n.


PD. tu picture donde muestras la imagen ponle autosize=true
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Mostrar una imagen en lugar de su thmbails

Publicado por Ricardo (4 intervenciones) el 16/11/2022 21:21:15
Hola. En el proyecto que adjunto, cuando abro una imagen, ésta sale reducida.

Pero no consigo saber si es la imagen reducida, o una imagen reducida en los metadatos dentro del archivo, ya que la aplicación en sí muestra metadatos.

imagenthumb

Estoy loco cambiando líneas para que la imagen se muestre completa, auto ajustada al picture box, así:

imagencompleta

Adjunto el proyecto, alguien podría echarle un vistazo y ver qué línea cambio.

Gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar