Excel VBA实现全屏滚动字幕：从API调用到动画循环的完整指南

在Excel中制作一个引人注目的演示或信息展示板时，静态的图表和数据往往不够。想象一下，在会议或展厅中，一个全屏显示的Excel窗口，一条重要的通知或标语像新闻联播的滚动字幕一样，从屏幕一侧平滑地移动到另一侧，这无疑能极大地吸引观众的注意力，提升信息传递的效果。然而，Excel本身并未提供这种“全屏滚动字幕”的现成功能。

本文将为你彻底解决这个问题。我们将深入探索如何利用VBA（Visual Basic for Applications）编程，在Excel中实现一个功能完整、可高度自定义的全屏滚动字幕效果。无论你是想为工作报告添加动态标题，还是制作一个简单的信息展示屏，本文都将提供从原理到实战、从代码到排错的完整指南。即使你是VBA新手，也能跟随步骤一步步实现。

1. 理解核心概念：VBA、UserForm与API

在动手编码之前，我们需要厘清实现“全屏滚动字幕”所依赖的几个关键技术组件及其作用，这有助于你理解后续代码的逻辑，并在出问题时能快速定位。

1.1 VBA：Excel的自动化引擎

VBA是一种内置于Microsoft Office应用程序中的编程语言。它允许你扩展Office的功能，实现自动化操作和创建自定义解决方案。

• 作用：在本项目中，VBA是我们编写所有控制逻辑的“大脑”。我们将用它来创建窗口、控制文字移动、响应用户操作（如开始、暂停、关闭）。
• 位置：在Excel中，通过按下Alt + F11快捷键即可打开VBA集成开发环境（VBE）。

1.2 UserForm：自定义对话框与界面容器

UserForm是VBA中用于创建自定义图形用户界面（GUI）的工具。你可以把它想象成一个空白的、可自由设计的浮动窗口。

• 作用：它是我们“滚动字幕”的载体。我们将创建一个无边框、背景色可调的UserForm，并在其上放置一个用于显示滚动文字的标签（Label）控件。通过控制这个UserForm的属性，我们可以让它覆盖整个Excel窗口，甚至整个电脑屏幕，实现“全屏”效果。
• 关键属性：
  • BorderStyle: 设置为0 - fmBorderStyleNone以去除窗口边框。
  • BackColor: 设置窗体背景颜色。
  • ShowModal: 通常设置为False，使得字幕显示时，用户仍可操作Excel。

1.3 Windows API：突破VBA的限制

VBA本身的能力有限，例如，它无法直接获取屏幕的精确尺寸或创建真正的“置顶全屏”窗口。这时就需要调用Windows操作系统提供的应用程序编程接口（API）。

• 作用：我们将使用几个关键的API函数来实现高级功能：
  • GetSystemMetrics: 用于获取屏幕的宽度和高度（以像素为单位），确保我们的UserForm能适配任何显示器。
  • SetWindowPos: 这是实现“全屏”和“窗口置顶”的核心。通过它，我们可以强制UserForm覆盖整个屏幕，并保持在所有其他窗口的最前端。
• 注意：API声明需要在VBA模块的顶部进行，且语法固定。调用API属于相对高级的操作，但代码是模板化的，直接复制使用即可。

1.4 实现原理总览

整个项目的运行流程可以概括为以下几步：

1. 创建界面：在VBE中插入一个UserForm，并添加一个Label控件用于显示文字。
2. 全屏化：在UserForm初始化时，利用Windows API获取屏幕尺寸，调整自身大小和位置，并调用API将其设置为全屏、置顶、无边框状态。
3. 动画循环：使用VBA的OnTime方法或一个计时器（Application.OnTime），定期（例如每30毫秒）触发一个子过程。在这个子过程中，我们微调Label控件的水平位置（Left属性）。
4. 逻辑控制：当Label移动出屏幕左边界时，将其重置到屏幕右边界，形成循环滚动效果。同时，我们需要提供控制机制（如快捷键、按钮）来启动、暂停和关闭字幕。

理解了这些基石，我们就可以开始搭建环境并编写代码了。

2. 环境准备与项目初始化

