2011年度计算机等级考试二级VB复习指导(34)

会计考友

　使用剪贴板交换文本　　大多数Windows应用程序都有"复制"和"粘贴"命令，用户使用这些命令，就可以通过剪贴板来交换信息了口在VB中，可以使用Clipboard对象来操作剪贴板。Clipboard对象没有任何属性与事件，但使用它的方法可以实现对剪贴板的操作。Clipboard对象的方法可分为三类;GetText和SetText方法，用来传送文本;GetI3ata和SetData方法，用来传送图形;GetFormat和Clear方法，可以处理文本和图形两种格式。本节只讲述使用剪贴板交换文本。
　　SetText方法是将文本复制到剪贴板上，替换先前存储在那里的文本。可将SetI'ext作为一条语句使用。其语法如下：
4 B; X4 N/ p; U( T+ D2 u( r! m　　Clipboard.SetText数据[格式]
- c. A8 A, f) j& V# i- l' K　　GetText方法是返回存储在剪贴板上的文本。也可将它作为函数使用，其语法如下：
; Q- W" I* i: w- V$ ?# M　　目标=Clipboard_GetText()Clear方法是清除剪贴板中的内容。需要注意的是：在使用SetText方法将文本复制到剪贴板时，都要先用Clear方法将剪贴板清空。因为如果在剪贴板中存放着不同格式的数据，则剪贴板不会自动清空。
) i3 r" P4 P% F+ w! O: t0 Q! w　　实例5.9使用剪贴板交换文本。
0 H9 v3 l( Y9 ^9 R) a" v7 ?3 Z+ E　　在该程序中，用户可以通过剪切板来交换两个文本框中的文本。
　　在窗体中放置两个文本框控件和三个按钮控件，如图5.31所示，其中各对象的属性设置如表5.17所示。

　　
  t3 {: G7 Y' \3 r6 F. j6 f
+ h3 W+ b( M+ W( N

6 ?+ ]4 b& w& L　　
# `) H; }, C0 S! b7 Y( U. ]　　双击【复制】按钮，打开【代码】窗口，将以下代码添加到ComCopy_Click事件过程中：

会计考友

Private sub ComCopy_Click()　　If TexS.SelLength>0 Then
　　Clipboard.Clear
　　Clipboard.SetText TexS.SelText
8 V5 G8 E% Q6 a% W% Z! O& ?( @　　End If
　　End Sub
　　在该段代码中，使用了一个If语句来判断用户是否在文本框1中选中了文本，如果没有选中，则不执行任何操作，如果选中了文本。则首先将剪贴板中内容清除，然后将用户所选的文本传送到剪贴板中。
' L: W+ H6 z0 p0 u2 ~　　【剪切】与【复制】的区别是，【剪切】不仅将用户所选的文本传送到剪贴板中，并且将所选文本删除。因此，只需在【复制】按钮的Click事件过程中添加一行删除所选文本的代码，即可得到【剪切】按钮的Click事件过程，ComCopy_C}ick事件过程如下：
( b4 c. n( D/ }4 N2 }6 U　　Private Sub ComCut_Click()
3 {9 _' W; |- J" ]　　If TexS.SelLength>0 Then
　　C1ipboard.Clear
  v5 ]/ t+ w" j, T0 i0 h　　Clipboard.SetText TexS.SelText
　　TexS.SelText=“”
" @1 B  m" B9 Y　　End If
　　End Sub
8 z3 C0 i6 E0 D! D　　【粘贴】按钮的Click事件过程如下：
. }4 Q$ I5 v$ W" }　　Private Sub ComPaste_Click()
　　TexD_SelText=Clipboard.GetText〔)
& G- z8 D" J4 |, [- A  u　　End Sub
' b5 P2 M# @+ t, h+ e# s3 T9 b　　GetText方法将返回剪贴板上当前的文本字符串，然后用一条赋值语句将该字符串复制到文本框2的指定位置(TexD.SelText).如果当前没有被选定的文本，则将该文本粘贴在文本框中插入点处。
　　运行该程序，在文本框1中输入一段文本，然后使用鼠标在文本框中拖动选中一段文本，单击【复制】按钮，再单击【粘贴】按钮。则用户所选文本就粘贴到文本框2中了，如图5.32所示。再在文本框1中选中一段文本，单击【剪切】按钮，则所选文本被删除。将插入点置于文本框2中的某位置，单击【粘贴】按钮，则所选文本就粘贴到插入点处，如图5.33所示。