check if cell contain image or icon

[sal21]

I use this code in mousemove event in msflexgrid...

how to insert into the IF condition, a new condition, if mouse is on a filled cell with icon or image, else no action...

Code: Select all

 If COLONNA >= 1 And COLONNA <= LASTDAY And RIGA >= 1 And ANNO > Empty And MESE > Empty Then

Code: Select all

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)

    With Me.MSFlexGrid1
        Me.LCOLONNA.Caption = .MouseCol
        Me.LRIGA.Caption = .MouseRow
        COLONNA = Me.LCOLONNA.Caption
        RIGA = Me.LRIGA.Caption
        If COLONNA >= 1 And COLONNA <= LASTDAY And RIGA >= 1 And ANNO > Empty And MESE > Empty Then
            Me.LGIORNO.Caption = UCase(Format(DateSerial(ANNO, MESE, COLONNA), "DDD")) & "-" & DateSerial(ANNO, MESE, COLONNA)
            TIPO = .TextMatrix(RIGA, 0)
            '.Rows = RIGA
            '.Cols = 0
            'TIPO = .TextMatrix(1, 1)
            Call TROVA_IN_ARRAY(TIPO)
            'Debug.Print TIPO
        Else
            Me.LGIORNO.Caption = ""
            Me.LSTANZA.Caption = ""
            DoEvents
        End If
    End With

End Sub

note:
in my case the icon/image is the green flag

[HansV]

Does this work?

Code: Select all

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)

    With Me.MSFlexGrid1
        Me.LCOLONNA.Caption = .MouseCol
        Me.LRIGA.Caption = .MouseRow
        COLONNA = Me.LCOLONNA.Caption
        RIGA = Me.LRIGA.Caption
        .Row = RIGA
        .Col = COLONNA
        If COLONNA >= 1 And COLONNA <= LASTDAY And RIGA >= 1 And ANNO > Empty And MESE > Empty And (.Text <> "" Or Not .CellPicture Is Nothing) Then
            Me.LGIORNO.Caption = UCase(Format(DateSerial(ANNO, MESE, COLONNA), "DDD")) & "-" & DateSerial(ANNO, MESE, COLONNA)
            TIPO = .TextMatrix(RIGA, 0)
            Call TROVA_IN_ARRAY(TIPO)
        Else
            Me.LGIORNO.Caption = ""
            Me.LSTANZA.Caption = ""
            DoEvents
        End If
    End With

End Sub

[sal21]

Does this work?

Code: Select all

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)

    With Me.MSFlexGrid1
        Me.LCOLONNA.Caption = .MouseCol
        Me.LRIGA.Caption = .MouseRow
        COLONNA = Me.LCOLONNA.Caption
        RIGA = Me.LRIGA.Caption
        .Row = RIGA
        .Col = COLONNA
        If COLONNA >= 1 And COLONNA <= LASTDAY And RIGA >= 1 And ANNO > Empty And MESE > Empty And (.Text <> "" Or Not .CellPicture Is Nothing) Then
            Me.LGIORNO.Caption = UCase(Format(DateSerial(ANNO, MESE, COLONNA), "DDD")) & "-" & DateSerial(ANNO, MESE, COLONNA)
            TIPO = .TextMatrix(RIGA, 0)
            Call TROVA_IN_ARRAY(TIPO)
        Else
            Me.LGIORNO.Caption = ""
            Me.LSTANZA.Caption = ""
            DoEvents
        End If
    End With

End Sub

is this code correct if a cell have an icon or image:

...
.Row = RIGA
.Col = COLONNA
If Not .CellPicture Is Nothing Then
Stop
End if
...

[HansV]

I think so, but as you know, I cannot test it.