如何把text控件文本中的回车替换成其它字符(在线疯等...!!!!)

如何把text控件文本中的回车替换成其它字符(在线疯等...!!!!)  
  比如换成"/" 问题点数：50、回复次数：6Top

1 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2005-05-13 10:52:08 得分 30

Private   Sub   Command1_Click()  
          Dim   s   As   String  
          s   =   Replace(Text1.Text,   Chr(13),   "/")  
          Text1.Text   =   s  
  End   Sub  
  Top

2 楼rainstormmaster（暴风雨 v2.0）回复于 2005-05-13 10:53:31 得分 10

用replace函数即可Top

3 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2005-05-13 10:55:14 得分 5

如果你说的是按下回车出现一个"/"，那就这样：  
  Private   Sub   Text1_KeyPress(KeyAscii   As   Integer)  
          If   KeyAscii   =   13   Then  
                  KeyAscii   =   0  
                  Text1.SelText   =   "/"  
          End   If  
  End   Sub  
  Top

4 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2005-05-13 10:56:39 得分 0

别等了，分都给我吧！*^_^*Top

5 楼zyguyue（何必何苦）回复于 2005-05-13 11:02:35 得分 5

晕Top

6 楼xxxayyyazzz（我要争取...）回复于 2005-05-13 12:57:10 得分 0

是不是应该换这两个字符相加得到的字符     Chr(13)   +   Chr(10)Top

相关问题

• 字符
• 控件
• 文本
• 控件文本
• keyascii
• 回车替换成其它
• 线疯
• chr
• sub
• text

• 帖主：xxxayyyazzz
• happy_sea
• rainstormmaster
• happy_sea
• zyguyue

• Visual Basic类图书
• Visual Basic类源码下载