- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助：有没有办法实现文本框数据刷新的时候，永远都把下拉框拉到最后一行数据显示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147989)
-- 发布时间：2020/3/28 15:24:00
-- 求助：有没有办法实现文本框数据刷新的时候，永远都把下拉框拉到最后一行数据显示
有没有办法在窗体设计中 实现命令窗口中 使用output.show（）后的输出效果内容显示呢？
在窗体设计中利用多文本框 实现命令窗口中 使用output.show（）后的输出效果内容显示
如下代码：实现多文本框内容换行刷新显示，滚动条永远固定在顶端不动，直到执行完毕才能滑动文本框的滚动条功能，
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
For Each lst As String() In lsts
t.Text= t.Text & vbcrlf & lst(0) & "--" & lst(1)
Application.DoEvents
Next
代码运行效果
此主题相关图片如下：33.png
求助：有没有办法实现文本框数据刷新的时候，永远都把滚动条拉到最底端呢？
实现如下图效果
此主题相关图片如下：222.png
[此贴子已经被作者于2020/3/28 15:33:10编辑过]
-- 发布时间：2020/3/28 16:13:00
--
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
For Each lst As String() In lsts
t.Text= t.Text & vbcrlf & lst(0) & "--" & lst(1)
t.SelectionStart = t.Text.Length
Application.DoEvents
Next
-- 发布时间：2020/3/28 21:44:00
-- 回复：（有点蓝）Dim t As WinForm.TextBox = e.Form....
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
For Each lst As String() In lsts
t.Text= t.Text & vbcrlf & lst(0) & "--" & lst(1)
t.SelectionStart = t.Text.Length
Application.DoEvents
Next
上述代码运行后 还是没有达到预期效果 红色部分跟没有添加时 效果一样
[此贴子已经被作者于2020/3/29 9:49:09编辑过]
-- 发布时间：2020/3/29 18:23:00
-- 回复：（有点蓝）Dim t As WinForm.TextBox = e.Form....
麻烦老师指导一下 谢谢！
-- 发布时间：2020/3/29 20:08:00
--
t.ScrollToCaret
-- 发布时间：2020/3/29 20:09:00
--
没带狗，狐表是否能用不知道
-- 发布时间：2020/3/29 22:27:00
--
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d = t.BaseControl
For Each lst As String() In lsts
t.Text= t.Text & vbcrlf & lst(0) & "--" & lst(1)
t.SelectionStart = t.Text.Length
d.ScrollToCaret
Application.DoEvents
Next
-- 发布时间：2020/4/2 15:43:00
-- 回复：（有点蓝）Dim t As WinForm.TextBox = e.Form....
OK 谢谢！
-- 发布时间：2020/4/2 15:43:00
-- 回复：（逛逛）t.ScrollToCaret
OK 谢谢！