Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña 
 
Hola compañeros programadores buenas tardes como estan, espero que bien, quiero preguntarles como muestran sus imagenes en forma pequeña desde un gridview por lo que yo las muestro por defecto asi

 tabla



Que se haria en ese caso señor jsbsan gracias y saludos  
 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña 
 
Yo lo que hago es reducir la imagen con un programa externo "convert",y  siempre guardo las dos imagenes (la original y la miniatura), para no estar repitiendo el proceso cada vez que se muestre el gridviews.

Aqui viene explicado como se hace: http://listingambas.blogspot.com.es...en-nuestro.html

En el programa de la orla lo puedes ver en este modulo:
ModuleIntermedio.rellenarGridviewsAlumnos(rejilla As ClassSuperGridview, Lista As ClassListaAlumnos)

y

ModuleIntermedio.reduce(ruta As String, rutafin As String)

https://code.google.com/p/creadorde...termedio.module


Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña 
 
Citar:
Yo lo que hago es reducir la imagen con un programa externo "convert",y  siempre guardo las dos imagenes (la original y la miniatura), para no estar repitiendo el proceso cada vez que se muestre el gridviews.

Aqui viene explicado como se hace: http://listingambas.blogspot.com.es...en-nuestro.html

En el programa de la orla lo puedes ver en este modulo:
ModuleIntermedio.rellenarGridviewsAlumnos(rejilla As ClassSuperGridview, Lista As ClassListaAlumnos)

y

ModuleIntermedio.reduce(ruta As String, rutafin As String)

https://code.google.com/p/creadorde...termedio.module


Saludos


Hola señor JSBSAN gracias por la pagina, como esta!, fíjese que yo usaba un código que me había facilitado el compañero DAVID del guardado de las imágenes y note que el lo tenia comentado diciendo 'ESTE REDIMENSIONAMIENTO NO FUNCIONA CON gambas 3' y luego había dejado este código comentado:

'im = im.Stretch(im.Width * escala, im.Height * escala True)------NOTE QUE AQUÍ HACIA UN REDIMENSIONAMIENTO CON LA IMAGEN EN OTRA VARIABLE
 im.Save(tempFile)
End If'

Entonces luego se crea otro campo en la tabla con el nombre de imagchi para guardar la misma imagen pero mas pequeña, quizá el error de el o digamos lo que me sucedió al habilitar este código era que lanzaba un mensaje de (!DEMASIADOS ARGUMENTOS) supuse que era porque tenia demasiadas palabras o sentencias y le quite la propiedad TRUE que se ve alli arriba y listo la variable IM funciono cambio la dimensiones dela imagen y se ve pequeña en la gridview, observe la ultima imagen de la gridview que muestra mi cara pero reducida:

 reporte_resuelto_en_tabla


Mire el codigo del proceso de guardado de la imagen y observe el código que me causaba el error que es el de arriba :

'im = im.Stretch(im.Width * escala, im.Height * escala True)
 im.Save(tempFile)
End If'

-------------------------------------------------------------------------------------------------------------------------------------------------------------------
CÓDIGO CORREGIDO ES UN LARGUERO PERO SI LO ANALIZA PUEDE VER QUE ES LO QUE HACE Y ABAJO EL PROCESO DE TRANSFORMACIÓN DE LA IMAGEN ESTA HECHO AL ESTILO DE MI SISTEMA DE CATASTRO.

Public Sub Button8_Click()
Button35.Visible = False
Button34.Visible = True
  Dialog.Title = "Selecciona una imagen."
  Dialog.Filter = ["*.png;*.jpg;*.jpeg;*.bmp", "Imagenes", "*.*", "Todos los ficheros"]
  Dialog.path = "/home"
  If Dialog.openfile() Then Return 'si cancelamos el dialogo, sale del procedimiento sin errores
 
 ' de aqui cogemos la información del dialog la direccion y el nombre del archivo completo
 Ruta = File.Dir(Dialog.Path) & "/" & File.Name(Dialog.Path)
 Ruta2 = Ruta
PictureBox11.Picture = Picture.Load(Ruta) 'ya tenemos la ruta en el picturebox
 vista_previa_carga.Transporte2(Ruta2)
'vista_previa_carga.Transporte2(juninresul)
 imag = New PictureBox(DrawingArea1) As "picture"
 imag.Stretch = True
 imag.Picture = Picture.Load(Ruta)
 
