SparrowTransrator - いぬもあるけばぼうもあるく

Imports System.Windows.Forms

Module Module1

    Sub Main()

        'クリップボードのオブジェクトを取り出し
        Dim data As IDataObject = My.Computer.Clipboard.GetDataObject()


        'テキストに変換できるなら
        If data.GetDataPresent(DataFormats.Text) Then

            'テキスト取得
            Dim txt As String = DirectCast(data.GetData(DataFormats.Text), String)

            'テキストがあるなら
            If Not txt Is Nothing Then

                'クリップボードをクリア
                My.Computer.Clipboard.Clear()


                'クリップボードに文字列を設定
                My.Computer.Clipboard.SetText(txt)

            End If

        End If

    End Sub

End Module