VB实验4.docx
- 文档编号:24029910
- 上传时间:2023-05-23
- 格式:DOCX
- 页数:17
- 大小:4.19MB
VB实验4.docx
《VB实验4.docx》由会员分享,可在线阅读,更多相关《VB实验4.docx(17页珍藏版)》请在冰豆网上搜索。
VB实验4
北京电子科技学院(BESTI)
实验报告
课程:
可视化程序设计
班级:
姓名:
学号:
成绩:
指导教师:
徐日
实验日期:
2014.05.13
实验密级:
预习程度:
实验时间:
15:
30~18:
00
仪器组次:
F21
必修/选修:
选修
实验序号:
4
实验名称:
多媒体程序设计
实验目的与要求:
目的:
1、掌握VB.NET多媒体编程,会多媒体典型控件的编程应用;
2、培养运用VB.NET编程解决问题的能力,提高计算机编程能力;
3、引导和培养具有认真严谨的实验态度和勇于实践的学习精神。
实验仪器:
名称
型号
数量
微机
ASUS
1
一、实验内容:
题一:
图片浏览器
1、题目:
2、编程设计思想:
按照老师给定提示在窗体中添加控件,添加两个Button控件实现浏览和退出。
使用三个label控件分别显示提示语,使用说明和文件路径。
设置Button1的click事件,利用try-catch-end-try语句寻找图片,先用if-then-end-if语句判断打开的文件夹中是否有图片,如果没有图片并弹出提示框提醒用户该文件夹中没有图片文件。
设置picturebox1的鼠标点击事件,判断用户按了哪个鼠标按钮,如果是左键,则n加1,否则n减1,然后调用过程showimage显示第n幅图像;
设置form1的keydown事件,判断用户按了哪个键盘按钮,如果是空格键(Backspac)或向上翻页键(PageUp),则n加1,否则n减1,然后调用过程showimage显示第n幅图像;
附设一个picturebox1的mousehover事件,使用tooltip1组件,当用户将指针悬停在图片上时显示图片浏览操作说明。
3、界面设计概要:
如下图所示,该实验的窗体的控制菜单栏分为图标,标题“图片浏览器”,最小化按钮,最大化按钮和关闭按钮;窗体工作区包含背景图片与提示用户“浏览”、“退出”按钮,浏览规则显示框与显示图片的picturebox控件。
4、程序源代码:
PublicClassForm1
DimnAsInteger
Dimfname()AsString
Dimfimage()AsString
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
FolderBrowserDialog1.Description="请选择一个文件夹"
FolderBrowserDialog1.RootFolder=Environment.SpecialFolder.Desktop
Label2.Visible=False
Try
IfFolderBrowserDialog1.ShowDialog=Windows.Forms.DialogResult.OKThen
fname=System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)
Label1.Text=fname(0)
PictureBox1.Image=Image.FromFile(fname(0))
PictureBox1.Visible=True
EndIf
CatchexAsException
Label2.Visible=True
MsgBox("对不起,在文件夹"&fname(n)&"中找不到图片!
",MsgBoxStyle.OkOnly+MsgBoxStyle.Exclamation+MsgBoxStyle.DefaultButton1,"操作提示")'调用Msgbox函数弹出提示框
Label1.Text="单击浏览按钮选择图片"
EndTry
EndSub
PrivateSubShowImage()
Try
n=IIf(n<0,UBound(fname),n)
n=IIf(n>UBound(fname),0,n)
Label1.Text=fname(n)
PictureBox1.Image=Image.FromFile(fname(n))
CatchexAsException
EndTry
EndSub
PrivateSubPictureBox1_MouseClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesPictureBox1.MouseClick
n+=IIf(e.Button=Windows.Forms.MouseButtons.Left,-1,1)
ShowImage()
EndSub
PrivateSubForm1_KeyDown(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyEventArgs)HandlesMe.KeyDown
n+=IIf(e.KeyCode=Keys.BackOre.KeyCode=Keys.PageUp,-1,1)
ShowImage()
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimaAsString
a=MsgBox("您真要退出么?
",vbExclamation+vbYesNo+vbDefaultButton2,"退出确认")
Ifa=vbYesThen
End
EndIf
EndSub
PrivateSubPictureBox1_MouseHover(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesPictureBox1.MouseHover
ToolTip1.SetToolTip(Me.PictureBox1,"单击左键浏览下一张,右键上一张"&vbCrLf&"Backspace或者Pageup向前翻页,其他键向下翻页"&vbCrLf&"按下空格键打开浏览")'用户将指针悬停在图片上时显示图片浏览操作说明
EndSub
EndClass
5、个性化设计:
1、通过修改form1的属性Icon,插入标志性图标:
2、修改form1的属性backgroundImage,加入背景图;
3、修改label1、label2、label3的BackColor属性为Transparent,使程序界面更加自然;
4、用户将指针悬停在图片上时显示图片浏览操作说明;
5、当窗体尺寸变化或者窗体最大化是,图片会随窗体大小的调整而放大、缩小。
6、运行调试:
运行截图:
通过拖动边框使图片的大小跟着改变:
没有图片时:
鼠标放在图片上方时:
用户点击“退出”按钮后:
题二:
个性化MP3播放器(选作)
1、题目
2、编程设计思想:
按照老师给定提示在窗体中添加控件,并设置好相应属性。
首先设置form1的load事件,使加载运行时,隐藏播放、暂停和停止按钮;
接着设置openbutton的click事件,在OpenFileDialog1的text中显示“打开音乐文件”,用if-then-end-if语句,设置startbutton的click事件,显示WindowsMediaPlayer控制器,隐藏图片,同时使用AxWindowsMediaPlayer1.Ctlcontrols.play()播放音乐;
设置pausebutton的click事件,使用AxWindowsMediaPlayer1.Ctlcontrols.pause()暂停音乐,同时隐藏WindowsMediaPlayer控制器,显示暂停图片,增强效果;
设置stopbutton的click事件,,使用AxWindowsMediaPlayer1.Ctlcontrols.stop()停止音乐,同时隐藏WindowsMediaPlayer控制器,显示停止图片,增强效果;
接着设置exitbutton的click事件,调用Msgbox函数弹出操作提示框,提醒用户是否退出,若退出,执行close函数退出程序,否则继续。
3、界面设计概要:
如下图所示,该实验的窗体的控制菜单栏分为标题“MP3播放器”,最小化按钮,最大化按钮和关闭按钮;窗体工作区有文本显示框显示音乐路径及歌名,“打开”和“退出”按钮,背景图片及底面图片。
4、程序源代码:
PublicClassForm1
DimiAsInteger
Dimfname()AsString
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Button1.Enabled=True
Button2.Enabled=False
Button3.Enabled=False
Button4.Enabled=False
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
OpenFileDialog1.Filter="所有文件|*.*|WAV(*.wav)|*.wav|MIDI(*.mid)|*.mid|MPEG(*.mpeg)|*.mpeg|DAT(*.dat)|*.dat|AVI(*.avi)|*.avi|MP3(*.mp3)|*.mp3"
Try
IfOpenFileDialog1.ShowDialog=Windows.Forms.DialogResult.OKThen
PictureBox1.Visible=False
W1.Visible=True
Button2.Enabled=True
Button3.Enabled=True
Button4.Enabled=True
fname=OpenFileDialog1.FileNames
W1.Show()
Fori=0Tofname.Length-1Step1
W1.URL=fname(i)
Next
Label1.Text=W1.URL
EndIf
CatchexAsException
MessageBox.Show("没找到音乐呢亲~~","友情提示",MessageBoxButtons.OK,MessageBoxIcon.Error,MessageBoxDefaultButton.Button1)
EndTry
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
W1.Ctlcontrols.play()
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
W1.Ctlcontrols.pause()
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
W1.Ctlcontrols.stop()
EndSub
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
IfMessageBox.Show("您真要退出吗亲?
","退出确认",MessageBoxButtons.YesNo)=Windows.Forms.DialogResult.YesThen
Me.Close()
End
EndIf
EndSub
PrivateSubPictureBox2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
EndSub
EndClass
6、运行调试:
开始界面:
点击打开按钮后:
任意选择一首歌后:
点击暂停按钮后:
点击停止按钮后:
当点击播放后,执行情况与“任意选择一首歌后”一样,不过又会播放此前点击的歌曲。
当找不到文件时,用户必须自己找到音乐所在的文件夹:
二、总结与体会:
在前三次实验的基础上,本次实验使我更进一步掌握了可视化程序设计的技能。
此次实验的控件可谓都没有接触过,也不知道具体怎么用,只是跟着老师给定的资料一步一步的操作,题目1的scanbutton的编写是个难点,如何读取、如何浏览图片,我在老师资料、XX知识以及同学的帮助下最终实现了预定的浏览界面以及浏览图片;在做实验二的过程中,我一度寻找不到播放器控件,后来在同学的帮助下,我更改了控件的尺寸,然后控件就显示出来了。
不过总体来说,此次实验发现,需要掌握的知识还有很多,而且掌握的知识还是不够牢固,要好好学习基础知识,才能更好的节省时间开销。
这次实验,又增强了我对实际应用的能力和学习的兴趣。
希望下次实验能做的更好。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验