本教程基于 Microsoft Excel 2016 及以上版本（包括Office 365）。WPS Office 虽然部分支持VBA，但对其高级功能（尤其是Windows API调用和某些窗体属性）的支持可能不完全或存在差异，可能导致本示例无法正常运行或需要调整。建议在Microsoft Excel环境中进行开发和测试。

第一步：启用开发工具默认情况下，Excel的“开发工具”选项卡是隐藏的，我们需要先让它显示出来。

1. 打开Excel，点击“文件”->“选项”。
2. 在弹出的“Excel选项”对话框中，选择“自定义功能区”。
3. 在右侧的“主选项卡”列表中，勾选“开发工具”，然后点击“确定”。

第二步：打开VBA编辑器并插入组件

1. 在Excel中，按下Alt + F11键，打开VBA编辑器（VBE）。
2. 在VBE左侧的“工程资源管理器”窗口中（如果没看到，按Ctrl + R），右键点击你的工作簿名称（例如“VBAProject (工作簿1)”）。
3. 依次选择“插入”->“用户窗体”。这将会创建一个默认名为UserForm1的窗体。
4. 再次右键点击工作簿名称，选择“插入”->“模块”。这将插入一个标准代码模块，我们通常将API声明和公共过程放在这里。

现在，你的VBA工程应该包含以下部分：

• UserForm1(用户窗体)
• 模块1(标准模块)
• ThisWorkbook(当前工作簿对象)

我们的代码将主要分布在模块1和UserForm1的代码窗口中。

3. 核心代码实现：从零构建滚动字幕

我们将分步骤，从声明API到编写动画逻辑，完整构建这个功能。

3.1 声明Windows API函数

首先，在刚刚插入的模块1中，粘贴以下代码。这些声明告诉VBA我们将要使用哪些外部系统函数。

' 模块1：API声明与公共变量 Option Explicit ' API声明：用于获取系统屏幕尺寸 Public Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CXSCREEN = 0 ' 屏幕宽度索引 Public Const SM_CYSCREEN = 1 ' 屏幕高度索引 ' API声明：用于设置窗口位置、大小和状态（关键！） Public Declare PtrSafe Function SetWindowPos Lib "user32" ( _ ByVal hWnd As LongPtr, _ ByVal hWndInsertAfter As LongPtr, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long ' 用于SetWindowPos的常量定义 Public Const HWND_TOPMOST = -1 ' 将窗口置于最顶层 Public Const HWND_NOTOPMOST = -2 ' 取消最顶层 Public Const SWP_SHOWWINDOW = &H40 ' 显示窗口 Public Const SWP_NOSIZE = &H1 ' 保持当前大小 Public Const SWP_NOMOVE = &H2 ' 保持当前位置 Public Const SWP_NOACTIVATE = &H10 ' 不激活窗口 ' 公共变量：用于控制动画循环 Public g_ScrollSpeed As Double ' 滚动速度（每次移动的像素数） Public g_IsScrolling As Boolean ' 滚动状态标志 Public g_ScheduledTime As Double ' 记录下一次OnTime执行的时间

代码解释：

• PtrSafe关键字对于64位Office是必须的，它确保API调用在64位环境下安全。如果你的Office是32位，可以去掉PtrSafe，但保留它兼容性更好。
• GetSystemMetrics函数通过传入SM_CXSCREEN和SM_CYSCREEN常数来获取屏幕的像素尺寸。
• SetWindowPos是本项目的核心API，参数较多，我们后续会详细讲解如何使用它来实现全屏和置顶。
• 公共变量g_IsScrolling和g_ScheduledTime用于管理由Application.OnTime创建的动画循环。

3.2 设计UserForm界面

切换到UserForm1的设计视图（在工程资源管理器中双击UserForm1）。

1. 在“工具箱”中，找到“Label”（标签）控件，点击它，然后在UserForm上拖动鼠标，画出一个标签。这个Label将用于显示滚动的文字。
2. 选中这个Label，在右下角的“属性”窗口中（按F4可调出），设置以下关键属性：
   • (名称): 改为一个有意义的名称，如lblMarquee。
   • Caption: 输入你想要滚动的文字，例如“欢迎使用Excel全屏滚动字幕系统 - 重要通知：请于下午3点至会议室开会！”。
   • Font: 点击...，设置一个醒目的大字体，如“微软雅黑”，粗体，字号36。
   • ForeColor: 设置字体颜色，如亮黄色 (&H0000FFFF&)。
   • BackStyle: 设置为0 - fmBackStyleTransparent（透明背景），这样标签背景就不会遮挡窗体颜色。
