vb实现标题栏滚动效果
作者:admin 日期:2010-05-23
ASP/Visual Basic代码
- Option Explicit
- Const Captions As String = "要显示的滚动文字"
- Private Sub Form_Load()
- Timer1.Interval = 200
- End Sub
- Private Sub Timer1_Timer()
- Static N As Integer
- Dim L As Integer, C As String
- L = Int(Me.Width / 220)
- C = String(L, " ") + Captions + String(L, " ")
- N = N + 1
- If N > Len(C) - L Then N = 1
- Me.Caption = Mid(C, N, L)
- End Sub
[本日志由 admin 于 2010-05-23 05:28 PM 编辑]
上一篇: VB中不使用菜单编辑器添加右键菜单下一篇: vb读取和修改注册表
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb
相关日志:
评论: 0 | 引用: 0 | 查看次数: 2242
发表评论
广告位