Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Imágenes En GridView (Solucionado)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Imágenes En GridView (Solucionado) 
 
Hola,

¿Hay forma de copiar la imagen de una celda a otra directamente o indirectamente?

No me funciona
Grid[j, col].Picture = Grid[j+1, col].Picture
 


Tampoco  consigo   asignar el contenido (la imagen) de la celda a una variable de tipo picture ni image. Tampoco puedo grabar la imagen a un fichero.

Grid[j+1, col].Picture.Save(application.Path & "/picture.bmp")
 


El programa se cierra inesperadamente enviando la señal #11

Gracias anticipadas

Saludos
 



 
última edición por ljma el Lunes, 07 Marzo 2011, 08:59; editado 1 vez 
ljma - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Imágenes En GridView 
 
como quieres copiar la imagen? arrastrandola de una celda a otra.?

el grid view tiene el evento drag.

coge la imagen arrastrada de la ultima celda:

Drag.Icon = LAST.Picture
  LAST.Drag(LAST.Picture.Image)


y pon la a en la nueva celda
en el evento drop:

grid[grid.row, j].Picture = picture[drag.icon]


no lo he probado pero yo intentaría probarlo.

lo de guardar la imagen, yo lo que aria es con la ruta de donde esta la imagen hacer un copy al directorio seleccionado.
para obtener la ruta de donde sale la imagen que esta en el grid, almacenaría las rutas de las imágenes que se van agregando al grid.

es solo una idea para probar.

espero te de alguna pista valida para empezar.
 



 
última edición por pittusa el Miercoles, 02 Marzo 2011, 19:42; editado 6 veces 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Imágenes En GridView 
 
Hola pittusa,

No, forma parte de un procedimiento de ordenación de un grid. Si pincho una columna ordena las filas de la grid por  esa columa en orden ascendente y si pincho otra vez ordena en orden descendente. Con el texto, fondo de las celdas, etc no hay problema pero las imágenes se me han atragantado.

Gracias

Saludos
 



 
ljma - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Imágenes En GridView 
 
Jo!

no entiendo nada de lo que quieres hacer.

pasa el código que tienes.

si estas almacenando las imágenes en la base con un campo campo blob es diferente.


haber si luego cuando salga del curro te hago un código.

sigue probando
 



 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Imágenes En GridView 
 
la ostia!

habré el ejemplo  picturedatabase del gambas

es justo lo que quieres hacer.

si lo que quieres es ordenar un gridview solo tines que buscar en google jsbsan ordenar grid.


algunas veces para buscar algo sobre gambas no tienes que poner gambas. Pon el nombre de este foro
y si no pones jsbsan.

venga animo.
 



 
última edición por pittusa el Miercoles, 02 Marzo 2011, 21:38; editado 1 vez 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Imágenes En GridView 
 
Hola Pittusa,

Aqui tienes el código de jsbsan:


Public Sub GridViewLista_ColumnClick(Column As Integer)
   funcionesg.ord_AZ(GridViewLista, Column)
End


PUBLIC SUB ord_AZ(grid AS GridView, a AS Integer)
‘a: indica la columna a la que ordenamos
‘grid: es la rejilla que ordenamos

DIM limite AS Integer
DIM cambio1 AS String
DIM i AS Integer
DIM j AS Integer
DIM col AS Integer
grid.visible = FALSE

limite = grid.Rows.Count

IF (grid.Columns.Count < a + 1) OR a < 0 THEN
Message.Error(Error en la columna introducida para ordenar”)
GOTO salidaordenar
END IF

FOR i = 0 TO limite – 1
FOR j = 0 TO limite – 2
IF UCase$(Grid[j, a].Text) > UCase$(Grid[j + 1, a].Text) THEN
FOR col = 0 TO grid.Columns.Count – 1
cambio1 = Grid[j, col].Text
Grid[j, col].text = Grid[j + 1, col].Text
Grid[j + 1, col].text = cambio1
NEXT
END IF
NEXT
NEXT

salidaordenar:
grid.visible = TRUE
END


Como puedes observar este código solo ordena el texto de las celdas, pero si la celda está "formateada" con fondo, color de letra, o con una imagen en la celda pues eso, que hay se queda. Inmagina un grid con dos columnas [paises,banderas]; paises es texto y banderas  imagen. Si ordenamos esta grid con este procedimiento las banderas ya no se corresponderán con los paises.


Mi primera intención (breve)

PUBLIC SUB ord_AZ(grid AS GridView, a AS Integer)
‘a: indica la columna a la que ordenamos
‘grid: es la rejilla que ordenamos

DIM limite AS Integer
DIM cambio1 AS String
DIM cambio2 AS new Picture
DIM i AS Integer
DIM j AS Integer
DIM col AS Integer
grid.visible = FALSE

limite = grid.Rows.Count

IF (grid.Columns.Count < a + 1) OR a < 0 THEN
Message.Error(Error en la columna introducida para ordenar”)
GOTO salidaordenar
END IF

FOR i = 0 TO limite – 1
FOR j = 0 TO limite – 2
IF UCase$(Grid[j, a].Text) > UCase$(Grid[j + 1, a].Text) THEN
FOR col = 0 TO grid.Columns.Count – 1
cambio1 = Grid[j, col].Text
cambio2 = Grid[j, col].picture
Grid[j, col].text = Grid[j + 1, col].Text
Grid[j, col].Picture = Grid[j + 1, col].Picture
Grid[j + 1, col].text = cambio1
Grid[j + 1, col].Picture = cambio2
NEXT
END IF
NEXT
NEXT

salidaordenar:
grid.visible = TRUE
END


Gracias por tu interés

Saludos
 



 
última edición por ljma el Miercoles, 02 Marzo 2011, 23:42; editado 2 veces 
ljma - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Imágenes En GridView 
 
Hola,

El error no era de código sino un bug de gambas o de algún componente. Me puse a hacer pruebas en casa con el portátil y ¡¡funcionaba!! La solución fue actualizar gambas. También tuve que actualizar la versión de debian y ubuntu por un problema con un componente al actualizar gambas.

Saludos
 



 
ljma - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

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

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
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
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron