C# と VB.NET の質問掲示板

■No59986 (チョリソ さん) に返信
> エクスプローラーの場合、ファイルをCtrlキー等で複数選択した状態で、選択されているファイルの場所で
> マウスダウンを行っても複数選択状態は解除されません（マウスアップすると解除される）。
選択されたアイテムのドラッグ開始動作となる可能性があるためです。
解除されてしまったら、ドラッグできませんよね。


> このエクスプローラーと同じ動作、つまり、マウスダウンの状態ではアイテムの複数選択状態が解除されない方法は
> ないでしょうか？
ListBox の代わりに ListView を使ってみるとか。エクスプローラーと同様に。

Public Class Form1
    Private WithEvents ListBox1 As New ListBox()
    Private WithEvents ListView1 As New ListView()
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        ListBox1.SetBounds(0, 0, 150, 200)
        ListView1.SetBounds(180, 0, 150, 200)
        ListBox1.SelectionMode = SelectionMode.MultiExtended

        ListView1.MultiSelect = True
        ListView1.View = View.Details
       'ListView1.Columns.Add("").Width = ListView1.ClientSize.Width - SystemInformation.VerticalScrollBarWidth
        ListView1.Columns.Add("").Width = ListView1.ClientSize.Width
        ListView1.HeaderStyle = ColumnHeaderStyle.None
        ListView1.HideSelection = False
        ListView1.FullRowSelect = True

        ListBox1.Items.Add("ああああ")
        ListBox1.Items.Add("いいいい")
        ListBox1.Items.Add("うううう")
        ListBox1.Items.Add("ええええ")
        ListBox1.Items.Add("おおおお")

        ListView1.Items.Add("ああああ")
        ListView1.Items.Add("いいいい")
        ListView1.Items.Add("うううう")
        ListView1.Items.Add("ええええ")
        ListView1.Items.Add("おおおお")

        Controls.Add(ListBox1)
        Controls.Add(ListView1)

        Size = New Size(350, 250)
    End Sub
End Class