Question

VB中用命令按钮设置

剪切，复制，粘贴的代码，为何这样写粘贴就用不起，请问粘贴该如何写，初学小白一个

Answer 1

'-----------------------------------------------------------------------------------------------------------------
'编辑
'-----------------------------------------------------------------------------------------------------------------
'剪切
Private Sub Cut_Click()
txt = Text1.Text
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub
'-----------------------------------------------------------------------------------------------------------------
'复制
Private Sub Copy_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub
'-----------------------------------------------------------------------------------------------------------------
'粘贴
Private Sub Paste_Click()
Text1.SelText = Clipboard.GetText
End Sub
'-----------------------------------------------------------------------------------------------------------------
'全选
Private Sub SelectAll_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
'-----------------------------------------------------------------------------------------------------------------

追问

能告诉我下，为什么我这样写的粘贴代码就用不了，我们还没学Clipboard.GetText，如果能用一些常规且简单的代码写就好了...求解...谢谢

追答

算我倒霉 亏了 唉 连复制粘贴是什麽都不懂 唉

Answer 2

在声明区定义X变量，如果不定义vb会自动生成一个私有变量，也就是每个过程的X变量都是私有的，不是同一个。

追问

不太明白，初学，能说具体点么

追答

Dim X as String
'声明区
'--------------------------
Private Sub Command1_Click()
    X=Text1.SelText
    Text1.SelText=""
End Sub
Private Sub Command2_Click()
    X=Text1.SelText
End Sub
Private Sub Command3_Click()
    Text2.Text=X
End Sub

这仅是在同一个程序内可以这么处理，如果真要处理剪贴板的话就看看下楼的代码。

追问

那个，一看就是大神，能留个QQ么，VB方面有问题能请教一下你么，谢谢，百度hi里面说