标题: (VB)窗体标题滚动的代码 [打印本页]

---

作者: 毛主席    时间: 2007-10-8 10:31     标题: (VB)窗体标题滚动的代码

窗体标题滚动的代码
管理提醒：
在窗体加入时间控件  把下面的代码直接粘贴到代码去就可以了



--------------------------------------------------------------------------------



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

---

欢迎光临 ::电驴基地:: (https://www.cmule.com/)

Powered by Discuz! 6.0.0