VB.Net Tutorial/GUI Applications/Dual List — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 15:56, 26 мая 2010

Dual List

<source lang="vbnet">Imports System.Windows.Forms public class DualList

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Private Sub btnAddSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddSource.Click
        lstSource.Items.Add("A")
   End Sub
   Private Sub btnAddDestination_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddDestination.Click
        lstDestination.Items.Add("B")
   End Sub
   Private Sub btnClearSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearSource.Click
       lstSource.Items.Clear()
   End Sub
   Private Sub btnClearDestination_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDestination.Click
       lstDestination.Items.Clear()
   End Sub
   Private Sub btnRemoveSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveSource.Click
       If lstSource.SelectedItems.Count > 0 Then
           lstSource.Items.Remove(lstSource.SelectedItem)
       End If
   End Sub
   Private Sub btnRemoveDestination_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveDestination.Click
       Dim intCounter As Integer
       For intCounter = 0 To lstDestination.SelectedIndices.Count - 1
           lstDestination.Items.RemoveAt(lstDestination.SelectedIndices(0))
       Next intCounter
   End Sub
   Private Sub btnMoveDestination_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveDestination.Click
       If lstSource.SelectedItems.Count > 0 Then
           lstDestination.Items.Add(lstSource.SelectedItem)
           lstSource.Items.RemoveAt(lstSource.SelectedIndex)
       End If
   End Sub
   Private Sub btnMoveSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveSource.Click
       Dim intCounter As Integer
       For intCounter = 0 To lstDestination.SelectedIndices.Count - 1
           lstSource.Items.Add(lstDestination.Items(lstDestination.SelectedIndices(0)))
           lstDestination.Items.Remove(lstDestination.Items(lstDestination.SelectedIndices(0)))
       Next intCounter
   End Sub
   Private Sub btnMoveAllDestination_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveAllDestination.Click
       Dim intCounter As Integer
       For intCounter = 0 To lstSource.Items.Count - 1
           lstDestination.Items.Add(lstSource.Items(0))
           lstSource.Items.RemoveAt(0)
       Next intCounter
   End Sub
   Private Sub btnMoveAllSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveAllSource.Click
       Dim intCounter As Integer
       For intCounter = 0 To lstDestination.Items.Count - 1
           lstSource.Items.Add(lstDestination.Items(0))
           lstDestination.Items.RemoveAt(0)
       Next intCounter
   End Sub

