一个文本编辑器， 要求实现剪切，复制，粘贴的功能，
现在我已经实现了复制与剪切，但粘贴实现不了，帮下忙~
看看怎样改……
那句红的……
感谢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 编辑 ]

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

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