原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
多媒体课程设计——图像的多种切换效果
信息科学与工程学院
《多媒体程序设计》
课程考试说明书
班 级： 自动化1001
学 号：
姓 名：
教 师： 杨岚
二○一二 年 六 月
《多媒体程序设计》课程考试
一、设计题目
设计图像多种切换效果。要求：1：必须有淡入、淡出、翻转、滑入、旋转引入等效果；2；设计菜单
二、设计界面
总设计界面：
淡入淡出设计界面：
翻转设计界面：
百叶窗及各种效果设计界面：
三、运行界面
总运行界面：
淡入淡出运行界面：
翻转运行界面：
百叶窗及各种效果运行界面：
四、属性设置
淡入淡出：
控件名称 属性名称 属性值 窗体 Caption 淡入淡出 Startupposition 3-窗口缺省 图片框控件1 Name Picture1 Autosize ture 图片框控件2 Name Picture2 Autosize ture 命令按钮1 Name Command1 Caption 淡入淡出 命令按钮2 Name Command2 Caption 关闭
翻转：
控件名称 属性名称 属性值 窗体 Caption 翻转 Startupposition 3-窗口缺省 图片框控件1 Name Picture1 Autosize ture 图片框控件2 Name Picture2 Autosize ture 命令按钮1 Name CmdRoll Caption 水平翻转 命令按钮2 Name CmdRoll Caption 垂直翻转
百叶窗及各种效果：
控件名称 属性名称 属性值 窗体 Caption 百叶窗及各种效果 Startupposition 2-屏幕中心 图片框控件1 Name Ps Autosize ture 图片框控件2 Name pd Autosize ture 命令按钮1 Name shuiping Caption 水平 命令按钮2 Name chuizhi Caption 垂直 命令按钮3 Name jiaohu Caption 交互 命令按钮4 Name clear Caption 清除 命令按钮5 Name quit Caption 退出 命令按钮6 Name command1 Caption 各种效果
五、代码
淡入淡出：
窗体：
Dim CurPos As Byte 记录当前淡入(出)的程度
该过程调用API函数完成淡入淡出的工作
Private Sub ShowTransparency(cSrc As PictureBox, cDest As PictureBox, _
ByVal nLevel As Byte)
Dim LrProps As rBlendProps
Dim LnBlendPtr As Long
cDest.Cls
LrProps.tBlendAmount = nLevel
CopyMemory LnBlendPtr, LrProps, 4
With cSrc
AlphaBlend cDest.hDC, 0, 0, .ScaleWidth, .ScaleHeight, _
.hDC, 0, 0, .ScaleWidth, .ScaleHeight, LnBlendPtr
End With
cDest.Refresh
End Sub
Private Sub Command1_Click()
根据按钮的标题激活相应的Timer控件
If Command1.Caption = 淡 出 Then
Timer2.Enabled = True
Else
Timer1.Enabled = True
End If
Command1.Enabled = False 激活后不再响应单击事件，直到一次淡入(出)完成
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
CurPos = 1
Command1.Enabled = False
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
ShowTransparency Picture2, Picture1, CurPos
If CurPos 255 Then
文档评论（0）