FlexGrid

[anonymous]

[Originally posted by XTC]

Does anyone have a good site that will have some good code for programming the MSflexGrid? I am trying to code in the headers for the columns? I know this is basic but i havent coded the flexgrid very much? Thx

[anonymous]

[Originally posted by Gordon]

I don't know of any sites, but this is what I use in one of my programs...hope it helps.

--
Gordon

***code starts***

'set up grid column info; ColWidth = 0 to hide some columns
Dim strGridFormat As String
strGridFormat = ">Item |<Type |<Line# |<LaborType |<Task |<Description |>PrtTyp |>PrtNum |>PrtEst |>PrtActual |>LabEst |>LabActual |>Sublet |>Difference |>Mat'lFee |>Gst |>Pst "
grdSupTasks.FormatString = strGridFormat
With grdSupTasks
ÿ .ColWidth(1) = 650ÿ ÿ 'Add or Change
ÿ .ColWidth(2) = 500ÿ ÿ 'Line number to change
ÿ .ColWidth(3) = 900ÿ ÿ 'Labor type
ÿ .ColWidth(4) = 1400ÿ 'Task
ÿ .ColWidth(5) = 2500ÿ 'Description
ÿ .ColWidth(6) = 700ÿ ÿ 'PartType
ÿ .ColWidth(7) = 800ÿ ÿ 'Part Num/Description
ÿ .ColWidth(8) = 800ÿ ÿ 'Estimated Parts Price
ÿ .ColWidth(9) = 800ÿ ÿ 'Actual Parts Price
ÿ .ColWidth(10) = 800ÿ 'Estimated Labor
ÿ .ColWidth(11) = 800ÿ 'Actual Labor
ÿ .ColWidth(12) = 800ÿ 'Sublet
ÿ .ColWidth(13) = 800ÿ 'Difference
ÿ .ColWidth(14) = 800ÿ 'Material Fee
ÿ .ColWidth(15) = 800ÿ 'Gst
ÿ .ColWidth(16) = 800ÿ 'Pst
***code ends****