If Modificando = True Then
  

Pincha = True
End If
End

Public Sub Button1_Click()
Dim im As Image
Dim escala As Float
If TextBox38.Text = "" Or TextBox10.Text = "" Or TextBox11.Text = "" Or TextBox12.Text = "" Or TextBox13.Text = "" Or TextBox14.Text = "" Or TextBox15.Text = "" Or TextBox16.Text = "" Or TextBox17.Text = "" Or TextBox18.Text = "" Or TextBox1.Text = "" Or DateBox2.Value = "" Or TextBox19.Text = "" Or TextBox33.Text = "" Or TextBox34.Text = "" Or TextBox35.Text = "" Or TextBox21.Text = "" Or TextBox21.Text = "" Or TextBox22.Text = "" Or TextBox30.Text = "" Or TextBox31.Text = "" Or TextBox32.Text = "" Or DateBox3.Value = "" Or TextBox40.Text = "" Or TextBox37.Text = "" Or TextBox41.Text = "" Or TextBox42.Text = "" Or TextBox54.Text = "" Or TextBox55.Text = "" Or TextBox56.Text = "" Or TextArea1.Text = "" Or TextArea5.Text = "" Or TextArea3.Text = "" Or TextArea4.Text = "" Or TextBox71.Text = "" Or TextBox72.Text = "" Or TextArea6.Text = "" Or TextBox23.Text = "" Or TextBox24.Text = "" Or TextBox25.Text = "" Or TextBox26.Text = "" Or TextBox27.Text = "" Or TextBox28.Text = "" Or TextArea7.Text = "" Or TextArea8.Text = "" Or TextArea9.Text = "" Or TextArea10.Text = "" Or TextArea12.Text = "" Or TextArea13.Text = "" Or TextArea14.Text = "" Or TextArea2.Text = ""
 Message.Warning("POR FAVOR LLENE LOS CAMPOS REQUERIDOS")
  Else
    TextArea5.Visible = True
    TextArea3.Visible = True
    TextArea4.Visible = True
    TextArea6.Visible = True
    TextArea7.Visible = True
    TextArea8.Visible = True
    TextArea9.Visible = True
    TextArea10.Visible = True
    TextArea12.Visible = True
    TextArea13.Visible = True
    TextArea14.Visible = True
If PictureBox11.Picture = Null
  Message.Warning("POR FAVOR CARGUE UNA IMAGEN EN LA SECCIÓN (4) PARA AÑADIRLA AL REGISTRO")
  Else
  If Message.Question(" ¿DESEA MODIFICAR ALGUN REGISTRO ?", " SI ", " NO ") = 1 Then
