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

[xyjdn]

在Text1.Text上有n个“字”，能否通过点击Command1栅掉上的最后那个字？使得Text1.Text上的字为n-1个。

[xyjdn]

怎么回事？不知为何给不了分。

[xyjdn]

板主，我一共给了300分，还有200分那去了？

[wefhl]

就是了我们都没分到

[enmity]

吖～～～

３００分问这么一个问题，我倒～～～

[_1_]

我也晕倒，一个月不来，这种问题也放300分？

天哪

[enmity]

我再晕

[enmity]

to:　_1_(阿呆)(大冬瓜)　
杂牌，马甲好穿吗？嘻嘻～～～

[gameboy999]

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

[_1_]

再晕 反正不经常来 ，不要紧的

[田九]

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

[enmity]

to:　_1_(阿呆)(大冬瓜)

嘻嘻～～～

[siyuan79]

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

如果是中文就不可以阿！
因为中文的是两个字节阿！
按照这样的思路自己想想怎么做吧!

[xyjdn]

这些天心情好，散些分。益吓班兄弟。

[LowBird]

:老妖
根据你的代码我测试了，有这样的问题！！！

但text键入"奥斯陆地方看见阿里山打开法"

执行代码后变成 "奥斯??????熑卜b"

为什么啊？？

请指教！！

[xyjdn]

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

[enmity]

哈哈，怪不得会说南方的方言

[enmity]

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

[xyjdn]

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

[无所不能的名侦探]

这样更好吧？
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

[Dynamic]

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