会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前
TEST.rar(免费下载)[101 次下载]Dim step As Integer |
Private Sub Form_Load() |
Label1.Caption = "我是滚动字幕｛一｝。o(∩_∩)o " |
Timer1.Interval = 300 |
Label2.Caption = "我是滚动字幕｛二｝。o(∩_∩)o " |
Timer2.Interval = 10 |
Call Timer2_Timer |
step = 1 |
End Sub |
Private Sub Timer1_Timer() |
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1) |
End Sub |
Private Sub Timer2_Timer() |
If Label2.Left + Label2.Width > Me.Width Then |
step = -1 |
End If |
If Label2.Left < 0 Then |
step = 1 |
End If |
Label2.Left = Label2.Left + 15 * step |
End Sub |
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) |
Label1.ToolTipText = "我是滚动字幕｛一｝。o(∩_∩)o " |
End Sub |
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) |
Label2.ToolTipText = Label2.Caption |
End Sub |
TEST.rar(免费下载)[101 次下载]
初级程序员
by: 云代码会员 发表于：2014-08-18 22:53:54 顶(1) | 踩(1) 回复
不错
回复评论