Gioco a programmare

giovedì 28 novembre 2013

Funzione che individua una casella "compagna"

Devo inventare una funzione che, se la mia label ha il tag "mattina" e se nell'altra il tag sia uguale e abbia un testo corrispondente a un menu, questo menu non venga caricato nel menu popup.

Se una casella con lo stesso numero di riga e con lo stesso tag ha un certo testo non caricare il menu con questo testo.
Una funzione dovrebbe individuare la casella "compagna" sulla base del criterio che è o precedente o seguente e ha lo stesso tag.

Proviamo a buttare giù qualcosa del genere...

    Function compagna(ByVal sender As Object) As Label
        If precedente(sender).Tag = sender.tag Then
            Return precedente(sender)
        ElseIf successiva(sender).Tag = sender.tag Then
            Return successiva(sender)
        Else
            Return Nothing
        End If
    End Function

Ecco.
Ovviamente, la funzione può restituire un Nothing, per cui può essere sollevata un'eccezione: per questo motivo va gestita l'eccezione con un codice Try... Catch.

    Sub ClassEventHandler(ByVal sender As Object, ByVal e As MouseEventArgs) Handles miaGriglia.Evento
        Try
            compagna(sender).BackColor = Color.Green
        Catch ex As Exception

        End Try

    End Sub

E, premesso questo, funziona.