CodeItBetter Programming Another VB Programming Blog

'Controls - How to Copy array data into a FlexGrid control
'The CopyArrayToGrid subroutine loops over the values in the array copying them
'into the FlexGrid control using its TextMatrix method.

Private Sub CopyArrayToGrid(ByRef m_ArrayData() As String, ByVal grd As MSFlexGrid)
    Dim intRowMin As Integer
    Dim intColMin As Integer
    Dim intRowMax As Integer
    Dim intColMax As Integer
    Dim intRow As Integer
    Dim intCol As Integer
 
    intRowMin = LBound(m_ArrayData, 1)
    intRowMax = UBound(m_ArrayData, 1)
    intColMin = LBound(m_ArrayData, 2)
    intColMax = UBound(m_ArrayData, 2)
    grd.Rows = intRowMax - intRowMin + 1
    grd.Cols = intColMax - intColMin + 1
    grd.FixedCols = 0
    grd.FixedRows = 0
 
    For intRow = intRowMin To intRowMax
        For intCol = intColMin To intColMax
            grd.TextMatrix(intRow - intRowMin, intCol - intColMin) = m_ArrayData(intRow, intCol)
        Next intCol
    Next intRow
End Sub