| Private Sub tv_Click() ''on error resume next With tv.SelectedItem If .Expanded Then .Expanded = False Else .Expanded = True 'if is expanded close it else... 'MsgBox .Key n1 = Right(.Key, 1) 'keys are of format TOP-1 SUB-2 etc... Select Case Left(.Key, 3) Case "xxx": Case "xxx": End Select End With End Sub |
Test and act on tree view selections |
Freelance ASP PHP web development | Web developer India Web development India| Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design