UC知道求个按钮粘贴代码,求救！！！！！！！！
来源：百度知道 编辑：UC知道 时间：2024/06/18 08:26:12
求高手指点个粘贴代码，谢谢了
<INPUT onclick=h1.value=0;convert() type=button CHECKED value=简体字 name=r1>
<INPUT onclick=h1.value=1;convert() type=button value=繁体字 name=r1> <INPUT onclick="copy('txt')" type=button value=复制 name=Button> 这里我想添加个粘贴代码 <INPUT onclick="cut('txt')" type=button value=剪切 name=Button> <INPUT onclick="txt.value=''" type=button value=清空 name=Button> <INPUT onclick=window.parent.close(); type=button value=关闭> <INPUT
type=hidden value=0 name=h1>
<INPUT onclick=h1.value=0;convert() type=button CHECKED value=简体字 name=r1>
<INPUT onclick=h1.value=1;convert() type=button value=繁体字 name=r1> <INPUT onclick="copy('txt')" type=button value=复制 name=Button> 这里我想添加个粘贴代码 <INPUT onclick="cut('txt')" type=button value=剪切 name=Button> <INPUT onclick="txt.value=''" type=button value=清空 name=Button> <INPUT onclick=window.parent.close(); type=button value=关闭> <INPUT
type=hidden value=0 name=h1>
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub
Private Sub CmdCopy_Click()
'这只是按钮代码的起始而已，按钮名叫做CmdCopy，事件是单击
Clipboard.SetText TxtContent.SelText
'Clipboard指剪贴板；SetText是剪贴板对象的一个方法，用来设置剪贴板的内容；TxtContent是指一个文本框；SelText是文本框的一个属性，指文本框的内容
'翻译过来就是把剪贴板的内容设为文本框的内容，就是复制（因为原内容并没有消失，要实现剪切，在这句后面加一句TxtContent.SelText = ""）
End Sub
'代码完毕
Private Sub CmdPaste_Click()
'按钮名叫CmdPaste，事件是单击
TxtContent.SelText = Clipboard.GetText
'TxtContent.SelText参见上文。Clipboard仍然指剪贴板，GetText指剪贴板的内容，是一个属性）
'翻译过来就是把文本框的内容设为剪贴板的内容，就是粘贴了
End Sub
'代码完毕