(vb课程计)新年贺卡.doc

新年贺卡设计报告 学院 材料学院 班级 074 学号 072014 姓名 白建涛 成绩 一、设计思路 1.要达到的目的 ①培养学生综合利用语言进行程序设计的能力培养学生利用的能力培养学生利用的能力培养学生利用的能力 培养学生利用进行设计的能力 三、部分程序关键源代码及注释 ■Option Explicit Private FormOldWidth As Long 保存窗体的原始宽度 Private FormOldHeight As Long 保存窗体的原始高度 ■Private Sub Command1_Click(Index As Integer) 上帧 ShockwaveFlash1.Back End Sub ■Private Sub Command2_Click() 下帧 ShockwaveFlash1.Forward End Sub ■Private Sub Command3_Click() 倒回 ShockwaveFlash1.Rewind End Sub ■Private Sub Command4_Click() 播放 ShockwaveFlash1.Play Command5.Enabled = True ShockwaveFlash1.Visible = True Slider1.Visible = True Timer1.Enabled = True Timer1.Interval = 100 End Sub ■Private Sub Command5_Click() 暂停 Command5.Enabled = False ShockwaveFlash1.StopPlay End Sub ■Private Sub Command6_Click() 返回 Unload Me End Sub ■Private Sub Slider1_Scroll() If ShockwaveFlash1.FrameNum = 0 Then 根据划动条的值为百分比跳转到动画播放进度 ShockwaveFlash1.GotoFrame (Slider1.Value * 0.01 * (ShockwaveFlash1.TotalFrames - 1)) Else Slider1.Value = 0 End If Slider1.Min = 0 Slider1.Max = ShockwaveFlash1.TotalFrames ShockwaveFlash1.FrameNum = Slider1.Value ShockwaveFlash1.Play End Sub ■Private Sub Timer1_Timer() Static Index As Integer 定义静态变量表示当前显示的标签标号 Dim i As Integer, xpos As Single, ypos As Single, j As Single Dim k As Single If Index 5 Then Label1(Index).Visible = True k = Int(Rnd * 16) 循环选择字体颜色 Label1(Index).ForeColor = QBColor(k) Index = Index + 1 Else For i = 0 To 4 Label1(i).Visible = False Next i Index = 0 End If Slider1.Value = ShockwaveFlash1.FrameNum Cls For i = 0 To 100 出现碎纸 xpos = Rnd * ScaleWidth ypos = Rnd * ScaleHeight PSet (xpos, ypos), QBColor(Int(Rnd * 16)) Next ShockwaveFlash控件没有播放进度的事件 因此使用定时器显示当前动画的播放信息 Slider1.Min = 0 Slider1.ToolTipText = Int(Slider1.Value / (Slider1.Max) * 100) % StatusBar1.Panels(3).Text = Format$(ShockwaveFlash1.FrameNum + 1, 第0帧) End Sub ■Private Sub 背景颜色_Click() CommonDialog1.ShowColor Form1.BackColor = CommonDialog1.Color End