VB制作图片浏览器.doc

《VB制作图片浏览器.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB制作图片浏览器当我们在设置屏幕背景图，或是在你的文件中插入图片时，总要在你的电脑里选择图片。有时打开的图片你不一定满意，你又不得不一个个地打开、关闭……这样一而再，再而三地重复。如果是“Photoshop”这样的大软件运行起来更是慢得不得了。不但烦躁，而且还浪费了你很多宝贵时间。这时，你是不是觉得“电脑”有点像“猪脑”呢？不过，别急！幸好我用VB编了一个小小的程序，可以解决这个问题，你不妨试试！下面分步设置各控件的属性：　　1.设置窗体的Caption属性为“图片浏览器”，BorderStyle属性为3,即窗体大小不能改变。　　2.设置Label1的属性为“当前驱动器”，Label2的属性

2、为“当前目录”，Label3的属性为“当前文件”；Label4的属性为“当前图像”，Label5的属性为“当前文件路径”。　　3.设置Text1的Text属性为空。　　4.设置Image1的Stretch属性为True，即所装入的图形能够缩放以适应图像框大小。　　5.设置Command1的Caption属性为“确定”，Command2的Caption属性为“退出”。　　具体的程序源代码如下：　　PrivateSubCommand1_Click（）　　Image1.Picture=LoadPicture（Text1.Text）＇当单击“确定”时，文本框中的文件在图像框中显示出来　　EndSub　

3、　－－－－－－　　PrivateSubCommand2_Click（）＇当单击“退出”时，弹出是否退出系统对话框　　DimexiAsString　　exi=MsgBox（“您真的想退出吗？”，vbYesNo＋vbQuestion＋vbDefaultButton1，“退出”）　　Ifexi=vbYesThen　　End　　EndIf　　EndSub　　－－－－－－　　PrivateSubDir1_Change（）　　File1.Path=Dir1＇当目录发生变化时，文件列表框中的文件也相应变化　　EndSub　　－－－－－－　　PrivateSubDrive1_Change（）　　Dir1.Pa

4、th=Drive1＇当驱动器变化时，目录列表也相应变化　　EndSub　　－－－－－－　　PrivateSubFile1_Click()　　Text1.Text=File1.Path＋“”＋File1＇用来在文本框中显示被选中的图形名　　EndSub　　－－－－－－　　PrivateSubFile1_DblClick（）　　Image1.Picture=LoadPicture（File1.Path＋“”＋File1）＇当双击文件列表中的文件时,文件在图像框中显示出来　　EndSub　　－－－－－－　　PrivateSubForm_Load（）　　Command1.Enabled=False

5、＇在未选择图形文件时“确定”按钮不可用　　File1.Pattern=“＊.bmp；＊.jpg；＊.ico；＊.cur”＇在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件　　EndSub　　－－－－－－　　PrivateSubText1_Change()　　Command1.Enabled=True＇当文本框中的内容变化时使“确定”按钮可用　　EndSub　　好了，按“F5”键运行一下吧！你还满意吗？通过这个小小的程序，希望广大初学VB的读者能从本文中受到小小的启发，然后能用VB6.0编出自己的绝妙佳作。