VB制作图片浏览器

  当我们在设置屏幕背景图,或是在你的文件中插入图片时,总要在你的电脑里选择图片。有时打开的图片你不一定满意,你又不得不一个个地打开、关闭……这样一而再,再而三地重复。如果是“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
 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值