只删除<#>mn<#>形式的,而且是一个一个地删,比如有信息"<#>m01<#><#>m02<#><#>m03<#>backspace"按退格键的时候,先删除e,然后挨个删除,到了<#>m03<#>,将它整个删除,接着<#>m02<#>,最后<#>m01<#>
Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer)
Dim s, tmp
s = Text1.SelStart + 1: tmp = Text1
If KeyCode = 8 Then
If s < 9 Then Exit Sub
If Mid(tmp, s - 9, 9) Like "<[#]>m##<[#]>" Then
tmp = Left(tmp, s - 9) & Mid(tmp, s)
Text1 = tmp: Text1.SelStart = s - 9
End If
ElseIf KeyCode = 46 Then
If s + 8 > Len(tmp) Then Exit Sub
If Mid(tmp, s, 9) Like "<[#]>m##<[#]>" Then
tmp = Left(tmp, s - 1) & Mid(tmp, s + 8)
Text1 = tmp: Text1.SelStart = s - 1
End If
End If
End Sub