End Class Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   <System.Diagnostics.DebuggerNonUserCode()> _
   Public Sub New()
       MyBase.New()
       "This call is required by the Windows Form Designer.
       InitializeComponent()
   End Sub
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.lstSource = New System.Windows.Forms.ListBox
       Me.lstDestination = New System.Windows.Forms.ListBox
       Me.btnMoveAllDestination = New System.Windows.Forms.Button
       Me.btnMoveDestination = New System.Windows.Forms.Button
       Me.btnMoveSource = New System.Windows.Forms.Button
       Me.btnMoveAllSource = New System.Windows.Forms.Button
       Me.btnAddSource = New System.Windows.Forms.Button
       Me.btnRemoveSource = New System.Windows.Forms.Button
       Me.btnClearSource = New System.Windows.Forms.Button
       Me.btnAddDestination = New System.Windows.Forms.Button
       Me.btnRemoveDestination = New System.Windows.Forms.Button
       Me.btnClearDestination = New System.Windows.Forms.Button
       Me.Label1 = New System.Windows.Forms.Label
       Me.Label2 = New System.Windows.Forms.Label
       Me.SuspendLayout()
       "
       "lstSource
       "
       Me.lstSource.FormattingEnabled = True
       Me.lstSource.Location = New System.Drawing.Point(21, 25)
       Me.lstSource.Name = "lstSource"
       Me.lstSource.Size = New System.Drawing.Size(162, 199)
       Me.lstSource.TabIndex = 0
       "
       "lstDestination
       "
       Me.lstDestination.FormattingEnabled = True
       Me.lstDestination.Location = New System.Drawing.Point(254, 25)
       Me.lstDestination.Name = "lstDestination"
       Me.lstDestination.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
       Me.lstDestination.Size = New System.Drawing.Size(162, 199)
       Me.lstDestination.Sorted = True
       Me.lstDestination.TabIndex = 1
       "
       "btnMoveAllDestination
       "
       Me.btnMoveAllDestination.Location = New System.Drawing.Point(201, 48)
       Me.btnMoveAllDestination.Name = "btnMoveAllDestination"
       Me.btnMoveAllDestination.Size = New System.Drawing.Size(36, 28)
       Me.btnMoveAllDestination.TabIndex = 2
       Me.btnMoveAllDestination.Text = ">>"
       "
       "btnMoveDestination
       "
       Me.btnMoveDestination.Location = New System.Drawing.Point(201, 83)
       Me.btnMoveDestination.Name = "btnMoveDestination"
       Me.btnMoveDestination.Size = New System.Drawing.Size(36, 28)
       Me.btnMoveDestination.TabIndex = 3
       Me.btnMoveDestination.Text = ">"
       "
       "btnMoveSource
       "
       Me.btnMoveSource.Location = New System.Drawing.Point(201, 141)
       Me.btnMoveSource.Name = "btnMoveSource"
       Me.btnMoveSource.Size = New System.Drawing.Size(36, 28)
       Me.btnMoveSource.TabIndex = 4
       Me.btnMoveSource.Text = "<"
       "
       "btnMoveAllSource
       "
       Me.btnMoveAllSource.Location = New System.Drawing.Point(201, 176)
       Me.btnMoveAllSource.Name = "btnMoveAllSource"
       Me.btnMoveAllSource.Size = New System.Drawing.Size(36, 28)
       Me.btnMoveAllSource.TabIndex = 5
       Me.btnMoveAllSource.Text = "<<"
       "
       "btnAddSource
       "
       Me.btnAddSource.Location = New System.Drawing.Point(21, 237)
       Me.btnAddSource.Name = "btnAddSource"
       Me.btnAddSource.Size = New System.Drawing.Size(161, 24)
       Me.btnAddSource.TabIndex = 6
       Me.btnAddSource.Text = "Add Item"
       "
       "btnRemoveSource
       "
       Me.btnRemoveSource.Location = New System.Drawing.Point(22, 268)
       Me.btnRemoveSource.Name = "btnRemoveSource"
       Me.btnRemoveSource.Size = New System.Drawing.Size(161, 24)
       Me.btnRemoveSource.TabIndex = 7
       Me.btnRemoveSource.Text = "Remove Item"
       "
       "btnClearSource
       "
       Me.btnClearSource.Location = New System.Drawing.Point(22, 299)
       Me.btnClearSource.Name = "btnClearSource"
       Me.btnClearSource.Size = New System.Drawing.Size(161, 24)
       Me.btnClearSource.TabIndex = 8
       Me.btnClearSource.Text = "Clear Items"
       "
       "btnAddDestination
       "
       Me.btnAddDestination.Location = New System.Drawing.Point(254, 237)
       Me.btnAddDestination.Name = "btnAddDestination"
       Me.btnAddDestination.Size = New System.Drawing.Size(161, 24)
       Me.btnAddDestination.TabIndex = 9
       Me.btnAddDestination.Text = "Add Item"
       "
       "btnRemoveDestination
       "
       Me.btnRemoveDestination.Location = New System.Drawing.Point(254, 268)
       Me.btnRemoveDestination.Name = "btnRemoveDestination"
       Me.btnRemoveDestination.Size = New System.Drawing.Size(161, 24)
       Me.btnRemoveDestination.TabIndex = 10
       Me.btnRemoveDestination.Text = "Remove Item(s)"
       "
       "btnClearDestination
       "
       Me.btnClearDestination.Location = New System.Drawing.Point(254, 299)
       Me.btnClearDestination.Name = "btnClearDestination"
       Me.btnClearDestination.Size = New System.Drawing.Size(161, 24)
       Me.btnClearDestination.TabIndex = 11
       Me.btnClearDestination.Text = "Clear Items"
       "
       "Label1
       "
       Me.Label1.AutoSize = True
       Me.Label1.Location = New System.Drawing.Point(20, 6)
       Me.Label1.Name = "Label1"
       Me.Label1.Size = New System.Drawing.Size(74, 14)
       Me.Label1.TabIndex = 12
       Me.Label1.Text = "Unsorted List:"
       "
       "Label2
       "
       Me.Label2.AutoSize = True
       Me.Label2.Location = New System.Drawing.Point(254, 6)
       Me.Label2.Name = "Label2"
       Me.Label2.Size = New System.Drawing.Size(61, 14)
       Me.Label2.TabIndex = 13
       Me.Label2.Text = "Sorted List:"
       "
       "Form1
       "
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(438, 340)
       Me.Controls.Add(Me.Label2)
       Me.Controls.Add(Me.Label1)
       Me.Controls.Add(Me.btnClearDestination)
       Me.Controls.Add(Me.btnRemoveDestination)
       Me.Controls.Add(Me.btnAddDestination)
       Me.Controls.Add(Me.btnClearSource)
       Me.Controls.Add(Me.btnRemoveSource)
       Me.Controls.Add(Me.btnAddSource)
       Me.Controls.Add(Me.btnMoveAllSource)
       Me.Controls.Add(Me.btnMoveSource)
       Me.Controls.Add(Me.btnMoveDestination)
       Me.Controls.Add(Me.btnMoveAllDestination)
       Me.Controls.Add(Me.lstDestination)
       Me.Controls.Add(Me.lstSource)
       Me.Name = "Form1"
       Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
       Me.Text = "ListDemo"
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents lstSource As System.Windows.Forms.ListBox
   Friend WithEvents lstDestination As System.Windows.Forms.ListBox
   Friend WithEvents btnMoveAllDestination As System.Windows.Forms.Button
   Friend WithEvents btnMoveDestination As System.Windows.Forms.Button
   Friend WithEvents btnMoveSource As System.Windows.Forms.Button
   Friend WithEvents btnMoveAllSource As System.Windows.Forms.Button
   Friend WithEvents btnAddSource As System.Windows.Forms.Button
   Friend WithEvents btnRemoveSource As System.Windows.Forms.Button
   Friend WithEvents btnClearSource As System.Windows.Forms.Button
   Friend WithEvents btnAddDestination As System.Windows.Forms.Button
   Friend WithEvents btnRemoveDestination As System.Windows.Forms.Button
   Friend WithEvents btnClearDestination As System.Windows.Forms.Button
   Friend WithEvents Label1 As System.Windows.Forms.Label
   Friend WithEvents Label2 As System.Windows.Forms.Label

End Class</source>