关闭

画图

49人阅读 评论(0) 收藏 举报

1. 随机生成不同的图形

  在窗体上画一个commandbutton按钮,双击按钮编写程序语言

其语言如下:

Private Sub Command1_Click()
Show
Me.Scale (0, 0)-(18, 8)
Me.AutoRedraw = True
Me.DrawMode = 2
Circle (3, 4), 3, vbRed
Me.AutoRedraw = False
Line (7, 1)-Step(4, 6), vbGreen, B
Line (13, 7)-Step(4, 0), vbBlue
Line Step(0, 0)-Step(-2, -6), vbBlue
Line Step(0, 0)-Step(-2, 6), vbBlue

End Sub

2.生成能动图形

  首先,在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网站的观点或立场
    个人资料
    • 访问:5741次
    • 积分:240
    • 等级:
    • 排名:千里之外
    • 原创:21篇
    • 转载:0篇
    • 译文:1篇
    • 评论:0条
    文章存档