9第9章

9.1 动画制作
（2）初始化 PictureBox2和Label1均不可见。
Private Sub Form1_Load(… …) Handles MyBase.Load PictureBox2.Visible = False PictureBox2.Visible = False Label1.Visible = False Label1.Visible = False Timer1.Enabled = False Timer1.Enabled = False End Sub
PictureBox2.Visible = True Timer1.Enabled = True
（4） Timer1_Tick事件 完成PictureBox1（即“小女孩”）的随机移动和文字显 Private 示。 Sub Timer1_Tick(……) Handles Timer1.Tick
Dim x, y As Integer num = num + 1 x = Int(Rnd() * (Size.Width - 60) + 1) y = Int(Rnd() * (Size.Height - 60) + 1) PictureBox1.Left = x PictureBox1.Top = y If num Mod 20 = 0 Then Label1.Visible = True Label1.Top = PictureBox1.Top - 50 Label1.Left = PictureBox1.Left + 50 Label1.Text = "加油呀！" ElseIf num Mod 10 = 0 Then Label1.Visible = True Label1.Top = PictureBox1.Top - 50 Label1.Left = PictureBox1.Left - 50 Label1.Text = "快来抓我呀！ " Else Label1.Visible = False End If
4.
9.1 动画制作
【例9-1】制作一个动画游戏。
1.
单击的“游戏开始”按钮，窗体上出现一个小男孩， 同时小女孩开始移动。
2.
3.
移动鼠标，小男孩会随鼠标移动追赶小女孩。
小男孩追上小女孩，游戏暂停，小女孩上方出现 文字“我被抓住了~~，请重新开始吧！”；想继 续玩游戏，单击“游戏开始” 。 如果小男孩没追上小女孩，每隔6秒钟，女孩上方 出现“快抓我呀^^！”，再隔6秒钟还没追上，小 女孩上方出现文字“加油呀^^！”。
1．使用CreateGraphics方法创建Graphics对象
格式： Dim 对象名 As Graphics 对象名 = 窗体名（或组件名）. CreateGraphics
9.2 图形技术
9.2.2 创建Graphics对象
2．利用PaintEventArgs参数传递Graphics对象 Private Sub Form1_Paint(… …… Dim g_paint As Graphics = e . Graphics …… End Sub
4. 媒体播放器的设计
重 点 难 点
难点： 1. Graphic、颜色、画笔、画刷对象等的 创建，使用Graphic、颜色、画笔、画刷 对象绘制简单图形和输出字符串。 2.图像处理的基本方法。 3. MediaPlayer组件的属性、方法、事件。
BACK
教 学 内 容
9.1 9.2 9.3 9.4 动画制作 图形技术 图像技术 媒体播放
4.
9.1 动画制作 1.程序所需组件
一个按钮控件(Button1)，一个标签控件(Label1)， 两个图片控件(Picturebox1,Picturebox2) ，一个计时器组 件(Timer1) 。
2.程序代码
（1）窗体变量num：统计Timer1_Tick事件触发次数。 Dim num As Integer
' 第二步，创建字体绘图工具fntfont；
Dim fntfont As Font fntfont = New Font("隶书", 20, FontStyle.Underline)
' 创建画刷绘图工具green_brush和red_brush；
Dim green_brush As Brush, red_brush As Brush green_brush = New SolidBrush(Color.Green) red_brush = New SolidBrush(Color.Red)
9.1 动画制作
基 本 概 念
动画是指连续播 动画
放的画面。在不
同的时间间隔内 显示不同的画面
或是具有不同属
性的画面。
9.1 动画制作
【例9-1】制作一个动画游戏。
1.
单击 “游戏开始”按钮，窗体上出现一个小男孩， 同时小女孩开始移动。
9.1 动画制作
【例9-1】制作一个动画游戏。
1.
单击的“游戏开始”按钮，窗体上出现一个小男孩， 同时小女孩开始移动。
【例9-2】在窗体和图片框中绘制如下图形。
Private Sub Button1_Click(… …) Handles Button1.Click
' 第一步，创建Graphics对象g1和g2。 ' 指定g1的绘图范围在窗体上，而g2的绘图范围在图片框中。
Dim g1 As Graphics, g2 As Graphics g1 = Me.CreateGraphics g2 = PictureBox1.CreateGraphics
（6） PictureBox1_Click事件 单击PictureBox1，抓住“小女孩”，游戏暂停。
Private Sub pictureBox1_Click(… Timer1.Enabled = False …) Handles PictureBox1.Click Timer1.Enabled = False Label1.Visible = True Label1.Visible = True Label1.Top = PictureBox1.Top - 20 Label1.Top = PictureBox1.Top - 20 Label1.Left = PictureBox1.Left + 10 Label1.Left = PictureBox1.Left + 10 Label1.Text = "我被抓住了，请重新开始吧！" Label1.Text = "我被抓住了，请重新开始吧！" End Sub
' 第四步，释放Graphics对象和各种绘图工具。
fntfont.Dispose() g1.Dispose() g2.Dispose() green_brush.Dispose() red_brush.Dispose() blue_pen.Dispose()
End Sub
9.2 图形技术
9.2.2 创建Graphics对象
' 创建画笔绘图工具blue_pen。
Dim blue_pen As Pen blue_pen = New Pen(Color.Blue)
' 第三步，在窗体上用画刷green_brush绘制字体， ' 在图片框中用画笔blue_pen绘制矩形；
g1.DrawString("2008年北京奥运会！", fntfont, green_brush, 0, 10)
（3）单击 “游戏开始”按钮，出现“小男孩”后，开始执 行Timer1_Tick事件。
Private Sub Button1_Click(… …) Handles Button1.Click PictureBox2.Visible = True Timer1.Enabled = True End Sub
游戏开始前
游戏进行中
游戏进行中
游戏暂停
MENU
9.2 图形技术
9.2.1 绘制图形的一般步骤
绘制图形需要以下步骤： 1．指定绘图表面，创建Graphics对象； 2．创建画笔、画刷、字体等绘图工具； 3．选用合适的方法绘制图形；
4．释放Graphics对象和各种绘图工具。
9.2 图形技术
ByVal e As System.Windows.Forms.PaintEventArgs)
PaintEventArgs对象
9.2 图形技术
9.2.2 创建Graphics对象
3．从Image对象创建Graphics对象
例如： Dim imageFile As Image = Image.FromFile("SampImag.jpg")
Dim pntpoint(2) As Point pntpoint(0).X = 120 pntpoint(0).Y = 10 pntpoint(1).X = 180 pntpoint(1).Y = 10 pntpoint(2).X = 150 pntpoint(2).Y = 50
g2.FillPolygon(red_brush, pntpoint)
End Sub
（5）窗体的MouseMove事件 确定PictureBox2的位置，使“小男孩”跟着鼠标的移动而移动。
Private Sub Form1_MouseMove(… ,ByVal e As System.Windows.Forms.MouseEventArgs) … PictureBox2.Left== e.X PictureBox2.Left e.X PictureBox2.Top = e.Y PictureBox2.Top = e.Y End Sub
2.
移动鼠标，小男孩会在鼠标的指引下追赶小女孩。