Question

vb.net中listbox单击事件的问题

如何将一个listbox1中的内容，单击左键将选中项加载到listbox2中，单击右键将选中项加载到listbox3中，求代码

Answer 1

Private Sub ListBox1MouseDown(sender As Object, e As MouseEventArgs) _
    Handles ListBox1.MouseDown
    If e.Button = MouseButtons.Right Then
        Dim h As Integer = ListBox1.ItemHeight
        Dim rect As New Rectangle(0, 0, ListBox1.ClientSize.Width, h)
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If rect.Contains(e.Location) Then
                ListBox1.SelectedIndex = i + ListBox1.TopIndex
                ListBox3.Items.Add(ListBox1.SelectedItem)
                Exit For
            Else
                rect.Y += h
            End If
        Next
    ElseIf e.Button = MouseButtons.Left Then
        ListBox2.Items.Add(ListBox1.SelectedItem)
    End If
End Sub

要实现右键发送内容，首先要计算右键时鼠标的坐标在哪一行上面，实现右键选中，然后才能获取正确的行内容。

追问

首先谢谢您的程序让我实现了右键选中，但是不知道为何，选中之后再listbox2和listbox3中添加的不是所选中的内容，显示的是system.data.datarowview,选中几个显示的都是这个，不知道是为什么。求指教

追答

添加的内容不是所选内容，你在

ListBox3.Items.Add(ListBox1.SelectedItem)
ListBox2.Items.Add(ListBox1.SelectedItem)

这两行上分别下一个断点，在VS上试运行程序，左键和右键操作一下，在上面两行代码的伤程序会断下来，检查一下SelectedItem的值是什么。

 

不过我猜测，你的ListBox1应该是绑定了数据库，那么代码要稍作修改；

ListBox3.Items.Add(CType(ListBox1.SelectedItem, String))
ListBox2.Items.Add(CType(ListBox1.SelectedItem, String))

追问

我按照您说的设置断点之后发现选中的内容显示的就是system.data.datarowview，为何与我用数据库加载进去的内容不一样呢。试了您的猜测，却出现错误，说是datarowview到string的转换无效。不知道是为什么。求指教。感谢您的帮助，问题解决后会追加金币数量的，谢啦。

追答

Dim dat As DataRowView = CType(ListBox1.SelectedItem, DataRowView)
ListBox3.Items.Add(CType(dat.Item(0), String))

Dim dat As DataRowView = CType(ListBox1.SelectedItem, DataRowView)
ListBox2.Items.Add(CType(dat.Item(0), String))

把那两行换成这个，应该就搞定了。

Answer 2

代码如下：
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
List2.AddItem List1.Text
ElseIf Button = 4 Then
List3.AddItem List1.Text
End If
End Sub

Answer 3

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 10
ListBox1.Items.Add(i)
Next
End Sub

Private Sub ListBox1_Mousedown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
If (e.Button = Windows.Forms.MouseButtons.Left) Then
ListBox2.Items.Add(ListBox1.SelectedItem)
ElseIf (e.Button = Windows.Forms.MouseButtons.Right) Then
ListBox3.Items.Add(ListBox1.SelectedItem)
End If
End Sub

End Class
但是交互存在不合理之处，左击时选中同时加载到listbox2中无法避免．除非Mounsedown事件在另一个控件上发生．

追问

调试您给的程序出现了两个问题：一是未实现左击时添加到listbox3光标未移动，二是在单击添加时，在listbox2和listbox3中只是添加上‘system.data.datarowview’这行内容，选中的内容并未添加上，想请教一下是为何

追答

你传程序附件帮你看看，我不知道运行结果会如你所述，好像说的不是一回事．

追问

我没发现知道能发送附件呀，我跟您截个图吧

相应知识点就是listbox1，下面那两个就是listbox2和3这就是操作之后的结果。程序就是您给的，只是改了一下编号。我私信您具体的吧