画图

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

阅读更多
想对作者说点什么? 我来说一句

vc++画图程序 新手可以看看

2009年08月27日 49KB 下载

C#画图教程画图教程

2009年02月25日 996KB 下载

画图VC画图VC画图VC

2010年03月20日 54KB 下载

c#画图

2011年05月08日 908B 下载

VB画图应用程序源代码

2010年02月09日 23KB 下载

VC画图程序

2011年11月13日 57KB 下载

vc1020345346241_newa

2006年03月24日 76KB 下载

js画图(3D Pie 类封装)

2011年06月23日 17KB 下载

中学画图中学画图中学画图

2010年02月10日 1.99MB 下载

flash画图flash画图

2010年06月22日 3KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