剪贴板实例学习笔记.02

上一篇乐博网学习笔记中，我们看到的是剪贴板中读出与写入文本内容，那剪贴板是否能保存图片还是声音流?这个当然是没问题的，接下来我们将演示剪贴板保存图片的实例，大家可以学习到SetImage、ContainsImage、 GetImage 这3个关于剪贴板读取和保存图片信息的方法。

 

'以下实例实现了剪贴板中图片的交换

Public Function SwapClipboardImage(ByVal replacementImage As System.Drawing.Image) _

As System.Drawing.Image

    Dim returnImage As System.Drawing.Image = Nothing

    If Clipboard.ContainsImage() Then '判断剪贴板中是否包含图片信息
        returnImage = Clipboard.GetImage() '获取剪贴板中的图片保存为returnImage并作为返回值
        Clipboard.SetImage(replacementImage) '把新的图片代替剪贴板中的图片
    End If

    Return returnImage
End Function

'以下实例实现了剪贴板中声音流的交换

Public Function SwapClipboardAudio( _
    ByVal replacementAudioStream As System.IO.Stream) _
    As System.IO.Stream

    Dim returnAudioStream As System.IO.Stream = Nothing

    If (Clipboard.ContainsAudio()) Then
        returnAudioStream = Clipboard.GetAudioStream()
        Clipboard.SetAudio(replacementAudioStream)
    End If

    Return returnAudioStream

End Function