1

我正在尝试在 VB 2010 中编写 2 个简单的子例程，这些子例程可以与工具条按钮控件一起用于表单中的多个文本框。我知道可以使用 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
4

0 回答 0