剪貼板的使用方法示例

剪貼板的使用方法示例--			下一節

　　剪貼板是WINDOWS操作系統提供的十分有用的工具，用它可以進行文本和圖形複製和粘貼操作，在VB中我們使用Clipboard 對象來操作剪貼板上的文本和圖形。本例只是演示了對文本類型的數據進行操作，從中可以看到GetText、SetText、Clear三個方法的使用。

　　爲了學習方便，提供的源碼已經作了詳細的中文註釋，看看源碼框中的代碼：

'--------------------------------------------
'          剪貼板的使用方法示例
'--------------------------------------------
'          洪恩在線  求知無限
'--------------------------------------------
'本例演示了剪貼板的使用方法，GetText 、SetText
'Clear 方法是剪貼板的幾個方法，我們用它來複制
'文本，對於圖象以及其它格式的數據的操作，請參考
'VB幫助文件。
'--------------------------------------------
Dim  DataString As String

Private  Sub  Command1_Click ()
    On  Error  Resume  Next
    If  Text1.Text  = ""  Then
        Msg = "第一個文本框內不能爲空"
        Exit  Sub
    Else
        Clipboard.Clear
        'SetText方法，用於複製文本到剪貼板上
        '使用語法：object.SetText data, [format]
        'data    必需的。是被放置到剪貼板中的字符串數據。
        'Format  可選的。一個常數或數值，按照下列設置中的描述，指定 Visual Basic 識別的剪貼板格式。
        'vbCFLink    &HBF00     DDE 對話信息
        'vbCFRTF     &HBF01     RTF 格式
        'vbCFText    1          (缺省值)文本
        Clipboard.SetText (Text1.Text )
    End  If
End  Sub

Private  Sub  Command2_Click ()
'GetText方法，用來取得剪貼板上的文本內容
'使用語法爲：Clipboard.GetText([數據的類型])
    temp = Clipboard.GetText(vbCFText)
    Text2.Text  = temp
End  Sub

Private  Sub  Command3_Click ()
'Clear方法，用於清空剪貼板上的數據
'使用語法：Clipboard.Clear
    Clipboard.Clear
End  Sub

 

　　先來看看GetText、SetText、Clear三個方法的語法：

　　SetText 用於向剪貼板上寫入數據，使用語法如下：
　　object.SetText data, format
　　 '其中data是被放置到剪貼板中的字符串數據；
　　 'format是一個常數或數值，指定 Visual Basic 識別的剪貼板格式，有三種選擇vbCFLink(&HBF00),DDE 　　 '對話信息 ；vbCFRTF(&HBF01)RTF 格式； vbCFText(1)文本；如果不指定默認爲文本。

　　GetText 用於從剪貼板上讀入數據，使用語法如下：
　　　object.GetText (format)
　　　'其中format的用法同上
　　　'它的返回值就是剪貼板上的數據

　　Clear 用於清除剪貼板上的數據，使用語法如下：
　　　object.Clear
　　　'一般情況下如果我們要使用系統剪貼板，總是先清除剪貼板上的數據，然後再寫入

　　程序中當“複製”按鈕按下時，我們把文本框Text1中的內容寫入剪貼板，則在程序中加入如下語句：
　　　Clipboard.Clear
　　　Clipboard.SetText (Text1.Text)

　　程序中當“粘貼”按鈕按下時，把剪貼板中的內容寫入文本框Text2，則在程序中加入如下語句：
　　　temp = Clipboard.GetText(vbCFText)
　　　Text2.Text = temp

　　這樣就完成了一個簡單的文本複製、粘貼過程，利用剪貼板還能進行各種數據格式的操作，具體的方法我們可以參照VB幫助。