用VB制作图片浏览器
用VB制作图片浏览器 热 荐 ???
, 作者:佚名 转贴自:中国计算机维修网 点击数:309 更新时间:2004-12-31
文章录入:肥鱼 ,
减小字体 增大字体
当我们在设置屏幕背景图,或是在你的文件中插入图片时,总要在你的电脑里选择图片。有时打开的图片你不一定满意,你又不得不一个个地打开、关闭„„这样一而再,再而三地重复。如果是“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,当目录发生变化时,文件列
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
框中的文件也相应变化
End Sub
,,,,,,
1
Private Sub Drive1_Change()
Dir1.Path=Drive1,当驱动器变化时,目录列表也相应变化
End Sub
,,,,,,
Private Sub File1_Click()
File1,用来在文本框中显示被选中的图形名 Text1.Text=File1.Path,“\”,
End Sub
,,,,,,
Private Sub File1_DblClick()
\”,File1),当双击文件列表中的文件时, Image1.Picture=LoadPicture(File1.Path,“
文件在图像框中显示出来
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编出自己的绝妙佳作。
[1]
2