|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：李满园 日期：2005-8-4 11:23:07 |
|
|
---- 以下有关用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 ) |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 李满园 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:23:07 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]