一道VB题目

窗体中有一个文本框和3个按钮，实现文本框里的复制，剪切，粘贴！
会的教下，谢谢！最好把代码解释下！

举报该文章

相关建议 2010-01-11

'复制粘贴运行

Option Explicit
Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub

Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText()
End Sub

Private Sub Command3_Click()
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub

Private Sub Form_Load()
Command1.Caption = "复制"
Command2.Caption = "粘贴"
Command3.Caption = "剪切"
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f88qqsq77.html

其他看法

第1个回答 2010-01-11

不知道你说的是哪种
第一种是:复制text1和剪切text2到text3(如果一定要3个按钮)
text1Private Sub Command1_Click() '复制text1到变量T
T=text1.text
End Sub
Private Sub Command2_Click() '剪切text2到T
T=text2.text
text2.text
End Sub
Private Sub Command3_Click() 'text3输出变量T
text3.text=T
End Sub

第二种是:对系统的剪切板操作
text1Private Sub Command1_Click() '复制text1
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub
Private Sub Command2_Click() '剪切text2
Clipboard.Clear
Clipboard.SetText Text2.Text
text2.text=""
End Sub
Private Sub Command3_Click() 'text3输出
Text3.Text = Clipboard.GetText(vbCFText)
End Sub