3. 选中UserForm本身（点击窗体空白处），在属性窗口中设置：
   • (名称): 改为frmMarquee。
   • Caption: 清空。
   • BorderStyle: 设置为0 - fmBorderStyleNone（无边框）。
   • BackColor: 设置窗体背景色，如深蓝色 (&H00800000&)。
   • ShowModal: 设置为False。这非常重要！它允许窗体显示时，Excel仍可被操作。

3.3 编写UserForm的初始化与全屏代码

双击frmMarquee窗体的空白处，进入其代码视图。你会看到UserForm_Initialize事件的过程框架。我们将在这里编写窗体加载时自动执行的代码，实现全屏化。

' frmMarquee 用户窗体代码 Option Explicit Private Sub UserForm_Initialize() ' 1. 设置窗体的初始位置和大小为屏幕大小 Dim screenWidth As Long, screenHeight As Long screenWidth = GetSystemMetrics(SM_CXSCREEN) screenHeight = GetSystemMetrics(SM_CYSCREEN) With Me .Width = screenWidth .Height = screenHeight .Left = 0 .Top = 0 End With ' 2. 设置标签的初始位置（从屏幕右侧外开始） With lblMarquee .Left = screenWidth ' 初始位置在屏幕右侧边界 .Top = (screenHeight - .Height) / 2 ' 垂直居中 End With ' 3. 使用API将窗体设置为全屏、最顶层、无激活状态 Dim hWnd As LongPtr hWnd = Me.hWnd ' 获取窗体的窗口句柄 ' 调用SetWindowPos实现置顶全屏 SetWindowPos hWnd, _ HWND_TOPMOST, _ 0, 0, _ ' X, Y 坐标 (左上角) screenWidth, screenHeight, _ ' 宽度，高度 SWP_SHOWWINDOW ' 标志：显示窗口 ' 4. 初始化滚动控制变量（这些变量在模块1中声明） g_ScrollSpeed = 5 ' 每次移动5像素，数值越大滚动越快 g_IsScrolling = True ' 5. 启动滚动动画 StartScrolling End Sub

代码解释：

• GetSystemMetrics获取当前主显示器的分辨率。
• 将窗体的Width,Height,Left,Top属性设置为屏幕尺寸，是从VBA层面调整窗体。
• lblMarquee.Left = screenWidth将标签的初始位置设在屏幕右边界之外，这样动画开始时，文字是从右侧“滚入”屏幕的。
• SetWindowPos是真正的魔法所在。HWND_TOPMOST参数使窗体始终位于最顶层，覆盖任务栏和其他窗口。传入屏幕坐标和尺寸，结合SWP_SHOWWINDOW标志，最终实现了覆盖整个屏幕的效果。
• 最后调用StartScrolling过程来启动动画（这个过程我们将在模块中编写）。

3.4 编写动画循环与控制逻辑

现在回到模块1，在API声明下方，添加以下控制动画的过程。

' 模块1：动画控制过程 Public Sub StartScrolling() ' 此过程用于启动或继续滚动 If Not g_IsScrolling Then g_IsScrolling = True End If ' 安排下一次滚动更新 ScheduleNextUpdate End Sub Public Sub StopScrolling() ' 此过程用于暂停滚动 g_IsScrolling = False On Error Resume Next ' 防止OnTime未计划时出错 Application.OnTime EarliestTime:=g_ScheduledTime, Procedure:="UpdateMarquee", Schedule:=False On Error GoTo 0 End Sub Private Sub ScheduleNextUpdate() ' 内部过程，用于安排下一次OnTime调用 If g_IsScrolling Then ' 设置下一次执行的时间（现在是 + 0.03秒，约30FPS） g_ScheduledTime = Now + TimeSerial(0, 0, 0) + TimeSerial(0, 0, 1) / 30 Application.OnTime EarliestTime:=g_ScheduledTime, Procedure:="UpdateMarquee" End If End Sub Public Sub UpdateMarquee() ' 核心动画更新过程，由OnTime定期调用 If Not g_IsScrolling Then Exit Sub If frmMarquee Is Nothing Then Exit Sub ' 确保窗体已加载 With frmMarquee.lblMarquee ' 向左移动标签 .Left = .Left - g_ScrollSpeed ' 如果标签完全移出屏幕左边界，则重置到屏幕右边界 If .Left + .Width < 0 Then .Left = GetSystemMetrics(SM_CXSCREEN) End If End With ' 安排下一次更新，形成循环 ScheduleNextUpdate End Sub Public Sub ShowMarquee() ' 主入口：显示滚动字幕窗体 Load frmMarquee frmMarquee.Show vbModeless ' 以无模态形式显示，允许操作Excel End Sub Public Sub CloseMarquee() ' 关闭滚动字幕 StopScrolling ' 先停止动画循环 Unload frmMarquee ' 卸载窗体 End Sub

