[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^3: ListBoxの高度な使い方 投稿日 ： 2006/05/17(Wed) 10:18 投稿者 ： なおこ(・∀・) 参照先 ： http://naoko.wankuma.com/
| お世話になります。 > ListBox1にAddされているストリングを選択すれば、そのままListBox2にaddされるのですが、さら に > ListBox1のあるのもを選ぶとListBox2にAddされていきます。ただそのときにすでにListBox2にな らん で > いるものが重複しないようにしたいのと、再度、ListBox1で選択するとListBox2から消える感じの イ メ > ージです。ListBox1の項目は消えたりはしません。保持されたままなんですが。 そうですか。 じゃ、こんな感じかな？（前のレスも今回もレスも別段高度な事は何もやっていませんが） Public Class Form2 Inherits System.Windows.Forms.Form #Region " Windows フォーム デザイナで生成されたコード " #End Region Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.ListBox1.Items.Clear() Me.ListBox1.Items.Add("aaa") Me.ListBox1.Items.Add("bbb") Me.ListBox1.Items.Add("ccc") Me.ListBox1.Items.Add("ddd") End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged If Me.ListBox1.SelectedIndex < 0 Then Return Dim selectedKey As String = DirectCast(Me.ListBox1.Items(Me.ListBox1.SelectedIndex), String) Dim isContains As Boolean = Me.ListBox2.Items.Contains(selectedKey) If isContains Then 'ListBox2 に既に含まれている時 Me.ListBox2.Items.Remove(selectedKey) Else 'ListBox2 に含まれていない時 Me.ListBox2.Items.Add(selectedKey) End If End Sub End Class |
をクリックするとツリー全体を一括表示します） - ListBoxの高度な使い方 - ハイタワー 05/15-12:27No.3682