vb ClipBoard 剪切板应用（复制剪切粘贴）

最新推荐文章于 2025-02-21 14:39:32 发布

miaozk2006

最新推荐文章于 2025-02-21 14:39:32 发布

阅读量3.6k

点赞数 1

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416827

版权

这篇博客介绍了如何在VB中使用ClipBoard进行文本的复制、剪切和粘贴操作。通过点击Command1实现复制，Command2实现剪切，Command3实现粘贴。在粘贴时考虑了文本框是否有选中内容的情况，确保正确地将剪切板内容插入到合适位置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码如下：（谨以参考）

Private Sub Command1_Click()
    '复制
    If Text1.SelText <> "" Then Clipboard.SetText Text1.SelText
    '理解：如果Text1文本框选定的文字不是空则把剪切板的内容设置为Text1选中的文字

End Sub
Private Sub Command2_Click()
    '剪切
    If Text1.SelText <> "" Then Clipboard.SetText Text1.SelText: Text1.SelText = ""
    '理解：如果Text1文本框选定的文字不是空则把剪切板的内容设置为Text1选中的文字：并用空字符代替文本框选中的文字

End Sub

Private Sub Command3_Click()
    '粘贴
    If Clipboard.GetText <> "" Then
        If Text1.SelText <> "" Then
            Text1.SelText = Clipboard.GetText
            '如果剪切板的文字内容不为空则把文本框选中的内容用它来代替（把剪切板文字内容粘贴到光标处）
        Else
            '文本框没有选中文字，粘贴时直接把剪切板文字内容粘贴到文本框当前的输入光标处

            'Text1.SelStart就是输入光标的位置，下句代码的原理就是把光标前的文字取出，然后加上要粘贴入的文字，再然后加上光标后面的文字。
            Text1.Text = Mid$(Text1.Text, 1, Text1.SelStart) & Clipboard.GetText & Mid$(Text1.Text, Text1.SelStart + 1, Len(Text1.Text) - 1)
        End If
    End If
End Sub

★VB部分相关文章推荐：★

※vb中line的用法[转]

※画图工具的VB实现

※VB 一个获得自己外网 IP 地址的程序代码

※VB程序中实现IP地址子网掩码网关DNS的更改 [转]

※在 VB 中应用 FSO 对象模型介绍（摘自网络）