VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 クリップボード関係のメニュー
1.テキストデータをクリップボードにコピー及び取得・他
2.クリップボードへグラフィックをコピー及び取得・ファイルに保存
3.My.Computer.Clipboard オブジェクトを使ってのクリップボードの操作
4.
5.
6.
7.
8.
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のクリップボードに関するサンプルの紹介 


1.テキストデータをクリップボードにコピー及び取得・他(13_Clp_01) (旧、SampleNo.071)
1.文字列をクリップボードにコピーする
2.現在システムクリップボードにあるテキストデータを取得する
3.クリップボードに保存されているすべての形式のリストを取得
4.クリップボード内のデータを消去する
5.
6.

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
その他 :使用コントロール:Button1 〜 Button4
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.文字列をクリップボードにコピーする

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'1.文字列をクリップボードにコピーする
    Dim strText As String
    strText = "abcあいう123かきく"
    'Clipboard.SetDataObject メソッド
    'データをシステムクリップボードに貼り付けます
    System.Windows.Forms.Clipboard.SetDataObject(strText, True)
End Sub

このページのトップへ移動します。 2.現在システムクリップボードにあるテキストデータを取得する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'2.現在システムクリップボードにあるテキストデータを取得する
    Dim iData As IDataObject = Clipboard.GetDataObject()
    Dim myText As String
    'クリップボードにテキストデータがあれば
    If iData.GetDataPresent(DataFormats.Text) Then
        myText = CType(iData.GetData(DataFormats.Text), String)
        Debug.WriteLine(myText)   '結果 abcあいう123かきく
    End If
End Sub

このページのトップへ移動します。 3.クリップボードに保存されているすべての形式のリストを取得

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'3.クリップボードに保存されているすべての形式のリストを取得
    Dim iData As IDataObject = Clipboard.GetDataObject()
    Dim formatType As String
    For Each formatType In iData.GetFormats()
        'フォーマットのタイプを表示
        Debug.WriteLine(formatType)
    Next
    '結果 
        'System.String
        'UnicodeText
        'Text
        'Rich Text Format
End Sub

このページのトップへ移動します。 4.クリップボード内のデータを消去する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
'4.クリップボード内のデータを消去する
    Clipboard.SetDataObject(New DataObject)
End Sub

このページのトップへ移動します。 5. 



このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
クリップボードにコピー クリップボード




このページのトップへ移動します。