Visual Basic - Estoy atascada

Life is soft - evento anual de software empresarial
 
Vista:

Estoy atascada

Publicado por Tadiar (39 intervenciones) el 20/03/2002 21:46:02
Vereis tengo una aplicación con un MSFlexGrid que al hacer un click en una fila en concreto comprueba si en la columna 10 hay un determinado picture y si es así activa un icono en el toolBar, BUENO ESTO FUNCIONA BIEN HASTA AQUI, y adjunto el código a continuación, mi problema surge cuando quiero que al hacer CLICK sobre una fila tambien me compruebe si en la columna 12 de esa fila existe el texto "SI" y si es así que me active un label que se encuentra en el formulario.Por supuesto las dos cosas son independientes, puede existir el picture en la columna 10 y no estar el texto "SI" en la columna 12 ó viceversa.
Este codigo funciona para el tema del picture pero no se como añadir para que me compruebe si existe el texto en la columna 12. Ayudadme por favor estoy atascada.

Private Sub MSFlex_Click()

MSFlex.Col = 10
If MSFlex.CellPicture = PicNo.Picture Then
Toolbar1.Buttons("VerFotos").Enabled = False
Else
Toolbar1.Buttons("VerFotos").Enabled = True
End If

MSFlex.Col = 1
MSFlex.ColSel = MSFlex.Cols - 1

End Sub

-------------------------------------------------------

Private Sub MSFlex_RowColChange()

Static Entrado As Boolean
Dim ColumnaAntigua, FilaAntigua As Long

If Inicializado And Not Entrado Then
Entrado = True

ColumnaAntigua = MSFlex.Col
FilaAntigua = MSFlex.Row

MSFlex.Col = 10

If MSFlex.CellPicture = PicNo.Picture Then
Toolbar1.Buttons("VerFotos").Enabled = False
Else
Toolbar1.Buttons("VerFotos").Enabled = True
End If

MSFlex.Col = ColumnaAntigua
MSFlex.Row = FilaAntigua

Entrado = False
End If

End Sub

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

RE:Estoy atascada

Publicado por alberto (278 intervenciones) el 21/03/2002 06:28:16
En principio el código siguiente debería ser suficiente

Private Sub MSFlex_RowColChange()

Static Entrado As Boolean
Dim ColumnaAntigua, FilaAntigua As Long

If Inicializado And Not Entrado Then
Entrado = True

ColumnaAntigua = MSFlex.Col
FilaAntigua = MSFlex.Row

MSFlex.Col = 10

If MSFlex.CellPicture = PicNo.Picture Then
Toolbar1.Buttons("VerFotos").Enabled = False
Else
Toolbar1.Buttons("VerFotos").Enabled = True
End If

''La etiqueta
MSFlex.Col = 12
If MSFlex.Text = "SI" Then
Label.Enabled = True
Else
Label.Enabled = False
End If

MSFlex.Col = ColumnaAntigua
MSFlex.Row = FilaAntigua

Entrado = False
End If

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