1个回答
展开全部
Private Sub Command1_Click() '剪切
Call Command2_Click
Text1.Text = ""
End Sub
Private Sub Command2_Click() '复制
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub
Private Sub Command3_Click() '粘贴
Text2.Text = Clipboard.GetText
End Sub
Call Command2_Click
Text1.Text = ""
End Sub
Private Sub Command2_Click() '复制
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub
Private Sub Command3_Click() '粘贴
Text2.Text = Clipboard.GetText
End Sub
追问
要是有很多文本框呢?又该如何编写代码?用控件数组行吗,给举个例子吧
追答
用控件数组
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询