Question

VB.net TreeView 展开节点自适应宽度

在我将节点展开的时候，TreeView的Width值自动加到可以容纳整下TreeView内容而不出现滚动条？
Vb.net WinForm

在改变Width（宽度）值，让所有节点都展开也都可以在TreeView里显示，而不用通过滚动条

Answer 1

'控制树状选单自动调整宽度
Private Sub tvMenu_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles tvMenu.AfterExpand, tvMenu.AfterCollapse
Dim iMaxWidth As Integer = 0
For Each tn As TreeNode In tvMenu.Nodes
Dim iCurPos As Integer = tn.Bounds.X
Dim iCurWidth As Integer = iCurPos + tn.Bounds.Width
If tn.IsExpanded Then
iCurWidth = GetTreeViewMaxWidth(tn)
End If
If iMaxWidth < iCurWidth Then
iMaxWidth = iCurWidth
Me.gbMenu.Width = iCurPos + iMaxWidth
End If
Next
End Sub
'取得目前树状选单节点下展开的最大宽度
Private Function GetTreeViewMaxWidth(tn As TreeNode) As Integer
Dim iMaxWidth As Integer = 0
For Each tnItem As TreeNode In tn.Nodes
Dim iCurPos As Integer = tnItem.Bounds.X
Dim iCurWidth As Integer = iCurPos + tnItem.Bounds.Width
If tnItem.IsExpanded Then
iCurWidth = GetTreeViewMaxWidth(tnItem)
End If
If iMaxWidth < iCurWidth Then
iMaxWidth = iCurWidth
End If
Next
Return iMaxWidth
End Function

Answer 2

你可在程序中写，每点有子节点的节点时，TreeView的width就增加一个固定的值

Answer 3

什么意思，我没明白，我也想试试。

Answer 4

设置它的SCROLL为真就好了。