crazyhsp
发贴: 7
积分: 0
|
于 2008-09-18 20:59
最近老师叫我们做一个任务管理器,我界面用VB2008画好了,在 listview中的进程也填充进去了,但是单击鼠标右键出现的小菜单不能固定在我点击的选项上,而是到处点击都会出现,这虽然是VB做的,我找了很多论坛资料都没有找到能解决问题的,所以我就在这里问问大家了。我把事件代码拷贝一下,看一下哪里有错误。 Private Sub ListView2_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView2.MouseClick ' For Each myitem As ListViewItem In Me.ListView2.SelectedItems 'Dim str As String = myitem.Text() ' Exit For ' Next ' Dim w As Integer = ColumnHeader3.Width ' Dim point1 As Point = MousePosition
ListView2.ContextMenuStrip = ContextMenuStrip1 If (e.Button = Windows.Forms.MouseButtons.Right And Me.ListView2.SelectedItems.Count = 1) Then
' If (w - point1.X > 0) Then ' If (count > 0) Then
ContextMenuStrip1.Show(MousePosition) 'End If 'End If
End If End Sub
|