代码解释：

• UpdateMarquee是动画引擎。每次被调用时，它将标签的Left属性减去g_ScrollSpeed（速度），实现向左移动。
• 当标签的右边界（.Left + .Width）移出屏幕左边界（0）时，将其Left重置为屏幕宽度，使其从右侧重新进入，实现无限循环。
• Application.OnTime方法是VBA中实现定时循环的常用方式。ScheduleNextUpdate负责计算下一次执行UpdateMarquee的时间并预约。这里设置为约每秒30次（1/30秒），平衡了流畅度和性能。
• ShowMarquee是启动整个功能的入口过程。CloseMarquee是安全退出的过程，它先停止定时器再卸载窗体，避免潜在错误。

3.5 添加用户交互控制（快捷键）

为了便于控制，我们添加一个简单的模块过程，并通过工作簿事件或按钮来触发它。这里我们在模块1中创建一个控制过程，并分配一个快捷键。

在模块1末尾添加：

Public Sub ToggleMarquee() ' 切换字幕显示/隐藏 On Error Resume Next ' 容错处理 If frmMarquee Is Nothing Then ' 如果窗体未加载，则显示它 ShowMarquee Else If frmMarquee.Visible Then ' 如果窗体可见，则关闭它 CloseMarquee Else ' 如果窗体存在但不可见，则显示它 frmMarquee.Show vbModeless StartScrolling End If End If End Sub

然后，我们可以为ToggleMarquee过程指定一个快捷键（例如Ctrl + Shift + M）。

1. 在Excel界面，点击“开发工具”->“宏”。
2. 在宏列表中，选择ToggleMarquee，点击“选项”。
3. 在“宏选项”对话框中，设置一个快捷键，如Ctrl + Shift + M，然后点击“确定”。

现在，按下Ctrl + Shift + M就可以一键显示或隐藏全屏滚动字幕了！

4. 完整实战案例：创建一个可配置的字幕系统

上面的代码实现了一个基础版本。接下来，我们将其升级为一个更实用、可配置的系统，允许用户在工作表上设置文字、速度、颜色等。

4.1 设计配置界面（工作表）

在当前工作簿的Sheet1中，创建以下配置区域：

A列	B列	说明
A1	滚动字幕配置	标题
A3	字幕内容：	标签
B3	欢迎使用可配置滚动字幕！	输入单元格
A4	滚动速度：	标签
B4	5	输入单元格（像素/帧）
A5	字体大小：	标签
B5	36	输入单元格
A6	字体颜色：	标签
B6	Yellow	输入颜色名称或RGB值
A7	背景颜色：	标签
B7	DarkBlue	输入颜色名称或RGB值
A9	控制按钮	标题
B10	启动字幕	按钮（链接到宏）
B11	暂停/继续	按钮（链接到宏）
B12	关闭字幕	按钮（链接到宏）

4.2 修改VBA代码以读取配置

更新模块1中的ShowMarquee过程，并新增一个ApplySettingsFromSheet过程。

