一个文本编辑器， 要求实现剪切，复制，粘贴的功能，
现在我已经实现了复制与剪切，但粘贴实现不了，帮下忙~
看看怎样改……
那句红的……
感谢zhuyongxing在qq上的指导，我已经会做了。

Dim a As String


Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
a = Text1.SelText
Text2 = a
Text1.SelText = ""
End Sub

Private Sub Command2_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
a = Text1.SelText
End Sub

Private Sub Command3_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Text1.Text = Left(Text1, Text1.SelStart) + a + Mid(Text1, Text1.SelStart + 1)
End Sub

[ 本帖最后由 dydsdyds 于 2010-3-15 21:23 编辑 ]

等高手回答吧

1 是剪切
2 是复制
3 是粘贴
text1.seltext = Clipboard.GetText 'text2.text

尽量使用vb自带的剪贴板。很方便的。

Private Sub Command1_Click()
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = True
    VB.Clipboard.SetText (Text1.SelText)    '把选择文本放入剪贴板
End Sub

Private Sub Command2_Click()
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = True
    VB.Clipboard.SetText (Text1.SelText)    '
    Text1.SelText = ""                      '把选择的文本替换成空白，也就是删除已选择文本
End Sub

Private Sub Command3_Click()
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
    Text1.SelText = VB.Clipboard.GetText()    '从剪贴板粘贴
End Sub

我想复杂了,你的方法很好~

a = Text1.SelText ‘seltext是什么意思
楼主是不是把TEXT2作为剪贴板来使用了！还有这一段Text1.Text = Left(Text1, Text1.SelStart) + a + Mid(Text1, Text1.SelStart + 1)作为粘贴作用的代码不太理解

seltext是选中文本的意思,
下面那长串是定位位置的。
加油!