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

■No60853 (やんまー さん) に返信

> 問題なのは、画像のリストボックスの時に
> 一番下のインデックスを選択しているのか、その下の何も無いところを選択しているのか
> の判定ができないことです。
> 
> 
> 要素 INDEX0
> ----
> 要素 INDEX1
> ---�@
> 要素 INDEX2
> ---
> �A

失礼しました。下の空白部でも最後のアイテムのインデックスと同じということですね。勝手に＋１なのかと
思ってましたｍｍ

    Private Sub ListBox1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
        Dim idx = ListBox1.IndexFromPoint(e.Location)
        Dim rect = ListBox1.GetItemRectangle(idx)
        If rect.Contains(e.Location) Then
            Label1.Text = idx.ToString
        Else
            Label1.Text = "Not Contains"
        End If
    End Sub

こんな感じでそのインデックスでアイテムのレクタングルを取り直してそこに含まれているか確認すると
良いかと思います。

2011/07/21(Thu) 14:45:01 編集(投稿者)

shu さん

ああああ！いつもすみません！

出来ました！



こうして見ました。

part1が追加する要素です。



Dim Index As Integer= ListBox1.IndexFromPoint(ListBox1.PointToClient(MousePosition))
If Index = 65535 Then
	ListBox1.Items.Add(part1)
Else if ListBox1.GetItemRectangle(ListBox1.IndexFromPoint _
		(ListBox1.PointToClient(MousePosition) ) ) _
		.Contains _
		(ListBox1.PointToClient(MousePosition) ) Then

		ListBox1.Items.Insert(Index,part1)
Else
	ListBox1.Items.Add(part1)
End If

ありがとうございます！