本文整理汇总了VB.NET中System.Windows.Forms.TreeView.Scrollable属性的典型用法代码示例。如果您正苦于以下问题：VB.NET TreeView.Scrollable属性的具体用法？VB.NET TreeView.Scrollable怎么用？VB.NET TreeView.Scrollable使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Windows.Forms.TreeView的用法示例。
在下文中一共展示了TreeView.Scrollable属性的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: InitializeTreeView
' Declare the TreeView control.
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
' Initialize the TreeView to blend with the form, giving it the
' same color as the form and no border.
Private Sub InitializeTreeView()
' Create a new TreeView control and set the location and size.
Me.TreeView1 = New System.Windows.Forms.TreeView
Me.TreeView1.Location = New System.Drawing.Point(72, 48)
Me.TreeView1.Size = New System.Drawing.Size(200, 200)
' Set the BorderStyle property to none, the BackColor property to
' the form's backcolor, and the Scrollable property to false.
' This allows the TreeView to blend in form.
Me.TreeView1.BorderStyle = BorderStyle.None
Me.TreeView1.BackColor = Me.BackColor
Me.TreeView1.Scrollable = False
' Set the ShowRootLines and ShowLines properties to false to
' give the TreeView a list-like appearance.
Me.TreeView1.ShowRootLines = False
Me.TreeView1.ShowLines = False
' Add the nodes.
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() _
{New System.Windows.Forms.TreeNode("Features", _
New System.Windows.Forms.TreeNode() _
{New System.Windows.Forms.TreeNode("Full Color"), _
New System.Windows.Forms.TreeNode("Project Wizards"), _
New System.Windows.Forms.TreeNode("Visual C# and Visual Basic Support")}), _
New System.Windows.Forms.TreeNode("System Requirements", _
New System.Windows.Forms.TreeNode() _
{New System.Windows.Forms.TreeNode _
("Pentium 133 MHz or faster processor "), _
New System.Windows.Forms.TreeNode("Windows 98 or later"), _
New System.Windows.Forms.TreeNode("100 MB Disk space")})})
' Set the tab index and add the TreeView to the form.
Me.TreeView1.TabIndex = 0
Me.Controls.Add(Me.TreeView1)
End Sub