如何使窗体标题由右向左流动????

genius00 2003-12-10 03:32:49

高手,
如何使FORM窗体标题由右向左流动????

...全文

73 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-12-10

打赏
举报

Dim num As Long
Const x = "滚动的标题"
Dim i As Long

Private Sub Form_Load()
Timer1.Interval = 100
num = (Me.Width - Me.TextWidth(x)) / Me.TextWidth(" ")
i = num
End Sub

Private Sub Timer1_Timer()
i = i - 1
Me.Caption = String(i, " ") & x
If i = 0 Then i = num
End Sub

lxcc 2003-12-10

打赏
举报

'简单例子
Dim i As Integer
Dim strCaption As String
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
i = 0
Timer1.Enabled = False
Timer1.Interval = 100
strCaption = Form1.Caption
End Sub

Private Sub Timer1_Timer()
i = i + 1
Dim j As Integer
strspace = Space(i)
Form1.Caption = strspace & Form1.Caption
If i > 20 Then
i = 0
Form1.Caption = strCaption
End If
End Sub

SoHo_Andy 2003-12-10

打赏
举报

测试通过
Private Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
Form1.Caption = Space(90) & "欢迎使用本系统"
Form1.WindowState = 2
End Sub

Private Sub Timer1_Timer()
Form1.Caption = Mid(Form1.Caption, 5, Len(Form1.Caption))
If Len(Form1.Caption) = 0 Then
Form1.Caption = Space(90) & "欢迎使用本系统"
End If
End Sub