vb复制粘贴代码
更新时间: 2025-06-28 17:59:50
复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当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复制粘贴代码 相关文章
- 四川省甘孜藏族自治州道孚县气象台发布...
- 四川省凉山彝族自治州盐源县气象台发布...
- 5种民族服饰与1碗手抓饭:谁更诱人?
- 福建省龙岩市武平县气象台发布雷电黄色...
- 福建省宁德市古田县气象台发布雷电黄色...
- 浙江省绍兴市嵊州市气象台发布雷暴大风...
- 福建省南平市光泽县气象台发布雷电黄色...
- 广西壮族自治区来宾市金秀县气象台发布...
- 黑龙江省牡丹江市宁安市气象台发布暴雨...
- 海南省临高县气象台发布雷雨大风黄色预...
- 山西省长治市平顺县气象台发布雷暴大风...
- 四川省凉山彝族自治州木里藏族自治县气...
- 湖南省永州市祁阳市气象台发布雷雨大风...
- 浙江省绍兴市嵊州市气象台发布暴雨黄色...
- 云南省红河哈尼族彝族自治州元阳县气象...
- 山西省长治市壶关县气象台发布雷暴大风...
- 云南省西双版纳傣族自治州景洪市气象台...
- 湖南省衡阳市祁东县气象台发布雷雨大风...
- 福建省南平市建瓯市气象台发布雷雨大风...
- 山西省晋城市泽州县气象台发布暴雨蓝色...