If Modificando Then  'aqui el registro se esta modificando "solo registro"
juninresul = coneccion.junincon.Edit("cedula_catastral_completa", "ide=&1", TextBox38.Text)
juninresul["ide"] = TextBox38.Text
juninresul["fecha"] = DateBox1.Value
juninresul["edo"] = TextBox52.Text
juninresul["mun"] = TextBox2.Text
juninresul["prr"] = TextBox39.Text
juninresul["amb"] = TextBox3.Text
juninresul["sec"] = TextBox4.Text
juninresul["man"] = TextBox5.Text
juninresul["par"] = TextBox6.Text
juninresul["sbp"] = TextBox7.Text
juninresul["niv"] = TextBox8.Text
juninresul["und"] = TextBox9.Text
juninresul["nombre_apellido_propietario"] = TextBox10.Text
juninresul["V_o_E_propietario"] = ComboBox1.Text
juninresul["cedula_propietario"] = TextBox11.Text
juninresul["telefono1_propietario"] = TextBox54.Text
juninresul["direccion_inmueble"] = TextBox12.Text
juninresul["telefono2_propietario"] = TextBox55.Text
juninresul["nro_civico"] = TextBox56.Text
juninresul["nombre_apellido_administrador"] = TextBox13.Text
juninresul["V_o_E_administrador"] = ComboBox2.Text
juninresul["cedula_administrador"] = TextBox14.Text
juninresul["direccion_administrador"] = TextBox15.Text
juninresul["telefono_administrador"] = TextBox16.Text
juninresul["doc_datos_registro_prop_adm"] = TextBox17.Text
juninresul["folio_datos_registro_prop_adm"] = TextBox35.Text
juninresul["tomo_datos_registro_prop_adm"] = TextBox18.Text
juninresul["protocolo_datos_registro_prop_adm"] = TextBox33.Text
juninresul["fecha_datos_registro_prop_adm"] = DateBox2.value
juninresul["area_terreno_datos_registro_prop_adm"] = TextBox19.Text
juninresul["servicio_datos_registro_prop_adm"] = TextBox34.Text
juninresul["precio_datos_registro_prop_adm"] = TextBox1.Text
juninresul["nombre_apellido_adquiriente"] = TextBox21.Text
juninresul["V_o_E_adquiriente"] = ComboBox3.Text
juninresul["cedula_adquiriente"] = TextBox22.Text
juninresul["folio_adquiriente"] = TextBox30.Text
juninresul["tomo_adquiriente"] = TextBox31.Text
juninresul["protocolo_adquiriente"] = TextBox32.Text
juninresul["fecha_adquiriente"] = DateBox3.value
juninresul["precio_adquiriente"] = TextBox40.Text
juninresul["doc_nro_adquiriente"] = TextBox37.Text
juninresul["area_terreno_adquiriente"] = TextBox41.Text
juninresul["area_construccion_adquiriente"] = TextBox42.Text
juninresul["observacion_adquiriente"] = TextArea1.Text
juninresul["forma_terreno"] = TextArea5.Text
juninresul["servicios_terreno"] = TextArea3.Text
juninresul["uso_terreno"] = TextArea4.Text
juninresul["codigo_terreno"] = TextBox71.Text
juninresul["zona_terreno"] = TextBox72.Text
juninresul["tenencia_terreno"] = TextArea6.Text
juninresul["hab_por_pro"] = TextBox23.Text
juninresul["hab_por_inq"] = TextBox24.Text
juninresul["renta_mensual"] = TextBox25.Text
juninresul["fecha_contrato"] = TextBox26.Text
juninresul["habitantes_numero"] = TextBox27.Text
juninresul["ingreso_familiar"] = TextBox28.Text
juninresul["estructura_construccion"] = TextArea7.Text
juninresul["paredes_construccion"] = TextArea8.Text
juninresul["techo_construccion"] = TextArea9.Text
juninresul["pisos_construccion"] = TextArea10.Text
juninresul["ventanas_construccion"] = TextArea12.Text
juninresul["puertas_construccion"] = TextArea13.Text
juninresul["ambientes_construccion"] = TextArea14.Text
juninresul["observaciones_construccion"] = TextArea2.Text
'If Error Then
 'Message.Error("NO SE PUDIERON MODIFICAR LOS DATOS")
 'Else
 Message.Info("SU REGISTRO SE HA MODIFICADO EXITOSAMENTE, \n SI QUIERE VER LOS REGISTROS DE CLICK AL BOTON VER REGISTROS")
TextBox38.Text = "0"
DateBox1.Value = Date
TextBox10.Text = ""
TextBox11.Text = ""
TextBox54.Text = ""
TextBox12.Text = ""
TextBox55.Text = ""
TextBox56.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox35.Text = ""
TextBox18.Text = ""
TextBox33.Text = ""
DateBox2.value = ""
TextBox19.Text = ""
TextBox20.Text = "0"
TextBox34.Text = ""
TextBox1.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
DateBox3.value = ""
TextBox40.Text = ""
TextBox37.Text = ""
TextBox41.Text = ""
TextBox42.Text = ""
TextArea1.Text = "Sin Observacion"
TextArea5.Text = "Forma:"
TextArea5.Visible = True
TextArea3.Text = "Servicios:"
TextArea3.Visible = True
TextArea4.Text = "Uso:"
TextArea4.Visible = True
TextBox71.Text = "0"
TextBox72.Text = "0"
TextArea6.Text = "Tenencia:"
TextArea6.Visible = True
TextBox23.Text = "0"
TextBox24.Text = "0"
TextBox25.Text = "0"
TextBox26.Text = "0"
TextBox27.Text = "0"
TextBox28.Text = "0"
TextArea7.Text = "Estructura:"
TextArea7.Visible = True
TextArea8.Text = "Paredes:"
TextArea8.Visible = True
TextArea9.Text = "Techo:"
TextArea9.Visible = True
TextArea10.Text = "Pisos:"
TextArea10.Visible = True
TextArea12.Text = "Ventanas:"
TextArea12.Visible = True
TextArea13.Text = "Puertas:"
TextArea13.Visible = True
TextArea14.Text = "Ambientes:"
TextArea14.Visible = True
TextArea2.Text = "Sin observacion"
  
