请选择时期:
怀孕准备 怀孕 分娩 宝宝0-1岁 宝宝1-3岁 宝宝3-6岁

vb复制粘贴代码(vb粘贴代码怎么写)

来源: 最后更新:22-10-07 10:03:24

导读:复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当Text1没选中文字时,要使复制按钮Command1不可用Private Sub

复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当Text1没选中文字时,要使复制按钮Command1不可用

Private Sub Command1_Click()

Clipboard.SetText Text1.SelText

End Sub

Private Sub Command2_Click()

If Len(Clipboard.GetText) Then

Text1.SelText = Clipboard.GetText

End If

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Command1.Enabled = Text1.SelLength > 0

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Butt Then

Command1.Enabled = Text1.SelLength > 0

End If

End Sub

比如Text1的内容为abc,而当前只选中了第一个字符a

那么Text1.text表示文本框的全部内容,即abc

而Text1.SelText表示文本框中当前选中的内容,即a--selText是select text(选中文字)的缩写

标签: vb复制粘贴代码  

免责声明:本文系转载,版权归原作者所有;旨在传递信息,其原创性以及文中陈述文字和内容未经本站证实。

本文地址:http://www.bbbaike.com/baike/zonghe/825424.html

声明: 本站文章均来自互联网,不代表本站观点 如有异议 请与本站联系 联系邮箱:kefu#bbbaike.com (请把#替换成@)

关于我们 | 广告服务 | 网站合作 | 免责声明 | 联系我们| 网站地图

© 2022-2024 宝宝百科网 all rights reserved. 沪ICP备2023005727号-4