File1.ListIndex=n
Image1.Picture=LoadPicture(File1.Path&"\"&File1.List(n))
EndIf
EndSub
PrivateSubCommand5_Click()
Drive1.Visible=True
Dir1.Visible=True
File1.Visible=True
EndSub
五.效果及存在问题
5.1程序的效果:
该程序运行能清楚的显示图片。
而且,不仅可以改变图片的大小,且可以切换图片的上下张。
此图片浏览器与系统的图片浏览器非常相似,不会显示出系统盘符,文件夹和文件的列表!
图片浏览器查找图片的运行情况
5.2显示图片的情况:
图片的浏览情况
5.3:
图片浏览器扩大的情况:
图片的放大情况
5.4图片浏览器缩小的情况:
图片的缩小情况
5.5存在的问题:
该程序虽然与系统的图片浏览器相似,但是,没有系统图片浏览器那么友好的界面和那么精巧的控件。
六.实验心得
通过几天的课程实验,使我对于VB课程的实验和程序设计有了更深层次的了解,特别是明白了文件操作和图片操作的用法,在老师的指导和帮助以及自己的努力下终于完成了程序设计课题,实现了图片浏览器的操作。
VB的课程设计,对于我们来说是一个锻炼,它提升了我们的编程水平。
几天的上机操作,使我们学到了更多的VB知识,而且我们在编程期间,学会了协作,团结,为我们积累了资本。
总之,这次课程设计让我受益匪浅,我将会继续学习VB知识,提高水平。
七.参考文献
1.《VB程序设计》莫德举,夏涛北京邮电大学出版社
2.《VisualBasic程序设计综合教程》朱从旭清华大学出版社
3.《VisualBasic程序设计》赵万龙中国铁道出版社
4.《VisualBasic程序设计基础教程》黄学平中国科学技术出版社
八.图片浏览器程序的代码
PrivateSubCommand1_Click()
Image1.Stretch=True
Image1.Width=Image1.Width*2
Image1.Height=Image1.Height*2
Image1.Left=(Form1.ScaleWidth-Image1.Width)/2
EndSub
PrivateSubCommand2_Click()
Image1.Stretch=True
Image1.Width=Image1.Width/2
Image1.Height=Image1.Height/2
Image1.Left=(Form1.ScaleWidth-Image1.Width)/2
EndSub
PrivateSubCommand3_Click()
n=File1.ListIndex
n=((File1.ListCount+(n-1))ModFile1.ListCount)
File1.ListIndex=n
Image1.Picture=LoadPicture(File1.Path&"\"&File1.List(n))
Image1.Left=(Form1.ScaleWidth-Image1.Width)/2
EndSub
PrivateSubCommand4_Click()
n=File1.ListIndex
n=((n+1)ModFile1.ListCount)
File1.ListIndex=n
Image1.Picture=LoadPicture(File1.Path&"\"&File1.List(n))
Image1.Left=(Form1.ScaleWidth-Image1.Width)/2
EndSub
PrivateSubCommand5_Click()
Image1.Visible=False
Drive1.Visible=True
Dir1.Visible=True
File1.Visible=True
EndSub
PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub
PrivateSubFile1_Click()
Image1.Picture=LoadPicture(File1.Path&"\"&File1.FileName)
Drive1.Visible=False
Dir1.Visible=False
File1.Visible=False
Image1.Visible=True
Image1.Top=50
Image1.Left=(Form1.ScaleWidth-Image1.Width)/2
EndSub
PrivateSubForm_Load()
Image1.Visible=False
Drive1.Visible=False
Dir1.Visible=False
File1.Visible=False
File1.Pattern="*.jpg;*.gif;*.bmp"
EndSub
PrivateSubForm_Resize()
Command1.Top=Form1.ScaleHeight-800
Command2.Top=Form1.ScaleHeight-800
Command3.Top=Form1.ScaleHeight-800
Command4.Top=Form1.ScaleHeight-800
Command5.Top=Form1.ScaleHeight-800
Command1.Left=Form1.ScaleWidth/5*3-1315
Command2.Left=Form1.ScaleWidth/5*4-1315
Command3.Left=Form1.ScaleWidth/5*1-1315
Command4.Left=Form1.ScaleWidth/5*2-1315
Command5.Left=Form1.ScaleWidth/5*5-1315
Image1.Top=50
Image1.Left=(Form1.ScaleWidth-Image1.Width)/2
EndSub