' 在模块1中添加新的过程 Public Sub ApplySettingsFromSheet() ' 从Sheet1的配置区域读取设置并应用到窗体 If frmMarquee Is Nothing Then Exit Sub Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为你的工作表名 On Error Resume Next ' 防止无效颜色名导致错误 With frmMarquee ' 1. 应用背景色 .BackColor = TranslateColor(ws.Range("B7").Value) With .lblMarquee ' 2. 应用文字内容 .Caption = ws.Range("B3").Value ' 3. 应用字体大小 .Font.Size = ws.Range("B5").Value ' 4. 应用字体颜色 .ForeColor = TranslateColor(ws.Range("B6").Value) End With End With ' 5. 应用滚动速度（全局变量） g_ScrollSpeed = Val(ws.Range("B4").Value) If g_ScrollSpeed <= 0 Then g_ScrollSpeed = 2 ' 默认值 On Error GoTo 0 End Sub Private Function TranslateColor(ByVal colorInput As String) As Long ' 一个简单的函数，将颜色名称或RGB字符串转换为Long型颜色值 Dim colorVal As Long Select Case LCase(Trim(colorInput)) Case "red", "红色": colorVal = vbRed Case "green", "绿色": colorVal = vbGreen Case "blue", "蓝色": colorVal = vbBlue Case "yellow", "黄色": colorVal = vbYellow Case "cyan", "青色": colorVal = vbCyan Case "magenta", "洋红": colorVal = vbMagenta Case "black", "黑色": colorVal = vbBlack Case "white", "白色": colorVal = vbWhite Case "darkblue", "深蓝": colorVal = RGB(0, 0, 128) Case Else ' 尝试直接作为数值或RGB处理 On Error Resume Next colorVal = colorInput If Err.Number <> 0 Then colorVal = vbBlack ' 默认黑色 End If On Error GoTo 0 End Select TranslateColor = colorVal End Function ' 更新ShowMarquee过程 Public Sub ShowMarquee() ' 主入口：显示滚动字幕窗体 If frmMarquee Is Nothing Then Load frmMarquee ApplySettingsFromSheet ' 加载后立即应用配置 End If frmMarquee.Show vbModeless StartScrolling End Sub

同时，修改frmMarquee窗体的UserForm_Initialize事件，移除其中写死的速度、颜色设置，因为现在这些将由ApplySettingsFromSheet过程在显示前应用。

4.3 为工作表按钮指定宏

回到Excel的Sheet1。

1. 点击“开发工具”->“插入”-> 选择“按钮（窗体控件）”。
2. 在B10单元格附近画一个按钮，弹出“指定宏”对话框。
3. 选择ShowMarquee宏，点击“确定”。将按钮文字改为“启动字幕”。
4. 同理，为“暂停/继续”按钮指定ToggleScrolling宏（需要你在模块中创建，功能是切换g_IsScrolling状态），为“关闭字幕”按钮指定CloseMarquee宏。

4.4 运行与验证

1. 在Sheet1的B3:B7单元格中，输入你想要的字幕内容、速度、颜色等。
2. 点击“启动字幕”按钮。
3. 你的Excel窗口应该会“消失”，取而代之的是一个覆盖全屏的、带有滚动字幕的窗口。
4. 尝试修改工作表上的配置，然后点击“暂停/继续”按钮（需要先实现），再点击“启动字幕”（会重新加载应用新设置），观察变化。
5. 按Esc键或点击“关闭字幕”按钮（如果可见）退出全屏模式。

5. 常见问题与排查思路

在实现和使用过程中，你可能会遇到一些问题。下表列出了常见问题及其解决方法：

