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