显示txt文本内容问题

Question

比如 
现在有个记事本  “说明.txt”  里面大约有500字
我想在一个text文本上面显示出来，
text肯定不能一下全部显示 所以要分开显示
显示一部分 然后在显示一部分  直到显示完整，然后继续重头开始显示。
text的大小是固定的  “说明.txt”里面的内容是不固定的。
效果跟火车站 公告信息的LED牌子差不多
求指教....

Answer 1

写过一个  就是text文本内容修改就不可以了...是滚动的。。没含量貌似

Answer 2

搜索一下textbox,timer控件以及读写文件的代码，自己组合一下

Answer 3

这个好说嘛,一个MID函数就搞定了:dim sBuff as string   '文本内容
dim startP as long    '节选起点
dim strLen as long    '要显示的长度private sub From_Load()
    strLen=20    '这里设置为显示20个字
    timer1.intxxxxx=200    '1秒移动5次    open "xx.txt" for binary as #1
        sbuff=space(lof(1))
        get #1,,sbuff
    xlose #1
end subprivate sub Timer1_Timer()
    text1.text=mid(sbuff,startP,strLen)
    if len(text1.text)<strlen then   '结尾了
        text1.text=text1.text & mid(sbuff,1,strlen-len(text1.text))
    end if
    startP=startP+1
end sub

Answer 4

啊,还少了一句,在定时器的startP=startP+1后面要加一句判断结尾的:if startP>len(sbuff) then startP=1不然显示完了要出错哈哈.

Answer 5

本帖最后由 bcrun 于 2013-01-08 08:41:21 编辑

  

Answer 6

都说的那么明显了  难道要整段代码复制粘贴就成功你才收货？？
dim i as long
Dim L As Long
Dim sBuff As String
Dim idx As Long
Dim count As Long   ‘你想要的每页字数
Private Sub From_Load()
    Open "xx.txt" For Binary As #1
    Get #1, , sBuff
    Close #1
     L = Len(text1)
     idx = L\count  '整除
End SubPrivate Sub Timer1_Timer()
   text1.text = mid（sBuff，i*count，count）
    i = i + 1
    If idx < i Then
        i =  0
    End If
   
End Sub
在线写的，绝对有BUG，但思路是这样的了

Answer 7

建议使用PictureBox控件结合定时器显示滚动文本，这样不会闪烁！

Answer 8

你要的这个翻页效果要比较多的计算过程,还有些复杂,我是不想动了,看看你自己有没有动力做,或者有没有别人愿意帮你写吧嘿嘿!附上一个老周的文章:用c#和GDI+实现杂志翻页动画效果