'Me.Close
modificaciones_cedulas_catastrales_completa.Show
ver_consultar_modificar_eliminar_registros_cedulas_catastrales_completas.Close

 If Pincha = True Then 'si a dado dos veces a la foto y si se esta modificando entra con una imagen nueva
im = Image.Load(Ruta) 'cogemos la ruta del archivo completo
im.Save(tempFile) ' lo pasamos a png

Try juninresul["imagen"] = File.Load(tempFile)
If im.Width > Valor Or im.Height > Valor Then
escala = Min(Valor / im.Width, Valor / im.Height)
   im = im.Stretch(im.Width * escala, im.Height * escala)
    im.Save(tempFile)
End If
'ya se termino el redimensionamiento
Try juninresul["imagchi"] = File.Load(tempFile)
Try juninresul.Update()
Modificando = False
Pincha = False
Else
Modificando = False
Pincha = False
Try juninresul.Update()
'aqui termina el modificando el registro y empieza un registro nuevo
End If
Endif

Else
im = Image.Load(Ruta) 'cogemos la ruta del archivo completo
im.Save(tempFile) ' lo pasamos a png


'esto por fin funciona
'cogemos una variable para hacer una de imagen en este caso es im
'y hacemos el recordset
juninresul = coneccion.junincon.Create("cedula_catastral_completa")
juninresul["ide"] = TextBox38.Text
juninresul["fecha"] = DateBox1.Value
juninresul["edo"] = TextBox52.Text
juninresul["mun"] = TextBox2.Text
juninresul["prr"] = TextBox39.Text
juninresul["amb"] = TextBox3.Text
juninresul["sec"] = TextBox4.Text
juninresul["man"] = TextBox5.Text
juninresul["par"] = TextBox6.Text
juninresul["sbp"] = TextBox7.Text
juninresul["niv"] = TextBox8.Text
juninresul["und"] = TextBox9.Text
juninresul["nombre_apellido_propietario"] = TextBox10.Text
juninresul["V_o_E_propietario"] = ComboBox1.Text
juninresul["cedula_propietario"] = TextBox11.Text
juninresul["telefono1_propietario"] = TextBox54.Text
juninresul["direccion_inmueble"] = TextBox12.Text
juninresul["telefono2_propietario"] = TextBox55.Text
juninresul["nro_civico"] = TextBox56.Text
juninresul["nombre_apellido_administrador"] = TextBox13.Text
juninresul["V_o_E_administrador"] = ComboBox2.Text
juninresul["cedula_administrador"] = TextBox14.Text
juninresul["direccion_administrador"] = TextBox15.Text
juninresul["telefono_administrador"] = TextBox16.Text
juninresul["doc_datos_registro_prop_adm"] = TextBox17.Text
juninresul["folio_datos_registro_prop_adm"] = TextBox35.Text
juninresul["tomo_datos_registro_prop_adm"] = TextBox18.Text
juninresul["protocolo_datos_registro_prop_adm"] = TextBox33.Text
juninresul["fecha_datos_registro_prop_adm"] = DateBox2.value
juninresul["area_terreno_datos_registro_prop_adm"] = TextBox19.Text
juninresul["servicio_datos_registro_prop_adm"] = TextBox34.Text
juninresul["precio_datos_registro_prop_adm"] = TextBox1.Text
juninresul["nombre_apellido_adquiriente"] = TextBox21.Text
juninresul["V_o_E_adquiriente"] = ComboBox3.Text
juninresul["cedula_adquiriente"] = TextBox22.Text
juninresul["folio_adquiriente"] = TextBox30.Text
juninresul["tomo_adquiriente"] = TextBox31.Text
juninresul["protocolo_adquiriente"] = TextBox32.Text
juninresul["fecha_adquiriente"] = DateBox3.value
juninresul["precio_adquiriente"] = TextBox40.Text
juninresul["doc_nro_adquiriente"] = TextBox37.Text
juninresul["area_terreno_adquiriente"] = TextBox41.Text
juninresul["area_construccion_adquiriente"] = TextBox42.Text
juninresul["observacion_adquiriente"] = TextArea1.Text
juninresul["forma_terreno"] = TextArea5.Text
juninresul["servicios_terreno"] = TextArea3.Text
juninresul["uso_terreno"] = TextArea4.Text
juninresul["codigo_terreno"] = TextBox71.Text
juninresul["zona_terreno"] = TextBox72.Text
juninresul["tenencia_terreno"] = TextArea6.Text
juninresul["hab_por_pro"] = TextBox23.Text
juninresul["hab_por_inq"] = TextBox24.Text
juninresul["renta_mensual"] = TextBox25.Text
juninresul["fecha_contrato"] = TextBox26.Text
juninresul["habitantes_numero"] = TextBox27.Text
juninresul["ingreso_familiar"] = TextBox28.Text
juninresul["estructura_construccion"] = TextArea7.Text
juninresul["paredes_construccion"] = TextArea8.Text
juninresul["techo_construccion"] = TextArea9.Text
juninresul["pisos_construccion"] = TextArea10.Text
juninresul["ventanas_construccion"] = TextArea12.Text
juninresul["puertas_construccion"] = TextArea13.Text
juninresul["ambientes_construccion"] = TextArea14.Text
juninresul["observaciones_construccion"] = TextArea2.Text
'If Error Then
' Message.Error("NO SE PUDIERON GUARDAR LOS DATOS")
' Else
 'Message.Info("SU REGISTRO SE HA AGREGADO EXITOSAMENTE, \n SI QUIERE VER LOS REGISTROS DE CLICK AL BOTON VER REGISTROS")
