[RESOLVED] Get "column" from selected control array

[Disyne]

Hi,

On my form I have 40 labels in a control array. They are lined up with 10 columns and 4 rows.

lbl(0) lbl(1) lbl(2) lbl(3)
lbl(10) lbl(11)
lbl(20) lbl(21)
lbl(30)
etc.

How would I go about returning the column of the label I clicked on?
Say I was to click lbl(10) it would return 0. If I would click lbl(21) it would return 1.

Thanks.

[Merri]

You use Mod and \ operators.

Index = X + Y * ItemsInRow

X = Index Mod ItemsInRow
Y = Index \ ItemsInRow

[Code Doc]

This somewhat traditional code does not use Mod arithmatic but it provides both the column number and the row number:

Option Explicit
Const NumRows = 4, NumCols = 10

Private Sub Label1_Click(Index As Integer)
Dim RowNum As Integer, ColNum As Integer, Pointer As Integer
Dim I As Integer, J As Integer
For I = 1 To NumRows
    For J = 1 To NumCols
        Pointer = Pointer + 1
        If Pointer > Index Then
            ColNum = J
            Exit For
        End If
    Next
    If ColNum Then
        RowNum = I
        Exit For
    End If
Next
MsgBox "I clicked on row" & Str$(RowNum) & ", column" & Str$(ColNum)
End Sub

[Merri]

That's not traditional, that's just one way to do it when you don't know about the existence of Mod and \ operators ^_^

Here is another way to do it without Mod and \:

Option Explicit

Private Sub Form_Load()
    Dim X As Long, Y As Long, Index As Long, Columns As Long
    Columns = 10
    Index = 56
    Y = Fix(Index / Columns)
    X = ((Index / Columns) - Y) * Columns
    MsgBox X & " x " & Y
End Sub

However, Mod and \ remain superior in terms of performance and in length of code

[Code Doc]

Well, I hate to beat a horse to death, but I still cannot get a Mod operator involved with a solution. This code works without looping and may be easier for the OP to use than what I wrote above:

Option Explicit
Const NumCols = 10, NumRows = 4

Private Sub Label1_Click(Index As Integer)
Dim ColNum As Integer, RowNum As Integer
RowNum = Index \ NumCols + 1
ColNum = Index - ((RowNum - 1) * NumCols) + 1
MsgBox "I clicked on column" & Str$(ColNum) & ", row" & Str$(RowNum)
End Sub

[Merri]

Apparently you're trying to work with one based numbers and arrays: zero base is much more convenient in these cases. Internally you probably want to keep everything in zero base.

Mod and \ with one based array, returning one based row and column:

Const Index = 12
Const Cols = 10

X = ((Index - 1) Mod Cols) + 1
Y = ((Index - 1) \ Cols) + 1

As you can see, it eventually goes back to zero base, then jumps back to one base.