imagen en toda la columna msflexgrid de visual

[kittaragon]

hola comunidad:

quisiera saber como puedo hacer para que un msflexgrid de visual basic le pueda colocar una imagen a toda una columna esto en tiempo de ejecucion.

si alguien sabe como hacer esto le agradeceria lo comparta.....

de antemano muchas gracias..

[aavg]

Que tal kittaragon:

Prueba lo siguiente, crea un formulario y agrega un control MSHFlexGrid1 dejale el nombre por default, agrega un control Image1 y asignale una imagen desde tiempo de diseño (esto solo por razones de prueba, ya que lo puedes hacer en tiempo de ejecucion), despues agrega un botón... en mi ejemplo puse el código dentro del botón Command1.

Pega el siguiente codigo...



Private Sub Command1_Click()
Dim Contador As Integer

'Se pone el false para que no muestre el grid
'hasta haber terminado de poner las imagenes
MSHFlexGrid1.Col = 1 'Asigno la columna 1
MSHFlexGrid1.Redraw = False

For Contador = MSHFlexGrid1.FixedRows To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = Contador 'cambio de renglón en la misma columna
Set MSHFlexGrid1.CellPicture = Image1.Picture
MSHFlexGrid1.CellPictureAlignment = 4 'centramos la imagen en la celda
Next Contador

'Se vuelve a pintar el grid
'una vez terminados los cambios
MSHFlexGrid1.Redraw = True
End Sub



Espero que te sirva.. hasta pronto