| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎么实现窗体中的多行文本框 里面的内容从下往上不断的重复播放指定的文字内容呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175885) |
| -- 作者：cnsjroom -- 发布时间：2022/3/23 1:11:00 -- 怎么实现窗体中的多行文本框 里面的内容从下往上不断的重复播放指定的文字内容呢？ 怎么实现窗体中的多行文本框 里面的内容从从【会议状态】表中去获取会议时间等于当前日期 会议状态为true的所有会议主题的列值 逐行在多行文本框里面从下往上循环滚动显示
当前代码如下：
Dim t As WinForm.TextBox =Forms("文本滚动").Controls("TextBox1")
Dim d = t.BaseControl
Dim bb As DataRow =DataTables("会议状态").Find("会议时间 = \'" & Date.today & "\'and 会议状态=true") If bb IsNot Nothing Then t.Text= t.Text & vbcrlf & bb（“会议主题”）& "数据已生成如下!" & vbcrlf Else t.Text="当前无正在进行的会议!" End If t.SelectionStart = t.Text.Length
d.ScrollToCaret
Application.DoEvents
|
| -- 作者：有点蓝 -- 发布时间：2022/3/23 8:36:00 -- 上面的代码就是，有什么问题？ |
| -- 作者：cnsjroom -- 发布时间：2022/3/23 8:54:00 -- 回复：（有点蓝）上面的代码就是，有什么问题？ 没有实现一直循环滚动显示 我当前放在按钮事件里的 是不是要放在定时任务里面呢？ |
| -- 作者：有点蓝 -- 发布时间：2022/3/23 8:59:00 -- 是的 |