Visual Basic - color en la celda de un msflexgrid

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha disminuido su posición en 5 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

color en la celda de un msflexgrid

Publicado por José (6 intervenciones) el 20/02/2019 20:53:40
Hola:
Trato de guardar en una variable el color de una celda de un msflexgrid .
El problema que tengo es que siempre toma 255 y ese no es el color que tiene. Dónde está el problema-
Pongo un trozo de código

1
2
3
4
5
6
7
8
9
10
11
rstabla.MoveFirst
rstabla.Move (NumeroClick + 1)
Filaoriginal = 1 + NumeroClick
Columnaoriginal = 1
 
With Anulaciones.FDG49
    .Row = Filaoriginal
    .Col = 1
    Colororiginal = Val(FDG49.CellBackColor)
End With
........

He probado guardar en la variable Colororiginal=Val(FDG49.CellBackColor) y con Colororiginal=FDG49.CellBackColor

Siempre me da 255

Help
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

color en la celda de un msflexgrid

Publicado por Andres Leonardo (1798 intervenciones) el 20/02/2019 21:10:39
Prueba asi ...
el grid demi ejemplo se llama FLEX....


1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub flex_SelChange()
NUM = Val(flex.TextMatrix(flex.RowSel, flex.ColSel))
NUM = flex.RowSel
If NUM <> 0 Then flex.CellBackColor = vbGreen
    MsgBox flex.CellBackColor
End Sub
 
 
Private Sub flex_LeaveCell()
    flex.CellBackColor = vbWhite
    Colororiginal  = flex.CellBackColor
  msgbox Colororiginal
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar