
20/02/2008, 10:22
|
| | Fecha de Ingreso: febrero-2008
Mensajes: 7
Antigüedad: 17 años, 2 meses Puntos: 0 | |
La imagen del ImageList no se ve bien Hola...
Tengo un control ImageList con una Imagen y la puse como tamaño 16x16
Cargo un Mshflexgrid y pone la imagen desde el disco, si la quiero cargar desde el Imagelist se ve muy grande (se encima una en otra).. les muestro como lo hago :
Traigo el recorset y lo cargo al Mshflexgrid asi :
Do While Not Rs.EOF
For G = 0 To Registros - 1
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 0) = Rs("IdGrupo")
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 1) = Rs("Grupo")
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 2) = Rs("Tipo")
Me.MSHFlexGrid1.TextMatrix(UltimoReg, 3) = Format(Rs("Colegiatura"), "##,##0.00")
'*** ESTO FUNCIONA BIEN ****
Me.MSHFlexGrid1.Col = 4
Me.MSHFlexGrid1.Row = UltimoReg
Set Me.MSHFlexGrid1.CellPicture = LoadPicture("C:\noico.gif")
Me.MSHFlexGrid1.CellPictureAlignment = 4
'*** ASI LAS IMAGENES SE VEN MUY GRANDES Y SE ENCIMAN***
Me.MSHFlexGrid1.Col = 4
Me.MSHFlexGrid1.Row = UltimoReg
Set Me.MSHFlexGrid1.CellPicture = Me.ImageList1.ListImages(1).Picture
Me.MSHFlexGrid1.CellPictureAlignment = 4
UltimoReg = UltimoReg + 1
Rs.MoveNext
Next
Loop
¿que estoy haciendo mal ?
Gracias por su tiempo
Saludos
Jose A. Castrejon |