vb复制粘贴代码篇1
楼上的思路是正确的，不过复制操作应该是复制当前选区而不是整个文本框内容，粘贴应该是将剪帖板内容插入到当前光标所在位置，而不是将文本框原有内容彻底覆盖，另外，通常当Text1没选中文字时，要使复制按钮Command1不可用
PrivateSubCommand1_Click()
Clipboard.SetTextText1.SelText
EndSub
PrivateSubCommand2_Click()
IfLen(Clipboard.GetText)Then
Text1.SelText=Clipboard.GetText
EndIf
EndSub
PrivateSubForm_Load()
Command1.Enabled=False
EndSub
PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
Command1.Enabled=Text1.SelLength>0
EndSub
PrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
Command1.Enabled=Text1.SelLength>0
EndIf
EndSub
比如Text1的内容为abc，而当前只选中了第一个字符"a"
那么Text1.text表示文本框的全部内容，即"abc"
而Text1.SelText表示文本框中当前选中的内容，即a--selText是selecttext（选中文字）的缩写
请问VB中的剪切、复制、粘贴代码怎么写篇2
PrivateSubCheck1_Click()Text1.FontName="隶书"EndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubPrivateSubOption1_Click()IfOption1.Value=TrueThenText1.Text="计算机应用技术计算机应用技术"EndIfEndSubPrivateSubOption2_Click()Clipboard.ClearClipboard.SetTextText1.SelTextText1.Text=""EndSubPrivateSubOption3_Click()IfOption3.Value=TrueThenText1.Text="计算机应用技术计算机应用技术"EndIfEndSub。
VB中复制粘贴代码及其原理篇3
复制操作应该是复制当前选区而不是整个文本框内容，粘贴应该是将剪帖板内容插入到当前光标所在位置，而不是将文本框原有内容彻底覆盖，另外，通常当Text1没选中文字时，要使复制按钮Command1不可用
PrivateSubCommand1_Click()
Clipboard.SetTextText1.SelText
EndSub
PrivateSubCommand2_Click()
IfLen(Clipboard.GetText)Then
Text1.SelText=Clipboard.GetText
EndIf
EndSub
PrivateSubForm_Load()
Command1.Enabled=False
EndSub
PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
Command1.Enabled=Text1.SelLength>0
EndSub
PrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
Command1.Enabled=Text1.SelLength>0
EndIf
EndSub
比如Text1的内容为abc，而当前只选中了第一个字符"a"
那么Text1.text表示文本框的全部内容，即"abc"
而Text1.SelText表示文本框中当前选中的内容，即a--selText是selecttext（选中文字）的缩写
vb复制粘贴代码篇4
楼上的思路是正确的，不过复制操作应该是复制当前选区而不是整个文本框内容，粘贴应该是将剪帖板内容插入到当前光标所在位置，而不是将文本框原有内容彻底覆盖，另外，通常当Text1没选中文字时，要使复制按钮Command1不可用PrivateSubCommand1_Click()Clipboard.SetTextText1.SelTextEndSubPrivateSubCommand2_Click()IfLen(Clipboard.GetText)ThenText1.SelText=Clipboard.GetTextEndIfEndSubPrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)Command1.Enabled=Text1.SelLength>0EndSubPrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenCommand1.Enabled=Text1.SelLength>0EndIfEndSub比如Text1的内容为abc，而当前只选中了第一个字符"a"那么Text1.text表示文本框的全部内容，即"abc"而Text1.SelText表示文本框中当前选中的内容，即a--selText是selecttext（选中文字）的缩写。
VB中按钮复制后的代码写法篇5
PrivateSubCommand1_Click(IndexAsInteger)
INDEX=1时就是Command1(1),INDEX=2就是Command1(2)。可以这样：
SELECTCASEINDEX
CASE1
按下Command1(1)时
CASE2
按下Command1(2)时
.
.
.
ENDSELECT
EndSub
复制和粘贴的代码在VB里怎么写篇6
PrivateSubCmdCopy_Click()
Clipboard.SetTextTxtContent.SelText
EndSub
PrivateSubCmdPaste_Click()
TxtContent.SelText=Clipboard.GetText
EndSub
PrivateSubCmdCopy_Click()
'这只是按钮代码的起始而已，按钮名叫做CmdCopy，事件是单击
Clipboard.SetTextTxtContent.SelText
'Clipboard指剪贴板；SetText是剪贴板对象的一个方法，用来设置剪贴板的内容；TxtContent是指一个文本框；SelText是文本框的一个属性，指文本框的内容
'翻译过来就是把剪贴板的内容设为文本框的内容，就是复制（因为原内容并没有消失，要实现剪切，在这句后面加一句TxtContent.SelText=""）
EndSub
'代码完毕
PrivateSubCmdPaste_Click()
'按钮名叫CmdPaste，事件是单击
TxtContent.SelText=Clipboard.GetText
'TxtContent.SelText参见上文。Clipboard仍然指剪贴板，GetText指剪贴板的内容，是一个属性）
'翻译过来就是把文本框的内容设为剪贴板的内容，就是粘贴了
EndSub
'代码完毕