VBA > Opis obiektów VBA > MxGrid > Opis interfejsów > Row > Właściwości > Indent | | Drukuj |
Indent as Integer
Określa poziom (zagłębienie) elementu w hierarchicznej strukturze drzewa. Pole jest tylko do odczytu. Elementy najwyżej w hierarchii mają wartość Indent = 0, pierwszy poziom dzieci ma wartość 1 i tak dalej, aż do maksymalnie 32 poziomów zagłębienia.
AmCtrl1.TreeMode = ttSolidLines
AmCtrl1.ColumnCount = 1
AmCtrl1.Columns(0).amFieldType ftString, 100
AmCtrl1.RowCount = 4
AmCtrl1.Rows(1).Value(0) = "Indent = 0"
AmCtrl1.Rows(2).Value(0) = "Indent = 0"
AmCtrl1.Rows(3).Value(0) = "Indent = 0"
Set r = AmCtrl1.InsertChildRow(3, 0)
r.Value(0) = "Indent = 1"
Set r = AmCtrl1.Rows(0)
r.Value(0) = "Indent = 0"
Set r = AmCtrl1.InsertChildRow(0, –1)
r.Value(0) = "Indent = 1"
Set r = AmCtrl1.InsertChildRow(0, –1)
r.Value(0) = "Indent = 1"
Set r = AmCtrl1.InsertChildRow(0, –1)
r.Value(0) = "Indent = 1"
Set r = r.InsertChildRow(1)
r.Value(0) = "Indent = 2"
Set r = r.InsertChildRow(1)
r.Value(0) = "Indent = 3"
Set r = r.InsertChildRow(1)
r.Value(0) = "Indent = 4"
Set r = r.InsertChildRow(1)
r.Value(0) = "Indent = 5"