vb复制粘贴代码 vb如何复制粘贴代码

复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当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（选中文字）的缩写