怎么实现窗体中的多行文本框里面的内容从下往上不断的重复播放指定的文字内容呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么实现窗体中的多行文本框里面的内容从下往上不断的重复播放指定的文字内容呢？

共有4252人关注过本帖树形打印复制链接主题：怎么实现窗体中的多行文本框里面的内容从下往上不断的重复播放指定的文字内容呢？

cnsjroom

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

怎么实现窗体中的多行文本框里面的内容从下往上不断的重复播放指定的文字内容呢？ 发帖心情

Post By：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