小叮当也战江湖—VB程序设计实例七日谈(五)

　　End Sub
　　11、选择“显示控制”菜单中的“全部显示”命令，并输入下列代码：

　　Private Sub mnuDisplay0_Click()
　　Form2!ShockwaveFlash1.ScaleMode = 0　　　　/将画面大小设置为在控件内保持动画原来比例全部显示
　　mnuDisplay0.Checked = True
　　mnuDisplay1.Checked = False
　　mnuDisplay2.Checked = False
　　End Sub

　　12、选择“显控制”菜单中的“随窗口大小变化”命令，并输入下列代码：

　　Private Sub mnuDisplay1_Click()
　　Form2!ShockwaveFlash1.ScaleMode = 1　　　　/将画面的缩放设置为随控件横向（或纵向）的缩放而变化
　　mnuDisplay0.Checked = False
　　mnuDisplay1.Checked = True
　　mnuDisplay2.Checked = False
　　End Sub

　　13、选择“显示控制”菜单中的“缩放至窗口大小”命令，并输入下列代码：

　　Private Sub mnuDisplay2_Click()
　　Form2!ShockwaveFlash1.ScaleMode = 2　　　　/将画面大小设置为不理会动画原来比例缩放至控件大小
　　mnuDisplay0.Checked = False
　　mnuDisplay1.Checked = False
　　mnuDisplay2.Checked = True
　　End Sub

　　14、选择“播放控制”菜单中的“循环播放”命令，并输入下列代码：

　　Private Sub mnuLoopPlay_Click()
　　mnuLoopPlay.Checked = Not mnuLoopPlay.Checked　　　　/将播放方式设置为循环或不循环
　　Form2!ShockwaveFlash1.Loop = Not Form2!ShockwaveFlash1.Loop
　　End Sub

　　15、选择“播放控制”菜单中的“放大画面”命令，并输入下列代码：

　　Private Sub mnuZoomIn_Click()
　　Form2!ShockwaveFlash1.Zoom (50)　　　　/放大画面
　　End Sub

　　16、选择“播放控制”菜单中的“缩小画面”命令，并输入下列代码：

　　Private Sub mnuZoomOut_Click()
　　Form2!ShockwaveFlash1.Zoom (200)　　/缩小画面
　　End Sub

　　17、选择“质量控制”菜单中的“低分辨率”命令，并输入下列代码：

　　Private Sub mnuQuality0_Click()
　　Form2!ShockwaveFlash1.Quality = 0　　/将画面质量设置为低分辨率
　　mnuQuality0.Checked = True
　　mnuQuality1.Checked = False
　　End Sub
　　18、选择“质量控制”菜单中的“高分辨率”命令，并输入下列代码：

　　Private Sub mnuQuality1_Click()
　　Form2!ShockwaveFlash1.Quality = 1　　/将画面质量设置为高分辨率
　　mnuQuality0.Checked = False
　　mnuQuality1.Checked = True
　　End Sub

　　小蘑菇：虽然源程序繁琐了一些，但都挺简单的呢。那么Form2的源代码呢？

　　小叮当：Form2的代码就简单一些了。

　　1、双击Form2窗口，选择“Resize”并输入下列代码：

　　Private Sub Form_Resize()
　　ShockwaveFlash1.Top = Form2.ScaleTop　　　　/将ShockwaveFlash1控件的大小设置为Form2的大小
　　ShockwaveFlash1.Left = Form2.ScaleLeft
　　ShockwaveFlash1.Width = Form2.ScaleWidth
　　ShockwaveFlash1.Height = Form2.ScaleHeight
　　End Sub

　　2、双击Timer1控件并输入下列代码：

　　Private Sub Timer1_Timer()
　　Form1!StatusBar1.Panels(5).Text = Str(ShockwaveFlash1.FrameNum)　　　　/在状态栏和滑动条上显示当前播放的帧
　　Form1!Slider1.Value = ShockwaveFlash1.FrameNum
　　End Sub

　　3、双击Form2窗口，选择“Unload”事件并输入下列代码：

　　Private Sub Form_Unload(Cancel As Integer)
　　End
　　End Sub

　　到此为止，所有的代码就全部OK了，你可以试着运行一下看看怎么样？

　　小蘑菇：呵呵，载入一个Flash动画试试，效果还不错，就是界面有些丑陋了。

　　小叮当：少来了，就这一小会儿功夫，我能给你作出来就不错了，你还和我唧唧歪歪的？

　　小蘑菇：我不是这个意思呀，我是想说这么短的时间能够做出来真是了不起，如果再多一些时间的话，一定可以做成一个非常非常漂亮的界面。

　　小叮当：你这小子，嘴巴转的倒是挺快的呢。行了，又可以拿这个程序去同学面前炫耀了吧，那你自己好好看看，我可要去忙我的了。

上一页  [1] [2] 

本文关键字：程序设计  江湖  51单片机，单片机-工控设备 - 51单片机