我想请教一个语法问题。

Question

请问一下，下面的（with.....end with）的作用 和用法。。 With TreeView1
    
            If MsgBox("是否删除" & .Nodes(parText).Text & "?", vbOKCancel, "警告") = vbOK Then
                txtSQL = "delete from dm_wzlb where lbcode1 = '" & Trim(.Nodes(parText).Key) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                If .Nodes(parText).Parent Is Nothing Then
                    txtSQL = "delete from dm_wzlb where lbcode = '" & Trim(.Nodes(parText).Key) & "'"
                    Set mrc = ExecuteSQL(txtSQL, MsgText)
                End If
                
                TreeView1.Nodes.Clear
                
                ShowClass
            Else
                Exit Sub
            End If
        End With

Answer 1

用With ……End With是用于简化程序如With TreeView1
   .Nodes(parText).Parent  
End With相当于 TreeView1.Nodes(ParText).Parent

Answer 2

用了with以后，后面就不用写成：treeview1.nodes.clear　了
可以简写成： .nodes.clear　这样就可以了