Me.Cell( 5, 0) = "5 - RowPicture, TypeEditable" for row as Integer = 2 to 4 me.CellTag(row, 1) = &c FF FE 2500 : &c F4 00 4500 ' let's use the CellTag to specify their background and text colors me.Cell(row, 1) = me.Cell(row, 1) + " BgColor TextColor" next me.AcceptRawDataDrop ( "Test") Me.CellType( 5, 0) = ListBox.TypeEditable Me.CellType( 4, 1) = ListBox.TypeEditable Me.CellType( 3, 1) = ListBox.TypeEditable Me.CellType( 2, 2) = ListBox.TypeCheckbox Me.CellType( 2, 1) = ListBox.TypeCheckbox Me.CellType( 1, 2) = ListBox.TypeCheckbox Me.CellType( 1, 1) = ListBox.TypeCheckbox Me.Column( 0).MinWidthActual = 40 me.Column( 1).MinWidthActual = 60 me.Column( 2).MinWidthActual = 30 me.Column( 4).MinWidthActual = 10 me.ColumnType( 0) = ListBox.TypeEditable Me.Cell ( 1, 0) = "AlignLeft" me.Cell ( 2, 0) = "AlignCenter" me.Cell ( 3, 0) = "AlignRight" me.Cell ( 4, 0) = "AlignDecimal" me.ColumnAlignment ( 2) = ListBox.AlignCenter Me.CellAlignment ( 4, 0) = ListBox.AlignDecimal Me.CellAlignment ( 3, 0) = ListBox.AlignRight Me.CellAlignment ( 2, 0) = ListBox.AlignCenter Me.CellAlignmentOffset (row, 1) = row * 4 next me.CellAlignment ( 1, 0) = ListBox.AlignLeft Me.RowTag ( me.LastIndex) = 1 : Array (Str(row)+ "a", Str(row)+ "b", Str(row)+ "c")Įnd if for col as Integer = 1 to me.ColumnCount- 1 if col = 1 or col = 2 then // 2nd and 3rd columns get random values for sort testing me.Cell ( me.LastIndex, col) = Chr(col+ 65)+Str(Rnd* 30, "#")Įlse me.Cell ( me.LastIndex, col) = Chr(col+ 65)+Str(row)Įnd if next if row mod 12 = 10 then me.Expanded( me.LastIndex) = true end if next for row as Integer = 1 to Min ( 12, StaticListCount- 1) For row as integer = 0 to StaticListCount- 1 if row mod 4 = 2 then me.AddFolder "f "+Format(row, "#")
0 Comments
Leave a Reply. |