当我们在设置屏幕背景图，或是在你的文件中插入图片时，总要在你的电脑里选择图片。有时打开的图片你不一定满意，你又不得不一个个地打开、关闭……这样一而再，再而三地重复。如果是“photoshop”这样的大软件运行起来更是慢得不得了。不但烦躁，而且还浪费了你很多宝贵时间。 这时，你是不是觉得“电脑”有点像“猪脑”呢？不过，别急！幸好我用vb编了一个小小的程序，可以解决这个问题，你不妨试试！
下面分步设置各控件的属性：
1.设置窗体的caption属性为“图片浏览器”，borderstyle属性为3,即窗体大小不能改变。
2.设置label1的属性为“当前驱动器”，label2的属性为“当前目录”，label3的属性为“当前文件”；label4的属性为“当前图像”，label5的属性为“当前文件路径”。
3.设置text1的text属性为空。
4.设置image1的stretch属性为true，即所装入的图形能够缩放以适应图像框大小。
5.设置command1的caption属性为“确定”，command2的caption属性为“退出”。
具体的程序源代码如下：
| private sub command1_click（） image1.picture=loadpicture（text1.text）＇当单击“确定”时，文本框中的文件在图像框中显示出来 end sub －－－－－－ private sub command2_click（）＇当单击“退出”时，弹出是否退出系统对话框 dim exi as string exi=msgbox（“您真的想退出吗？”，vbyesno＋vbquestion＋vbdefaultbutton1，“退出”） if exi=vbyes then end end if end sub －－－－－－ private sub dir1_change（） file1.path=dir1＇当目录发生变化时，文件列表框中的文件也相应变化 end sub －－－－－－ private sub drive1_change（） dir1.path=drive1＇当驱动器变化时，目录列表也相应变化 end sub －－－－－－ private sub file1_click() text1.text=file1.path＋“\”＋file1＇用来在文本框中显示被选中的图形名 end sub －－－－－－ private sub file1_dblclick（） image1.picture=loadpicture（file1.path＋“\”＋file1）＇当双击文件列表中的文件时,文件在图像框中显示出来 end sub －－－－－－ private sub form_load（） command1.enabled=false＇在未选择图形文件时“确定”按钮不可用 file1.pattern=“＊.bmp；＊.jpg；＊.ico；＊.cur”＇在文件列表框中显示扩展名为.bmp、.jpg、.ico、.cur的文件 end sub －－－－－－ private sub text1_change() command1.enabled=true＇当文本框中的内容变化时使“确定”按钮可用 end sub |
好了，按“f5”键运行一下吧！你还满意吗？通过这个小小的程序，希望广大初学vb的读者能从本文中受到小小的启发，然后能用vb 6.0编出自己的绝妙佳作。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
