组合框右键单击文件删除(vb.net)

组合框右键单击文件删除(vb.net),vb.net,combobox,right-click,Vb.net,Combobox,Right Click,我试图使用右键单击事件从组合框中删除一个项目,但我可以通过seam获取该项目的代码 我所拥有的是: Private Sub combobox1_RightClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.RightClick Dim DELETEITEM as string= combobox1.text System.IO.File.Delete

我试图使用右键单击事件从组合框中删除一个项目,但我可以通过seam获取该项目的代码

我所拥有的是:

        Private Sub combobox1_RightClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.RightClick
Dim DELETEITEM as string= combobox1.text
        System.IO.File.Delete( "C:\" & DELETEITEM & ".txt" )
MsgBox("File Deleted")
    End Sub

如果您试图删除具有该名称的文件,请尝试以下操作:

   Private Sub combobox1_MouseDown(sender As Object, e As MouseEventArgs) Handles combobox1.MouseDown
       If e.Button = MouseButtons.Right Then
            Dim DELETEITEM as string= combobox1.text
            Kill("C:\" & DELETEITEM & ".txt")
            MsgBox("File Deleted")
        End if
    End Sub

我一直在寻找同一个问题的答案,但毫无结果。但是,我使用了以下变通方法。如果按住Ctrl键并单击鼠标左键,它将运行不同的过程,而不是使用右键单击事件。虽然不完美,但很有效

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            If My.Computer.Keyboard.CtrlKeyDown Then
              ' run function a using ComboBox1 selected item
            Else
              ' run function b using ComboBox1 selected item
            End If

        Catch
             add err handler
        End Try

    End Sub 

我收到一个错误,ststing错误1事件“RightClick”找不到?哦,抱歉!忘记右键点击了!我编辑了我的代码,所以试试那个方法。