Question

vb 给MSFlexGrid1添加右键复制

vb 给MSFlexGrid1添加右键复制
鼠标选择MSFlexGrid里的一些数据，然后点击右键，弹出菜单，只要一个能复制的就行，然后我可以把它粘贴到其他txt文件，就像现在您用鼠标左键在网页上选择一些文字，然后点击右键，弹出像什么“撤销”，剪切，复制之类的，我只要一个复制就可以，怎么设置

Answer 1

添加个菜单，第一层：File，File的下一层：Copy
添加一个MSHFlexGrid的名字这里面是MSHFlexGrid1，可以换成你自己的名字
代码如下：
'窗体加载的代码
Private Sub Form_Load()
File.Visible = False
End Sub

'点击鼠标的代码
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i, j As Integer
Dim str As String
Me.PopupMenu File
x = MSHFlexGrid1.RowSel
y = MSHFlexGrid1.ColSel
str = Me.MSHFlexGrid1.Text
Clipboard.SetText str
End Sub