flash雪景怎么跟随画布放大

1、首先打开flashCS3，接下来的步骤直接在舞台上进行，当然你也可以新建一个图形/影片剪辑元件来做，首先文件-导入-导入到库-将从库中添加到舞台。

2、之后到右边对齐面板找到相对于舞台，按下后开始主要工作，时间轴和调整，记得要先打散，位置居中对齐就行。

3、首先在第80帧处插入关键帧(关键帧是有复制前一帧的功能，至于时间上你也可以插入70帧，不重要)

4、之后在中间40帧处插入关键郑

5、最后，在40帧处选中，在左侧找到任意变形工具对其进行放大，在80帧保持原来的大校之后分别在1-40帧和40-80帧处的时间轴上右键点击，添加补间动画，不是形状补间。如果看到40帧处又变小了，再直接拉大就行了。

6、进行预览，就展现出先放大后缩小的效果，速度比较慢，如果想快的话就把帧数调到40左右，则是快速放大缩小的效果

Option Explicit

Private Type POINTAPI

x As Long

y As Long

End Type

Const Srccopy = &HCC0020

Private Declare Function GetCursorPos Lib "User32" (lpPOINT As POINTAPI) As Long

Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long

Dim pos As POINTAPI

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

'上述函数改动

Private Sub Form_Load()

Dim usew&, useh&

usew& = MeWidth / ScreenTwipsPerPixelX

useh& = MeHeight / ScreenTwipsPerPixelY

End Sub

Private Sub Start()

Dim sx As Long

Dim sy As Long

GetCursorPos pos

Dim x, y

sx = IIf(posx < 50 Or posx > 925, IIf(posx < 50, 0, 925), posx - 50)

sy = IIf(posy < 50 Or posy > 680, IIf(posy < 50, 0, 680), posy - 50)

Caption = " 坐标" & sx & "," & sy & " 放大镜”"

StretchBlt hdc, 0, 0, 200, 200, GetDC(0), sx, sy, 100, 100, Srccopy '改动

End Sub

Private Sub Timer1_Timer()

Start

End Sub

Private Sub Form_DblClick()

Unload Me

End Sub

以上就是关于flash雪景怎么跟随画布放大全部的内容，包括:flash雪景怎么跟随画布放大、VB6.0制作放大镜、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！