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

　　Private sub ComCopy_Click()

　　If TexS.SelLength>0 Then

　　Clipboard.Clear

　　Clipboard.SetText TexS.SelText

　　End If

　　End Sub

　　在该段代码中，使用了一个If语句来判断用户是否在文本框1中选中了文本，如果没有选中，则不执行任何操作，如果选中了文本。则首先将剪贴板中内容清除，然后将用户所选的文本传送到剪贴板中。

　　【剪切】与【复制】的区别是，【剪切】不仅将用户所选的文本传送到剪贴板中，并且将所选文本删除。因此，只需在【复制】按钮的Click事件过程中添加一行删除所选文本的代码，即可得到【剪切】按钮的Click事件过程，ComCopy_C}ick事件过程如下：

　　Private Sub ComCut_Click()

　　If TexS.SelLength>0 Then

　　C1ipboard.Clear

　　Clipboard.SetText TexS.SelText

　　TexS.SelText=“”

　　End If

　　End Sub

　　【粘贴】按钮的Click事件过程如下：

　　Private Sub ComPaste_Click()

　　TexD_SelText=Clipboard.GetText〔)

　　End Sub

　　GetText方法将返回剪贴板上当前的文本字符串，然后用一条赋值语句将该字符串复制到文本框2的指定位置(TexD.SelText).如果当前没有被选定的文本，则将该文本粘贴在文本框中插入点处。

　　运行该程序，在文本框1中输入一段文本，然后使用鼠标在文本框中拖动选中一段文本，单击【复制】按钮，再单击【粘贴】按钮。则用户所选文本就粘贴到文本框2中了，如图5.32所示。再在文本框1中选中一段文本，单击【剪切】按钮，则所选文本被删除。将插入点置于文本框2中的某位置，单击【粘贴】按钮，则所选文本就粘贴到插入点处，如图5.33所示。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB复习指导汇总

　　2011年上半年计算机等级考试报名时间汇总