- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]文本框编辑 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126819)
-- 发布时间：2018/10/29 16:48:00
-- [求助]文本框编辑
在如图的文本框中编辑一次，就会多出一个空行。
能不能避免？
谢谢！
此主题相关图片如下：image 3.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2018-10-29测试文本框.foxdb |
-- 发布时间：2018/10/29 17:03:00
--
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ary() As String = txt.Text.replace(chr(10), "").Split(chr(13))
Dim str As String = ""
For Each s As String In ary
If s.trim > "" Then
s =s.TrimEnd(".").TrimEnd(",").TrimEnd(";").Replace(":","").Replace(";",",").Replace(",",",").Replace("?",",").Replace(".",",")& "."
End If
str & = " "& s.trim & vbcrlf \'行首空格
Next
systemready = False
Dim i As Integer = e.sender.SelectionStart
txt.text = str
e.sender.SelectionStart = i
systemready = True