visual basic 2010复制粘贴子程序

时间:2012-12-03 18:21:08

标签: visual-studio-2010

我试图在VB 2010中编写2个简单的子程序,这些子程序可以与一个表单中的多个文本框的toolstripbutton contorls一起使用。我知道可以使用textbox1.Copy()和TextBox1.Paste()方法完成简单的复制粘贴。我想要做的是编写一个公共子程序,可以在任何文本框中使用,而不仅仅是一个特定的文本框。 我的代码在下面,我知道它有错误,只是想知道它是如何实现的。任何帮助将受到高度赞赏。感谢。

Public Class Form1
 Private Sub copytext()
    Dim txt As Control
    If TypeOf txt Is TextBox Then
        Clipboard.Clear()
        Clipboard.SetText(txt.SelectedText)
    End If
End Sub
Private Sub pastetext()
    Dim txt As Control
    If TypeOf txt Is TextBox Then
        txt.Text = Clipboard.GetText
    End If

End Sub

Private Sub mnuCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCopy.Click
    Call copytext()
End Sub

Private Sub mnuPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPaste.Click
    Call pastetext()
End Sub
End Class

0 个答案:

没有答案