Question

请问vb怎样编写代码把复制，剪切，粘贴东西到别处

窗体上放置两个文本框text1和text2,添加四个命令按钮，分别命名为cmdcut,cmdcopy,cmdpaste和cmdend,用于剪切，复制粘贴和退出，用两个标签对文本框作简要说明。
在代码的“通用——声明”部分定义一个模块级变量strpaste,用于存放待粘贴的内容。
各按钮的功能要求如下：
程序运行时，在text1中选定文本，单击“复制”按钮，通过文本框的seltext属性将选定内容存入变量；单击“剪切”按钮，先将选定的内容存入变量，在删除选定内容；单击“粘贴”按钮，将变量中的内容粘贴到text2中；单击“退出”按钮结束运行。

Answer 1

如果焦点在Text1的话单击粘帖是不是自动粘帖到Text2？
不知道这样行吗？
我这是不论焦点在哪个Text
只要Text中含有内容时，复制才可以用。

其实这也是按照Windows的设计。
有内容时，复制按钮可以用。（同理，有内容时，剪切才可以用）当触发了复制事件后，粘帖按钮才可以用。
Dim which As Integer, T As Integer

Private Sub copy_Click()
If which = 1 Then
T = Text1.Text
ElseIf which = 2 Then
T = Text2.Text
End If
End Sub

Private Sub cut_Click()
If which = 1 Then
T = Text1.Text
Text1.Text = ""
ElseIf which = 2 Then
T = Text2.Text
Text2.Text = ""
End If
End Sub

Private Sub edit_Click()
If which = 1 Then
If Text1.Text = "" Then
cut.Enabled = False
copy.Enabled = False
Else
cut.Enabled = True
copy.Enabled = True
End If
ElseIf which = 2 Then
If T = "" Then
cut.Enabled = False
copy.Enabled = False
Else
cut.Enabled = True
copy.Enabled = True
End If
End If
If T = "" Then
paste.Enabled = False
Else
paste.Enabled = True
End If
End Sub

Private Sub paste_Click()
If which = 1 Then
Text1.Text = Text1 + T
ElseIf which = 2 Then
Text2.Text = Text2 + T
End If
End Sub

Private Sub Text1_GotFocus() '本过程的作用是：当焦点在Text1中时，which = 1
which = 1
End Sub

Private Sub Text2_GotFocus() '本过程的作用是：当焦点在Text2中时，which = 2
which = 2
End Sub

Answer 2

Clipboard.SetText text1.text'把text1的内容到剪贴板