Code: Select all
...
TIPO_STRUTT = Me.LSTRUTT1.Caption
With Me.TreeView1
.Nodes.Item(TIPO_STRUTT).Expanded = True
End With
...
Code: Select all
...
TIPO_STRUTT = Me.LSTRUTT1.Caption
With Me.TreeView1
.Nodes.Item(TIPO_STRUTT).Expanded = True
End With
...
im stupid!
Code: Select all
...
Static TIP As Boolean
TIPO_STRUTT = Me.LSTRUTT1.Caption
With Me.TreeView1
If TIP Then
.Nodes.Item(TIPO_STRUTT).Expanded = False
TIP = False
Else
.Nodes.Item(TIPO_STRUTT).Expanded = True
TIP = True
End If
End With
...
Code: Select all
TIPO_STRUTT = Me.LSTRUTT1.Caption
With Me.TreeView1.Nodes.Item(TIPO_STRUTT)
.Expanded = Not .Expanded
End With