开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > 组合框控件 > 查看源码
Form1.vb
资源名称：combobox.zip　[点击查看]
上传用户：hbmarket
上传日期：2022-08-01
资源大小：45k
文件大小：8k
源码类别：

组合框控件

开发平台：

Visual Basic

Form1.vb：源码内容
  1. Public Class Form1
  2.     Inherits System.Windows.Forms.Form
  4. #Region " Windows Form Designer generated code "
  6.     Public Sub New()
  7.         MyBase.New()
  9.         'This call is required by the Windows Form Designer.
  10.         InitializeComponent()
  12.         'Add any initialization after the InitializeComponent() call
  14.     End Sub
  16.     'Form overrides dispose to clean up the component list.
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  26.     'Required by the Windows Form Designer
  27.     Private components As System.ComponentModel.IContainer
  29.     'NOTE: The following procedure is required by the Windows Form Designer
  30.     'It can be modified using the Windows Form Designer.  
  31.     'Do not modify it using the code editor.
  32.     Friend WithEvents ComboBoxTree1 As ComboBoxTree_Demo.Controls.ComboBoxTree
  33.     Friend WithEvents Button2 As System.Windows.Forms.Button
  34.     Friend WithEvents Button1 As System.Windows.Forms.Button
  35.     Friend WithEvents Label1 As System.Windows.Forms.Label
  36.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  37.     Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
  38.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  39.         Me.components = New System.ComponentModel.Container
  40.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
  41.         Me.ComboBoxTree1 = New ComboBoxTree_Demo.Controls.ComboBoxTree
  42.         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
  43.         Me.Button2 = New System.Windows.Forms.Button
  44.         Me.Button1 = New System.Windows.Forms.Button
  45.         Me.Label1 = New System.Windows.Forms.Label
  46.         Me.TextBox1 = New System.Windows.Forms.TextBox
  47.         Me.SuspendLayout()
  48.         '
  49.         'ComboBoxTree1
  50.         '
  51.         Me.ComboBoxTree1.ImageList = Me.ImageList1
  52.         Me.ComboBoxTree1.Location = New System.Drawing.Point(24, 16)
  53.         Me.ComboBoxTree1.Name = "ComboBoxTree1"
  54.         Me.ComboBoxTree1.SelectedImageIndex = 0
  55.         Me.ComboBoxTree1.SelectedNode = Nothing
  56.         Me.ComboBoxTree1.Size = New System.Drawing.Size(344, 22)
  57.         Me.ComboBoxTree1.TabIndex = 0
  58.         '
  59.         'ImageList1
  60.         '
  61.         Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
  62.         Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
  63.         Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
  64.         Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
  65.         '
  66.         'Button2
  67.         '
  68.         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System
  69.         Me.Button2.Location = New System.Drawing.Point(384, 48)
  70.         Me.Button2.Name = "Button2"
  71.         Me.Button2.Size = New System.Drawing.Size(136, 24)
  72.         Me.Button2.TabIndex = 6
  73.         Me.Button2.Text = "Clear Selection"
  74.         '
  75.         'Button1
  76.         '
  77.         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System
  78.         Me.Button1.Location = New System.Drawing.Point(384, 16)
  79.         Me.Button1.Name = "Button1"
  80.         Me.Button1.Size = New System.Drawing.Size(136, 24)
  81.         Me.Button1.TabIndex = 5
  82.         Me.Button1.Text = "Get Selected Node"
  83.         '
  84.         'Label1
  85.         '
  86.         Me.Label1.Location = New System.Drawing.Point(24, 56)
  87.         Me.Label1.Name = "Label1"
  88.         Me.Label1.Size = New System.Drawing.Size(328, 16)
  89.         Me.Label1.TabIndex = 8
  90.         Me.Label1.Text = "Current Selection:"
  91.         '
  92.         'TextBox1
  93.         '
  94.         Me.TextBox1.Location = New System.Drawing.Point(24, 72)
  95.         Me.TextBox1.Name = "TextBox1"
  96.         Me.TextBox1.ReadOnly = True
  97.         Me.TextBox1.Size = New System.Drawing.Size(344, 20)
  98.         Me.TextBox1.TabIndex = 7
  99.         Me.TextBox1.Text = ""
  100.         '
  101.         'Form1
  102.         '
  103.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  104.         Me.ClientSize = New System.Drawing.Size(536, 286)
  105.         Me.Controls.Add(Me.Label1)
  106.         Me.Controls.Add(Me.TextBox1)
  107.         Me.Controls.Add(Me.Button2)
  108.         Me.Controls.Add(Me.Button1)
  109.         Me.Controls.Add(Me.ComboBoxTree1)
  110.         Me.Name = "Form1"
  111.         Me.Text = "ComboBoxTree Demo"
  112.         Me.ResumeLayout(False)
  114.     End Sub
  116. #End Region
  118.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  119.         ' Set some initial TreeView properties
  120.         ComboBoxTree1.TreeView.ShowLines = False
  122.         ComboBoxTree1.SuspendLayout()
  123.         ComboBoxTree1.TreeView.Visible = True
  124.         ' Creating the tree nodes while the TreeView is visible avoids the bug
  125.         ' that shows a horizontal scrollbar on the bottom of the tree.
  126.         Dim Node As TreeNode = ComboBoxTree1.TreeView.Nodes.Add("--- No selection ---")
  127.         Node.ImageIndex = 2
  128.         Node.SelectedImageIndex = 2
  129.         ComboBoxTree1.TreeView.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node0", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node1", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node2"), New System.Windows.Forms.TreeNode("Node3")}), New System.Windows.Forms.TreeNode("Node4"), New System.Windows.Forms.TreeNode("Node5")})})
  130.         ComboBoxTree1.TreeView.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node0", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node1", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node2"), New System.Windows.Forms.TreeNode("Node3")}), New System.Windows.Forms.TreeNode("Node4"), New System.Windows.Forms.TreeNode("Node5")})})
  131.         ComboBoxTree1.TreeView.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node0", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node1", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Node2"), New System.Windows.Forms.TreeNode("Node3")}), New System.Windows.Forms.TreeNode("Node4"), New System.Windows.Forms.TreeNode("Node5")})})
  132.         ComboBoxTree1.TreeView.Visible = False
  134.         Node = ComboBoxTree1.TreeView.Nodes.Add("New node...")
  135.         Node.ImageIndex = 3
  136.         Node.SelectedImageIndex = 3
  138.         ComboBoxTree1.ResumeLayout()
  140.         ' Select a node...
  141.         Me.ComboBoxTree1.SelectedNode = Me.ComboBoxTree1.TreeView.Nodes.Item(2).Nodes.Item(1)
  142.     End Sub
  144.     Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
  145.         ' Actually, this should be handled by the ComboBoxTree itself,
  146.         ' but the current version of the control does not handle this.
  147.         Me.ComboBoxTree1.DroppedDown = False
  148.     End Sub
  150.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  151.         If Me.ComboBoxTree1.SelectedNode Is Nothing Then
  152.             MsgBox("No tree node is selected.")
  153.         Else
  154.             MsgBox(Me.ComboBoxTree1.SelectedNode.Text)
  155.         End If
  156.     End Sub
  158.     Private Sub ComboBoxTree1_AfterSelect(ByVal sender As Object) Handles ComboBoxTree1.AfterSelect
  159.         If Me.ComboBoxTree1.SelectedNode Is Nothing Then
  160.             Me.TextBox1.Text = "No tree node is selected."
  161.         ElseIf Me.ComboBoxTree1.SelectedNode.Text.StartsWith("---") Then
  162.             Me.ComboBoxTree1.SelectedNode = Nothing
  163.         Else
  164.             Me.TextBox1.Text = Me.ComboBoxTree1.SelectedNode.Text
  165.         End If
  166.     End Sub
  168.     Private Sub ComboBoxTree1_BeforeSelect(ByVal sender As Object, ByVal Node As System.Windows.Forms.TreeNode, ByRef Cancel As Boolean) Handles ComboBoxTree1.BeforeSelect
  169.         If (Not Node Is Nothing) AndAlso Node.Text.StartsWith("New") Then
  170.             Cancel = True
  171.             Me.ComboBoxTree1.DroppedDown = False
  172.             MsgBox(Node.Text)
  173.         End If
  174.     End Sub
  176.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  177.         Me.ComboBoxTree1.SelectedNode = Nothing
  178.     End Sub
  180. End Class