.NET開発者のためのブログメディア
VB.netでクリップボードを操作する方法とは？
2020年08月28日
- SE
- クリップボードの操作方法にはどんな種類がありますか？
- PM
- 'いくつかのプログラム言語で紹介されていますが、ここではVB.netでのデータ取得方法をみていきましょう。
目次
VB.netでのクリップボードについて
今回は、VB.netでのクリップボードについて説明します。文字列や画像データ、およびファイルなどをクリップボードにコピーすることができ、クリップボードのデータを取得できます。
VB.netでのクリップボードに興味のある方はぜひご覧ください。
クリップボードに文字列のコピー
VB.netでは、クリップボードに文字列のコピーができます。
実際のソースコードを見てみましょう。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Public Class Form1 Dim button1 As Button Sub New() InitializeComponent() AddHandler Me.Load, AddressOf Form1_Load End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) button1 = New Button() button1.Text = ""クリップボードに文字列のコピー"" button1.AutoSize = True button1.Location = New Point(10, 10) AddHandler Me.button1.Click, AddressOf Button1_Click Me.Controls.Add(button1) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Clipboard.SetText(""クリップボードに文字列のコピー"") End Sub End Class |
実行後、ボタンをクリックすると、””クリップボードに文字列のコピー””という文字列がクリップボードにコピーされます。メモ帳などを開いてCtrl-Vで張り付けてみてください。
このように、VB.netではクリップボードに文字列のコピーができます。
クリップボードから文字列の取得
VB.netでは、クリップボードから文字列の取得ができます。
実際のソースコードを見てみましょう。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
Public Class Form1 Dim button1, button2 As Button Dim label As Label Sub New() InitializeComponent() AddHandler Me.Load, AddressOf Form1_Load End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) button1 = New Button() button1.Text = ""クリップボードに文字列のコピー"" button1.AutoSize = True button1.Location = New Point(10, 10) AddHandler Me.button1.Click, AddressOf Button1_Click Me.Controls.Add(button1) button2 = New Button() button2.Text = ""クリップボードから文字列の取得"" button2.AutoSize = True button2.Location = New Point(10, 40) AddHandler Me.button2.Click, AddressOf Button2_Click Me.Controls.Add(button2) label = New Label() label.Location = New Point(10, 70) label.AutoSize = True Me.Controls.Add(label) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Clipboard.SetText(""クリップボードに文字列のコピー"") End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) If Clipboard.ContainsText() Then label.Text = Clipboard.GetText() End If End Sub End Class |
“”クリップボードに文字列のコピー””ボタンをクリックするか、またはメモ帳などでCtrl-Cで文字列をコピーし、””クリップボードから文字列の取得””ボタンをクリックすると、Formにクリップボードの文字列が表示されます。
このように、VB.netではクリップボードから文字列の取得ができます。
クリップボードに画像のコピー
VB.netでは、クリップボードに画像のコピーができます。
実際のソースコードを見てみましょう。
事前に、「C:\test\test.bmp」を格納しておいてください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
Public Class Form1 Dim button1 As Button Sub New() InitializeComponent() AddHandler Me.Load, AddressOf Form1_Load End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) button1 = New Button() button1.Text = ""クリップボードに画像のコピー"" button1.AutoSize = True button1.Location = New Point(10, 10) AddHandler Me.button1.Click, AddressOf Button1_Click Me.Controls.Add(button1) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) ' ファイルから画像を取得 Dim bitmap As New Bitmap(""C:\test\test.bmp"") ' クリップボードに画像のコピー Clipboard.SetImage(bitmap) End Sub End Class |
実行後、ボタンをクリックすると、「C:\test\test.bmp」の画像データがクリップボードにコピーされます。ペイントソフトなどを開いてCtrl-Vで張り付けてみてください。
このように、VB.netではクリップボードに画像のコピーができます。
クリップボードから画像の取得
VB.netでは、クリップボードから画像の取得ができます。
実際のソースコードを見てみましょう。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
Public Class Form1 Dim button1, button2 As Button Dim pictureBox As PictureBox Sub New() InitializeComponent() AddHandler Me.Load, AddressOf Form1_Load End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) button1 = New Button() button1.Text = ""クリップボードに画像のコピー"" button1.AutoSize = True button1.Location = New Point(10, 10) AddHandler Me.button1.Click, AddressOf Button1_Click Me.Controls.Add(button1) button2 = New Button() button2.Text = ""クリップボードから画像の取得"" button2.AutoSize = True button2.Location = New Point(10, 40) AddHandler Me.button2.Click, AddressOf Button2_Click Me.Controls.Add(button2) pictureBox = New PictureBox() pictureBox.Location = New Point(10, 70) pictureBox.SizeMode = PictureBoxSizeMode.AutoSize Me.Controls.Add(pictureBox) Me.AutoScroll = True End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) ' ファイルから画像を取得 Dim bitmap As New Bitmap(""C:\test\test.bmp"") ' クリップボードに画像のコピー Clipboard.SetImage(bitmap) End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) ' クリップボードにBitmapデータがあるか If Clipboard.ContainsImage() Then ' クリップボードから画像の取得 Dim image As Image = Clipboard.GetImage() If image IsNot Nothing Then pictureBox.Image = image End If End If End Sub End Class |
“”クリップボードに画像のコピー””ボタンをクリックするか、またはPrint Screenなどで画像をコピーし、””クリップボードから画像の取得””ボタンをクリックすると、Formにクリップボードの画像が表示されます。
このように、VB.netでは、クリップボードから画像の取得ができます。
クリップボードにファイルのコピー
VB.netでは、クリップボードにファイルのコピーができます。
実際のソースコードを見てみましょう。
事前に、「C:\test\test.bmp」を準備しておいてください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
Public Class Form1 Dim button1 As Button Sub New() InitializeComponent() AddHandler Me.Load, AddressOf Form1_Load End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) button1 = New Button() button1.Text = ""クリップボードにファイルのコピー"" button1.AutoSize = True button1.Location = New Point(10, 10) AddHandler Me.button1.Click, AddressOf Button1_Click Me.Controls.Add(button1) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) ' ファイルを設定 Dim files As New Specialized.StringCollection() files.Add(""C:\test\test.bmp"") ' クリップボードにファイルをコピーする Clipboard.SetFileDropList(files) End Sub End Class |
実行後、ボタンをクリックすると、「C:\test\test.bmp」ファイルがクリップボードにコピーされます。
エクスプローラを開いて、任意の場所にCtrl-Vで張り付けてみてください。
このように、VB.netではクリップボードにファイルのコピーができます。
クリップボードからファイルの取得
VB.netでは、クリップボードからファイルの取得ができます。
実際のソースコードを見てみましょう。
事前に、「C:\test\test.bmp」および「C:\test2」フォルダを準備しておいてください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
Public Class Form1 Dim button1, button2 As Button Sub New() InitializeComponent() AddHandler Me.Load, AddressOf Form1_Load End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) button1 = New Button() button1.Text = ""クリップボードにファイルのコピー"" button1.AutoSize = True button1.Location = New Point(10, 10) AddHandler Me.button1.Click, AddressOf Button1_Click Me.Controls.Add(button1) button2 = New Button() button2.Text = ""クリップボードからファイルの取得"" button2.AutoSize = True button2.Location = New Point(10, 40) AddHandler Me.button2.Click, AddressOf Button2_Click Me.Controls.Add(button2) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) ' ファイルを設定 Dim files As New Specialized.StringCollection() files.Add(""C:\test\test.bmp"") ' クリップボードにファイルをコピーする Clipboard.SetFileDropList(files) End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) ' クリップボードにファイルドロップ形式のデータがあるか If Clipboard.ContainsFileDropList() Then ' データを取得 Dim files As Specialized.StringCollection = Clipboard.GetFileDropList() ' 取得したファイル名を列挙する Dim fileName As String For Each fileName In files Dim destName As String = IO.Path.GetFileName(fileName) Dim destPath As String = IO.Path.Combine(""C:\test2"", destName) ' ファイルを上書きコピー IO.File.Copy(fileName, destPath, True) Next fileName End If End Sub End Class |
“”クリップボードにファイルのコピー””ボタンをクリックするか、または任意のファイル（複数可）をCtrl-Cでコピーし、””クリップボードからファイルの取得””ボタンをクリックすると、””C:\test2″”にクリップボードのファイルが上書きコピーされます。
このように、VB.netでは、クリップボードからファイルの取得ができます。
- SE
- クリップボードへの文字列や画像の取得方法がよく分かりました。
- PM
- それはよかった。では実際にソースコードを書いてより理解を深めていってください。
VB.netでクリップボードを操作しよう
いかがでしたでしょうか。文字列や画像データ、およびファイルをクリップボードにコピーする方法と、クリップボードのデータ取得方法についても説明しました。
ぜひご自身でソースコードを書いて、理解を深めていきましょう。
