Alcune funzioni per navigare nella mia griglia di celle.

Ecco, nell'ambito della mia griglia di celle, le funzioni che ho creato:

Ecco alcune funzioni che , fornendo come parametro una cella, fanno vari calcoli.

---

Funzioni che, data la cella, identificano la colonna e la riga della cella:

    'identifica la colonna della casella
    Public Function colonna(ByVal sender As Object) As Integer
        Return IndexOf(sender) Mod casxFila
    End Function
    'identifica la riga della casella
    Function fila(ByVal sender As Object) As Integer
        Return IndexOf(sender) \ casxFila
    End Function

La prima è piuttosto facile: il resto della divisione dell'indice di una casella per il numero di caselle per fila dà la colonna.
La seconda è anch'essa facile: la divisione intera dell'indice per il numero di caselle per riga dà la riga.

---

Funzioni che, data la cella, identificano le celle precedente e successiva:

       'identifica la casella precedente nell'array
    Function precedente(ByVal sender As Object) As Label
        Return Me(IndexOf(sender) - 1)
    End Function
    ''identifica la casella successiva nell'array
    Function successiva(ByVal sender As Object) As Label
        Return Me(IndexOf(sender) + 1)
    End Function

Queste partono dall'indice della cella nell'array, diminuendolo o aumentandolo di uno.

---

Funzioni che, data la cella, identificano la cella corrispondente nella fila precedente e nella successiva:

    'data la casella, identifica la casella corrispondente del giorno prima
    Function PrevParall(ByVal sender As Object) As Label
        Return Me(IndexOf(sender) - casxFila)
    End Function
    'data la casella, identifica la casella corrispondente del giorno dopo
    Function NextParall(ByVal sender As Object) As Label
        Return Me(IndexOf(sender) + casxFila)
    End Function

Queste desumono l'indice della casella cliccata e lo diminuiscono o lo aumentano di un numero pari al numero delle celle per riga.