UC知道请问vb怎样编写代码把复制，剪切，粘贴东西到别处
来源：百度知道 编辑：UC知道 时间：2024/07/02 09:55:37
窗体上放置两个文本框text1和text2,添加四个命令按钮，分别命名为cmdcut,cmdcopy,cmdpaste和cmdend,用于剪切，复制粘贴和退出，用两个标签对文本框作简要说明。
在代码的“通用——声明”部分定义一个模块级变量strpaste,用于存放待粘贴的内容。
各按钮的功能要求如下：
程序运行时，在text1中选定文本，单击“复制”按钮，通过文本框的seltext属性将选定内容存入变量；单击“剪切”按钮，先将选定的内容存入变量，在删除选定内容；单击“粘贴”按钮，将变量中的内容粘贴到text2中；单击“退出”按钮结束运行。
在代码的“通用——声明”部分定义一个模块级变量strpaste,用于存放待粘贴的内容。
各按钮的功能要求如下：
程序运行时，在text1中选定文本，单击“复制”按钮，通过文本框的seltext属性将选定内容存入变量；单击“剪切”按钮，先将选定的内容存入变量，在删除选定内容；单击“粘贴”按钮，将变量中的内容粘贴到text2中；单击“退出”按钮结束运行。
如果焦点在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 = &