電腦動畫制作(鍵盤事件)

1、電腦動畫製作電腦動畫製作（鍵盤事件）使用者對鍵盤及滑鼠的操作是 VB程式主要的事件來源，而VB提供了以下三個事件讓使用者能輕易地完成鍵盤處理工作。事件名稱功能與語法KeyPress在指定的物件上接收到按鍵相對應(yīng)的 ASCII字元物件名稱 KeyPress (KeyAscii As In teger)KeyDow n在指定的物件上偵測到有鍵被按住物件名稱 KeyDow n (KeyCode As In teger, Shift As In teger)KeyUP在指定的物件上偵測到被按的鍵已放開物件名稱 KeyUP (KeyCode As In teger, Shift As In teger)

2、圖像移動方法之比較移動圖像方法移動原理與效果適用情況Image物件的Top 及 Left 屬性設(shè)定利用Top及Left屬性質(zhì)來改變Image物件在座標(biāo)上的位置以移動圖片一維的移動特效Image1 丄eft = Image1 Left + 100右移lmage1.Top = lmage1.Top + 100下移Image物件的Move方法利用move方法來改變Image物件在座標(biāo) 上的位置以移動圖片二維的移動特效Image1.Move Image1 丄 eft, Image1.Top + 100下移Image1.Move Image1 .Left + 100, Image1.Top + 100右

3、下例1 :利用a、s、k、I按鍵，使飛機能上、下、左、右移動程式碼：Private Sub Form_KeyPress(KeyAscii As Integer)Select Case Chr(KeyAscii) Case almage1.Top = lmage1.Top TOO或lmage1.Move Image1 丄eft, Image1.Top - 100 Case sImage1.Top = Image1.Top + 100或Image1.Move Image1 丄 eft, Image1.Top + 100 Case kImage1 丄 eft = Image1 Left-100或Im

4、age1.Move Image1 .Left - 100Case lImage1 Left = Image1 丄 eft + 100或Image1.Move Image1 丄 eft + 100End SelectEnd Sub例2：利用f、7、宀按鍵，使飛機能上、下、左、右移動,且當(dāng)飛機移出表單四周任一邊界時，則會從另一邊出現(xiàn)。4亦可利用Select Case方式加以改寫=Select Case KeyCodeCase 39右移Image1 丄 eft = Image1. Left + 100Case 37左移Image1. Left = Image1 .Left - 100Case 40下

5、移Image1.Top = Image1.Top + 100Case 38上移Image1.Top = Image1.Top - 100Case 35 En鍵，結(jié)束程式EndEnd Select出右邊界 出左邊界 出下邊界 出上邊界程式碼:Private Sub Form_KeyDow n(KeyCode As In teger, Shift As In teger)If KeyCode = vbKeyRight The n右移lmage1.Move Image1 丄eft + 100ElseIf KeyCode = vbKeyLeft The n左移Image1.Move Image1 丄e

6、ft TOOElseIf KeyCode = vbKeyDow n The n下移Image1.Move lmage1.Left, lmage1.Top + 100ElseIf KeyCode = vbKeyUp The n上移Image1.Move Image1.Left, Image1.Top -100ElseIf KeyCode = vbKeyEnd Then按下 End 鍵，結(jié)束程式EndEnd IfIf Image1 丄eft Form1.ScaleWidth Then Image1 .Left = 0If Image1 .Left Form1.ScaleHeight The n lmage1.Top = 0If Image1.Top Forml.ScaleWidth Then Imagel .Left = 0If Imagel.Left Forml.ScaleHeight The n Imagel.Top = 0If Imagel.Top 0 Then Imagel.T op = Forml.ScaleHeightEnd SubPriva