剪贴板的使用方法示例

剪贴板的使用方法示例--			下一节

　　剪贴板是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帮助。

nxhujiee

发布了14 篇原创文章 · 获赞 7 · 访问量 7万+

私信关注

剪贴板的使用方法示例

猜你喜欢