Vb.net 将剪贴板与MenuTreeToolStripItem一起使用
下面是关于在菜单条项上按鼠标右键复制菜单项的代码。我还复制了不带格式的设置文本。我的问题是。它不是拍卖/复制到剪贴板,我不确定为什么Vb.net 将剪贴板与MenuTreeToolStripItem一起使用,vb.net,Vb.net,下面是关于在菜单条项上按鼠标右键复制菜单项的代码。我还复制了不带格式的设置文本。我的问题是。它不是拍卖/复制到剪贴板,我不确定为什么 Private Sub MenuTreeToolStripMenuItem_MouseDown(sender As Object, e As MouseEventArgs) Handles MenuTreeToolStripMenuItem.MouseDown Select Case MouseButtons Case M
Private Sub MenuTreeToolStripMenuItem_MouseDown(sender As Object, e As MouseEventArgs) Handles MenuTreeToolStripMenuItem.MouseDown
Select Case MouseButtons
Case MouseButtons.Left
'Left click
Case MouseButtons.Right
'Right click
My.Computer.Clipboard.SetText("This is a test string.", System.Windows.Forms.TextDataFormat.Rtf)
End Select
End Sub
'下面是alt版本
Private Sub MenuTreeToolStripMenuItem_MouseDown(sender As Object, e As MouseEventArgs) Handles MenuTreeToolStripMenuItem.MouseDown
Select Case MouseButtons
Case MouseButtons.Left
'Left click
Case MouseButtons.Right
'Right click
My.Computer.Clipboard.SetText("This is a test string")
End Select
End Sub
修订守则
Private Sub MenuTreeToolStripMenuItem_MouseDown(sender As Object, e As MouseEventArgs) Handles MenuTreeToolStripMenuItem.MouseDown
Select Case e.Button
Case e.Button.Left
'Left click
Case e.Button.Right
'Right click
My.Computer.Clipboard.SetText("This is a test string.")
End Select
End Sub
下面的代码非常适合我
Private Sub MenuTreeToolStripMenuItem_MouseDown(sender As Object, e As MouseEventArgs) Handles MenuTreeToolStripMenuItem.MouseDown
Select Case e.Button
Case Windows.Forms.MouseButtons.Left
'Left click
Case Windows.Forms.MouseButtons.Right
'Right click
My.Computer.Clipboard.SetText("This is a test string.")
End Select
End Sub
System.Windows.Forms.TextDataFormat.Rtf据我所知,将文本设置到剪贴板不需要该参数,为什么要设置它?我一直在尝试其他建议,但我认为后者会更健壮,但我无法将剪贴板捕获不,你不需要它。你试过在那里设置断点吗?如果我添加一个断点,我会得到一条红线;无论是在这种情况下,还是如果我将其标注为if-then-end,如果我在上面显示了我的修订版,但没有对剪贴板进行任何更改,我是否应该在事件之外声明它?这就是我出错的地方,我没有声明窗口。表单最初只是经过测试,它在我这边工作,我感谢那里的反馈。