各位大侠：
Option Explicit

Private Sub cmd1_Click()  这是复制

Clipboard.SetText txt1.SelText



End Sub

Private Sub cmd2_Click()

txt1.SelText = Clipboard.GetText     这是粘贴
End Sub

Private Sub cmd3_Click()

txt1.Text = ""                           这是删除
End Sub

Private Sub cmd4_Click()
End
End Sub
Private Sub txt1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbl1.Caption = "起始位置" & txt1.SelStart
lbl2.Caption = "文本长度" & txt1.SelLength
End Sub



我现在这样删除只能算是清空，我想要输入后删除时一个一个删除该怎么做呢？

请各位大侠指点迷津

  谢谢！！！

txt1.text=left(txt1.text,len(txt1.text)-1)   '这是从后面向前删


txt1.text=mid(txt1.text,2)   '这是从前面向后删

谢谢啦！我刚试过，可以了