'registros_caracteristicas_propiedades_propietarios.Show
'ver_registros_propietarios_imagenes.Close
Try juninresul["imagen"] = File.Load(tempFile) ' en este caso hay que pone try para que lo acepte y lo guarda tal cual el archivo
'con este codigo redimensionamos la foto para que despues entre en la tabla
If im.Width > Valor Or im.Height > Valor Then
escala = Min(Valor / im.Width, Valor / im.Height)
'ahora resulta que redimensionamiento en gambas3 no funciona
  im = im.Stretch(im.Width * escala, im.Height * escala)
    im.Save(tempFile)
End If
'ya se termino el redimensionamiento

Try juninresul["imagchi"] = File.Load(tempFile)

Try juninresul.Update()

End If
Endif
'TextBox1.Text = ""
'TextBox2.Text = ""
'TextBox3.Text = ""
'Endif
Endif
End

 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña 
 
jousseph:

Muy buen método el que comento el compañero DAVID, ¡¡es mejor que el mío!!

Y funciona en gambas3, seria que le añadio un argumento demás como dices... ( http://www.gambasdoc.org/help/comp/gb.qt4/image/stretch?v3 )

Me he hecho un ejemplo, para que sirva tambien a otros que lleguen a este hilo:

Public Sub Form_Open()
  
  Dim i As Image
  
  i = Image.Load("abandono-de-persona.jpg")
  
  i = i.Stretch(30, 30)
  
  i.Save("/tmp/mini.jpg")
  PictureBox2.Picture = Picture.Load("/tmp/mini.jpg")
  
End


 selecci_n_128
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña 
 
Excelente señor jsbsan, asi ya no tenemos que preocuparnos por redimensionar la imagen aparte ya que todo el tiempo lo va a hacer el formulario de agregado con ese codigo.

Saludos.
 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña 
 
http://www.gambas-it.org/wiki/index...oni_della_cella
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Pequeña Duda Sobre Funciones shordi General 2 Viernes, 09 Octobre 2009, 19:08 Ver último mensaje
shordi
No hay nuevos mensajes Pequeña Charla Sobre Gambas [RubyConf Uru... Ayortano General 8 Sabado, 31 Julio 2010, 00:19 Ver último mensaje
Invitado
No hay nuevos mensajes Insertar Imagenes En Gridview Según Valor... marcopc General 5 Lunes, 28 Noviembre 2011, 19:46 Ver último mensaje
jguardon
No hay nuevos mensajes Como Cargar Dataview.columns Para Elegir L... LuisDaniel Bases de Datos 8 Jueves, 27 Diciembre 2012, 13:47 Ver último mensaje
LuisDaniel
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario