- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在主窗口中进行文字的滚动播报问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35122)
-- 发布时间：2013/6/24 17:04:00
-- 在主窗口中进行文字的滚动播报问题
本人想在主窗口中对部分信息进行滚动（上下）播报，我已经把窗口中的标签LABEL1与“发布信息表（附件1）”中的发布信息栏关联，显示效果如附件2 ，但是我发现发布信息只能在主窗口向上滚动发布一次，无法循环不断地进行，请各位高手指导，我的代码如下：
Dim lab1 As WinForm.Label = e.Form.Controls("Label1")
If lab1.height + lab1.Top = 0 Then
lab1.Top = e.Form.height
Else
lab1.Top = lab1.Top -4
End If
谢谢了！
此主题相关图片如下：附件1.png
此主题相关图片如下：附件2.png
-- 发布时间：2013/6/24 17:05:00
--
上个例子看看,纸上不谈兵!
-- 发布时间：2013/6/24 17:07:00
--
请教，这个滚动播报的内容文字可以实时从一个网站上的文字获得吗？该如何设计
[此贴子已经被作者于2013-6-24 17:07:53编辑过]
-- 发布时间：2013/6/24 17:09:00
--
以下是引用wuxianzuoji41在2013-6-24 17:07:00的发言：
请教，这个滚动播报的内容文字可以实时从一个网站上的文字获得吗？该如何设计
请教，这个滚动播报的内容文字可以实时从一个网站上的文字获得吗？该如何设计
[此贴子已经被作者于2013-6-24 17:07:53编辑过]
-- 发布时间：2013/6/24 17:23:00
--
我已经作了个例子，是开发版的，由于没有升级到2013，如果高手指点或帮助修改，最好也是2012版的，不然我可能打不开，谢谢了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:主窗口信息滚动发布.foxdb |
-- 发布时间：2013/6/24 17:31:00
--
这里改一下就行了 If lab1.height + lab1.Top <= 0 Then
-- 发布时间：2013/6/24 17:51:00
--
谢谢BIN，修改后已经可以连续循环播报了，但是我发现有个问题，在发布信息表的发布列中如果字太多，就无法全部显示出来，不知如何调整？
-- 发布时间：2013/6/24 17:51:00
--
简单点的方法就是 LABEL弄大点.
-- 发布时间：2013/6/24 18:06:00
--
但也不能无限大呀，还是想自动在固定大小的标签中根据内容多少自动全部显示出来。
-- 发布时间：2013/6/24 18:43:00
--
可以根據標籤內容及每行顯示字數,計算出行數,據此來調整標籤高度