问题现象	可能原因	排查与解决思路
运行时错误‘48’：加载DLL错误	API声明错误，特别是在64位Office上未使用PtrSafe。	1. 确认你的Office是32位还是64位（文件->账户->关于Excel）。 2. 确保所有Declare Function语句都包含了PtrSafe关键字。
字幕窗体没有全屏，或者有边框	1.BorderStyle未设置为0。 2.SetWindowPosAPI调用失败或参数错误。 3. 窗体ShowModal属性为True。	1. 检查frmMarquee的BorderStyle和ShowModal属性。 2. 确保UserForm_Initialize事件中的SetWindowPos参数正确，特别是屏幕尺寸的获取。
滚动不流畅、卡顿	1.g_ScrollSpeed值太小，移动太慢。 2.Application.OnTime间隔太短，系统负载高。 3. 电脑性能或Excel有其他繁重任务。	1. 增大g_ScrollSpeed值（如10或15）。 2. 在ScheduleNextUpdate中，增加间隔时间，例如将1/30改为1/20（降低帧率）。 3. 关闭其他不必要的应用程序。
按Ctrl+Shift+M或其他快捷键无反应	1. 宏安全性设置阻止运行。 2. 快捷键未正确分配或冲突。 3. 代码保存在临时模块，工作簿关闭后丢失。	1. 点击“开发工具”->“宏安全性”，启用所有宏（仅限信任文档）。 2. 重新指定宏快捷键，或通过按钮触发。 3. 必须将代码保存在“启用宏的工作簿 (.xlsm)”中。
WPS中无法运行或效果异常	WPS对VBA及API的支持有限，尤其是窗体属性和API调用。	这是兼容性问题。建议在Microsoft Excel中运行。如果必须在WPS中使用，考虑使用JS宏（JSA）重写，但功能差异较大。
关闭字幕窗体后，Excel无响应或报错	Application.OnTime安排的未来任务未被正确取消。	确保CloseMarquee过程正确调用了StopScrolling，其中包含取消OnTime安排的代码。使用On Error Resume Next避免取消不存在的任务时报错。
字幕内容不更新	ApplySettingsFromSheet过程未被调用，或工作表单元格引用错误。	1. 确保ShowMarquee中调用了ApplySettingsFromSheet。 2. 检查ApplySettingsFromSheet中的工作表名称“Sheet1”是否与实际相符。 3. 在ApplySettingsFromSheet过程中添加Debug.Print语句，输出读取到的值，在VBE的“立即窗口”(Ctrl+G)中查看。

6. 最佳实践与工程建议

将一个小功能做得健壮、易用、可维护，是区分脚本和工程化代码的关键。

1. 错误处理：务必在所有可能出错的地方（如读取单元格、API调用、操作对象）添加On Error Resume Next和On Error GoTo 0，或更结构化的On Error GoTo ErrorHandler。这能防止因用户意外输入（如无效颜色名）导致整个程序崩溃。
2. 资源释放：这是一个关键习惯。在CloseMarquee过程中，我们遵循了“先停止服务（动画循环），再释放资源（卸载窗体）”的顺序。对于更复杂的项目，还需要考虑释放对象变量（Set frmMarquee = Nothing）。
3. 配置与代码分离：我们通过工作表来存储配置是一个好实践。这使得非技术人员也能修改字幕内容、速度等，而无需接触VBA代码。你可以进一步扩展，将字体名称、是否循环等也做成可配置项。
4. 模块化设计：将API声明、动画逻辑、配置读取、用户交互分别放在不同的过程或模块中。例如，可以将TranslateColor这类通用工具函数放入一个单独的Utilities模块。这提高了代码的可读性和可复用性。
5. 用户体验：
   • 提供退出方式：除了按钮，最好在窗体的KeyPress事件中捕获Esc键（If KeyAscii = vbKeyEscape Then CloseMarquee），方便用户退出。
   • 状态反馈：当字幕滚动时，可以在工作表某个单元格显示“运行中”；暂停时显示“已暂停”。这可以通过在StartScrolling和StopScrolling过程中更新单元格来实现。
6. 性能考虑：
   • 帧率选择：Application.OnTime的最小精度约为1秒，虽然我们用了1/30，但在高负载下可能不精确。对于更平滑的动画，可以考虑使用Windows API中的高精度计时器，但这会大大增加复杂度。对于字幕滚动，30FPS已完全足够。
   • 减少重绘：如果字幕非常长或字体特效复杂，频繁移动可能导致闪烁。可以尝试在移动标签前设置frmMarquee.Repaint或使用API锁定窗口更新。
7. 部署与分发：
   • 保存文件时，务必选择“Excel 启用宏的工作簿 (*.xlsm)”格式。
   • 如果分发给他人，需要告知他们需要启用宏，并信任此文档的来源。
   • 可以考虑将配置工作表隐藏，并通过一个简洁的“控制面板”工作表来提供按钮和输入框，提升专业性。

通过这个项目，你不仅学会了一个炫酷的Excel技巧，更实践了VBA与Windows API交互、用户窗体设计、事件驱动编程和简易的配置管理。你可以以此为基础，扩展出更多功能，例如多行字幕、垂直滚动、渐变背景、甚至从网络或数据库实时读取滚动信息，打造一个真正的信息发布系统。