| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何通过按钮命令实现首行缩进 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65251) |
|
| -- 作者：time -- 发布时间：2015/3/12 14:24:00 -- [求助]如何通过按钮命令实现首行缩进 有一个“网络编辑超级工具箱”当点击“格式化”按钮后可以实现首行缩进两个汉字字符，请问如何通过按钮命令实现窗口控件TextBox框内的文字能够每段字开头空两格。 |
|
| -- 作者：Bin -- 发布时间：2015/3/12 14:26:00 -- 不好判断何为之每段. 首行缩进2个空格就简单. 直接往前面加2个空格即可 比如 dim str as string = "123" str = " " & str
|
|
| -- 作者：有点甜 -- 发布时间：2015/3/12 14:37:00 -- Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1") Dim ary() As String = txt.Text.Split(chr(13)) Dim str As String = "" For Each s As String In ary str &= " " & s.trim & vbcrlf Next txt.text = str |
|
| -- 作者：time -- 发布时间：2015/3/12 21:28:00 -- Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2")
上列按钮命令代码可以实现首行缩进“空两个字符”同时可以实现每段与段加入一空行，再次按命令可以在原空行加一空行，请高手帮我加个判断：段与段之间无空行则加一行，有空行则不再加空行，提前预谢了！ |
|
| -- 作者：有点甜 -- 发布时间：2015/3/12 21:34:00 -- Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2") Dim ary() As String = txt.Text.Split(chr(13)) Dim str As String = "" For Each s As String In ary If s <> chr(10) Then str &= " " & s.trim & vbcrlf str &= vbcrlf & "" End If Next txt.text = str |
|
| -- 作者：time -- 发布时间：2015/3/13 9:15:00 -- 下列代码不能实现去除段落之间的所有空行，然后在加入一行空行；调试过，假如粘贴的文本原来有一空行，按命令按钮会增加一行段落之间的空行，且让原来的空行变成增加一行，再次按按钮，不再加入行。
|
|
| -- 作者：有点甜 -- 发布时间：2015/3/13 9:17:00 -- 测试没有问题啊 |
|
| -- 作者：time -- 发布时间：2015/3/13 9:41:00 -- 我从网页上复制了一篇文章，上面有一空行；而且我设置了两个同样命令的按钮，按甲按钮插入一行，然后再按乙按钮，每段之间又插入一行，反复交替按，导致累计递增插入空行，当然这种现象实际运用中不会发生，学生我仅仅是从学习角度探讨而已，请参考“网络编辑超级工具箱”的格式化按钮效果。 |
|
| -- 作者：有点甜 -- 发布时间：2015/3/13 9:43:00 -- 不知道你想表达什么，如果有问题，请上传具体的例子啊 |
|
| -- 作者：time -- 发布时间：2015/3/13 9:56:00 -- 我以前试过上传例子没有上传成功，现在表述我的意思，假如从网上复制一篇文章，判断其中如果不论有多少空行，则删除空行，然后添加一行空行，再次按该命令按钮，永远都是每段空一行，就像该话题的每段行首空两个字的效果一样。您上面的代码我试过，保存后再次按命令执行会递增一行。 |