VB.Net Tutorial/GUI Applications/Dual List — различия между версиями
Admin (обсуждение | вклад) м (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>