Foxtable(狐表)用户栏目专家坐堂 → 求助:有没有办法实现文本框数据刷新的时候,永远都把下拉框拉到最后一行数据显示


  共有2944人关注过本帖树形打印复制链接

主题:求助:有没有办法实现文本框数据刷新的时候,永远都把下拉框拉到最后一行数据显示

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:有没有办法实现文本框数据刷新的时候,永远都把下拉框拉到最后一行数据显示  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim t As WinForm.TextBox = e.Form....  发帖心情 Post By:2020/3/28 21:44: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/29 9:49:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim t As WinForm.TextBox = e.Form....  发帖心情 Post By:2020/3/29 18:23:00 [显示全部帖子]

麻烦老师指导一下 谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim t As WinForm.TextBox = e.Form....  发帖心情 Post By:2020/4/2 15:43:00 [显示全部帖子]

OK  谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(逛逛)t.ScrollToCaret  发帖心情 Post By:2020/4/2 15:43:00 [显示全部帖子]

OK  谢谢!

 回到顶部