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

xyjdn 2001-11-26 03:03:19
在Text1.Text上有n个“字”,能否通过点击Command1栅掉上的最后那个字?使得Text1.Text上的字为n-1个。
...全文
295 32 打赏 收藏 举报
写回复
32 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dynamic 2001-12-01
  • 打赏
  • 举报
回复
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
  • 打赏
  • 举报
回复
这样更好吧?
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
xyjdn 2001-11-28
  • 打赏
  • 举报
回复
to:enmity(灵感之源)
广西南宁.
enmity 2001-11-28
  • 打赏
  • 举报
回复
to:xyjdn(项有建^_^) 
你是广东人???、
enmity 2001-11-28
  • 打赏
  • 举报
回复
哈哈,怪不得会说南方的方言
xyjdn 2001-11-28
  • 打赏
  • 举报
回复
谢谢各位!
板主,Hell Me,还是给不了分。
LowBird 2001-11-27
  • 打赏
  • 举报
回复
:老妖
根据你的代码我测试了,有这样的问题!!!

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

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

为什么啊??

请指教!!
xyjdn 2001-11-27
  • 打赏
  • 举报
回复
这些天心情好,散些分。益吓班兄弟。
siyuan79 2001-11-27
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

如果是中文就不可以阿!
因为中文的是两个字节阿!
按照这样的思路自己想想怎么做吧!
enmity 2001-11-27
  • 打赏
  • 举报
回复
to: _1_(阿呆)(大冬瓜)

嘻嘻~~~
田九 2001-11-27
  • 打赏
  • 举报
回复
text1.text=mid(text1.text,1,len(text1.text)-a)
_1_ 2001-11-27
  • 打赏
  • 举报
回复
再晕 反正不经常来 ,不要紧的
gameboy999 2001-11-27
  • 打赏
  • 举报
回复
最近CSDN老有问题,给分总不对 ~~~~

enmity 2001-11-27
  • 打赏
  • 举报
回复
to: _1_(阿呆)(大冬瓜) 
杂牌,马甲好穿吗?嘻嘻~~~
enmity 2001-11-27
  • 打赏
  • 举报
回复
我再晕
_1_ 2001-11-26
  • 打赏
  • 举报
回复
我也晕倒,一个月不来,这种问题也放300分?

天哪
enmity 2001-11-26
  • 打赏
  • 举报
回复
吖~~~

300分问这么一个问题,我倒~~~
wefhl 2001-11-26
  • 打赏
  • 举报
回复
就是了我们都没分到
xyjdn 2001-11-26
  • 打赏
  • 举报
回复
板主,我一共给了300分,还有200分那去了?
xyjdn 2001-11-26
  • 打赏
  • 举报
回复
怎么回事?不知为何给不了分。
加载更多回复(12)
相关推荐
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-26 03:03
社区公告
暂无公告