|
Página 1 de 1
|
Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña
| Autor |
Mensaje |
 jousseph 
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación:  Tachira
|
 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
Que se haria en ese caso señor jsbsan gracias y saludos 
|
#1 Miercoles, 21 Agosto 2013, 18:42 |
|
 |
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación:  dos hermanas, sevilla
|
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
|
#2 Miercoles, 21 Agosto 2013, 20:36 |
|
|
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación: Tachira
|
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:
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
|
#3 Jueves, 22 Agosto 2013, 04:11 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
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:
|
| Descripción: |
Ejemplo de como redimensionar una imagen de un fichero grafico. |
Descargar |
| Nombre del archivo: |
pimagen-0.0.1.tar.gz |
| Tamaño: |
22.69 KB |
| Descargado: |
35 veces |
|
| Descripción: |
Ejemplo de como redimensionar una imagen de un fichero grafico. |
Descargar |
| Nombre del archivo: |
pimagen-0.0.1.tar.gz |
| Tamaño: |
22.69 KB |
| Descargado: |
35 veces |
|
| Descripción: |
Ejemplo de como redimensionar una imagen de un fichero grafico. |
Descargar |
| Nombre del archivo: |
pimagen-0.0.1.tar.gz |
| Tamaño: |
22.69 KB |
| Descargado: |
35 veces |
|
#4 Jueves, 22 Agosto 2013, 18:25 |
|
|
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación: Tachira
|
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.
|
#5 Jueves, 22 Agosto 2013, 19:39 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación: 
|
Re: Sobre Como Mostrar En Un Gridview Las Imagenes Guardadas En Forma Pequeña
|
#6 Viernes, 06 Septiembre 2013, 12:14 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
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
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
Foro 
