a6283245
小水手
UID 833
精华
0
积分 2
帖子 2
阅读权限 10
注册 2005-10-28
状态 离线
|
请教
Dim x As Integer "
Dim mazhen As Boolean
Private Sub Command1_Click()
Dim i As Integer
Timer1.Enabled = False "
For i = 1 To 5000 "
Label1.Move i, 2700
Next i
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Form1.Picture = LoadPicture(App.Path & "/bj.jpg")
Label1.BackStyle = 0
Timer1.Enabled = False
Label1.ForeColor = RGB(255, 255, 255)
Label2.Caption = "祝您快乐"
x = 0
mazhen = False
End Sub
Private Sub Timer1_Timer()
Labl1.Top = 1000
Labl1.Left = x
x = x + 100
If x > 5000 Then
x = 0
End If
Label2.Visible = mazhen
mazhen = Not mazhen
End Sub
那不对啊
|
|
