组合框右键单击文件删除(vb.net)
我试图使用右键单击事件从组合框中删除一个项目,但我可以通过seam获取该项目的代码 我所拥有的是:组合框右键单击文件删除(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
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”找不到?哦,抱歉!忘记右键点击了!我编辑了我的代码,所以试试那个方法。