关闭

VB

75人阅读 评论(0) 收藏 举报
首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程,语言如下;
Dim g As Boolean
Dim x As Long
再双击开始运动按钮,编写程序语言,语言如下:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
再双击窗体,编写程序语言,语言如下:
Private Sub Form_Load()
g = True
x = Shape1.Left
End Sub
再双击闹钟,编写程序语言,语言如下:
Private Sub Timer1_Timer()
If g Then
x = x - 300
Else
x = x + 300
End If
If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then
g = Not g
End If
Shape1.Move x
End Sub
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4476次
    • 积分:145
    • 等级:
    • 排名:千里之外
    • 原创:11篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档