登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

利用Image控件实现图形浏览程序  

2007-08-21 18:12:12|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
---- 以下有关用VB实现的一个浏览*.bmp的程序。而且由于Image控件的特性我们还同时可以浏览 .jpg .gif .ioc .cur .wmf 加上BMP一共6种格式的图形文件我们决定用Image控件因为他比PictureBox更适合我们,可是我们怎样实现任意目录下的Loadpicture呢?
---- 下面的这个程序非常简单,有VB的朋友花10分钟即可完成.

---- 开始;

---- 在File菜单上单击“New Project”对话框,然后单击OK按钮创建新的标准可执行文件。出现一个空白的窗体 飞快地从工具箱中抓出DriveListBox(驱动器列表框)控件;DirListBox(目录列表框)控件,FileListBox(文件列表框)控件,Image(图象)控件。放在Form1上调整好大小。当程序运行后VB把选中的文件名放置到文件列表框对象的Filename属性中。驱动器列表框对象的Drive属性和目录列表框对象的Path属性分别保存用户在驱动器和目录列表框中选择的驱动器和目录。我们就使用这三个属性来打开用户选择的图像文件名。然后在Tools(工具)菜单中单击Options(选项)菜单项,然后单击Editor(编辑器)选项卡。如果quire Variable Declaration(要求变量声明)复选框被选中,那么单击该复选框去掉选中符号。

按F4设置窗口属性
将File1的 Pattern属性设为
(*.bmp;*.jpg;*.ico;*.cur)分号不可少,
将Image1的Stretch属性设为 True
将Image1的BorderStyle属性设为 1 Fixed Single
按F7写代码
---- 在Drive1_Change中PrivateSub和End Sub语句之间键入:

dir1.path = Drive1.Drive

在Dir1_Change事件过程中增加:
File1.Path = Dir1.Path

在File1_Click事件过程中增加:
SelectedFile = File1.Path &
"\" & File1.Filename

Image1.Picture = LoadPicture(SelectedFile ) 
  评论这张
 
阅读(430)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018