2023年VB60基础教程使用剪贴板交换文本.pdf

《2023年VB60基础教程使用剪贴板交换文本.pdf》由会员分享，可在线阅读，更多相关《2023年VB60基础教程使用剪贴板交换文本.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB6.0 基础教程使用剪贴板交换文本 VB6.0 基础教程使用剪贴板交换文本 编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（VB6.0 基础教程使用剪贴板交换文本）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为 VB6.0 基础教程使用剪贴板交换文本的全部内容。VB6.0 基础教程使用剪贴板交换文本 VB6。0 基础教

2、程使用剪贴板交换文本 大多数 Windows应用程序都有”复制”和”粘贴”命令，用户使用这些命令,就可以通过剪贴板来交换信息了口在 VB中，可以使用 Clipboard对象来操作剪贴板.Clipboard对象没有任何属性与事件，但使用它的方法可以实现对剪贴板的操作。Clipboard对象的方法可分为三类；GetText 和 SetText方法，用来传送文本;GetI3ata和 SetData 方法，用来传送图形；GetFormat 和 Clear 方法，可以处理文本和图形两种格式。本节只讲述使用剪贴板交换文本。SetText方法是将文本复制到剪贴板上,替换先前存储在那里的文本。可将 SetIe

3、xt作为一条语句使用。其语法如下：Clipboard。SetText数据 格式 GetText方法是返回存储在剪贴板上的文本。也可将它作为函数使用，其语法如下：目标=Clipboard_GetText（）Clear 方法是清除剪贴板中的内容.需要注意的是：在使用 SetText方法将文本复制到剪贴板时，都要先用 Clear 方法将剪贴板清空.因为如果在剪贴板中存放着不同格式的数据，则剪贴板不会自动清空。实例 5.9 使用剪贴板交换文本.在该程序中，用户可以通过剪切板来交换两个文本框中的文本。在窗体中放置两个文本框控件和三个按钮控件，如图 5.31 所示，其中各对象的属性设置如表 5。17 所示

4、。方但是任然希望基础教程使用剪贴板交换文本的内容能够给您的工作和学习带来便利同时也真诚的希望收到您的建议活愉快业绩进步以下为基础教程使用剪贴板交换文本的全部内容基础教程使用剪贴板交换文本基础教程使用剪贴板交象来操作剪贴板对象没有任何属性与事件但使用它的方法可以实现对剪贴板的操作对象的方法可分为三类和方法用来VB6.0 基础教程使用剪贴板交换文本 双击【复制】按钮,打开【代码】窗口，将以下代码添加到 ComCopy_Click 事件过程中：Private sub ComCopy_Click(）If TexS。SelLength0 Then Clipboard。Clear Clipboard。Se

5、tText TexS。SelText End If End Sub 在该段代码中，使用了一个 If 语句来判断用户是否在文本框 1 中选中了文本,如果没有选中，则不执行任何操作,如果选中了文本。则首先将剪贴板中内容清除,然后将用户所选的文本传送到剪贴板中.【剪切】与【复制】的区别是,【剪切】不仅将用户所选的文本传送到剪贴板中，并且将所选文本删除.因此，只需在【复制】按钮的 Click 事件过程中添加一行删除所选文本的代码，即可得到【剪切】按钮的 Click 事件过程，ComCopy_C ick 事件过程如下：Private Sub ComCut_Click(）If TexS.SelLength

6、0 Then C1ipboard。Clear Clipboard.SetText TexS。SelText TexS。SelText=“”方但是任然希望基础教程使用剪贴板交换文本的内容能够给您的工作和学习带来便利同时也真诚的希望收到您的建议活愉快业绩进步以下为基础教程使用剪贴板交换文本的全部内容基础教程使用剪贴板交换文本基础教程使用剪贴板交象来操作剪贴板对象没有任何属性与事件但使用它的方法可以实现对剪贴板的操作对象的方法可分为三类和方法用来VB6.0 基础教程使用剪贴板交换文本 End If End Sub【粘贴】按钮的 Click 事件过程如下:Private Sub ComPaste_Cl

7、ick（)TexD_SelText=Clipboard.GetText)End Sub GetText方法将返回剪贴板上当前的文本字符串，然后用一条赋值语句将该字符串复制到文本框 2 的指定位置(TexD。SelText）。如果当前没有被选定的文本,则将该文本粘贴在文本框中插入点处。运行该程序，在文本框1中输入一段文本,然后使用鼠标在文本框中拖动选中一段文本，单击【复制】按钮,再单击【粘贴】按钮。则用户所选文本就粘贴到文本框 2 中了，如图 5。32所示.再在文本框 1 中选中一段文本，单击【剪切】按钮，则所选文本被删除。将插入点置于文本框 2 中的某位置，单击【粘贴】按钮,则所选文本就粘贴到插入点处,如图 5.33 所示.方但是任然希望基础教程使用剪贴板交换文本的内容能够给您的工作和学习带来便利同时也真诚的希望收到您的建议活愉快业绩进步以下为基础教程使用剪贴板交换文本的全部内容基础教程使用剪贴板交换文本基础教程使用剪贴板交象来操作剪贴板对象没有任何属性与事件但使用它的方法可以实现对剪贴板的操作对象的方法可分为三类和方法用来