如何栅除上Text1.Text的“字”？

Question

Private Sub Command1_Click()
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Answer 1

    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)    Text1.Text = Mid(Text1.Text,1, Len(Text1.Text) - 1)

Answer 2

Private Sub Command1_Click()
    If Len(Trim(Text1.Text)) > 0 Then
        Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
    End If
End Sub

Answer 3

Sub Command1_Click()
i=1
do while true
if left(right(text1.text,i),1)="字" then exit do
i=i+1
loop
text1.text=left(text1.text,len(text1.text)-i) & right(text1.text,i-1)End sub

Answer 4

除去英汉混编的最后一个字
(不管英汉)
Private Sub Command1_Click()
    Dim a As String
    Dim b As Long
    a = StrConv(Text1.Text, vbUnicode)
    b = Len(a)
    If b >= 2 Then
        a = Left(a, b - 2)
    End If
    Text1.Text = StrConv(a, vbFromUnicode)
End Sub

Answer 5

Private Sub Command1_Click()
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub 

Answer 6

最近CSDN老有问题，给分总不对 ~~~~

Answer 7

text1.text=mid(text1.text,1,len(text1.text)-a)

Answer 8

Private Sub Command1_Click()
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub 如果是中文就不可以阿！
因为中文的是两个字节阿！
按照这样的思路自己想想怎么做吧!

Answer 9

:老妖
根据你的代码我测试了，有这样的问题！！！但text键入"奥斯陆地方看见阿里山打开法"执行代码后变成  "奥斯??????熑卜b"为什么啊？？请指教！！

Answer 10

to:xyjdn(项有建^_^)　
你是广东人？？？、

Answer 11

to:enmity(灵感之源)
广西南宁.

Answer 12

这样更好吧？
Private Sub Command1_Click()
If Len(text1.text)>0 then    
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Else
MsgBox"没有可删除的字符！",48
End If
End Sub 

Answer 13

谢谢各位!
板主，Hell Me,还是给不了分。

Answer 14

Private Sub Command1_Click()
dim l as integer
l=len(text1.text)
If l then    
   Text1.Text = Left(Text1.Text, l - 1)
End If
End Sub