使用vb6绿色版做一个简易图片浏览器

悠悠 2022-12-31 11:19 166阅读 0赞

在win10下看一下vb6能不能用；

在设计界面；在窗体上添加一个Drive控件，一个Dir控件，一个File控件，一个PictureBox控件；

Private Sub Dir1_Change()
        File1.Path = Dir1.Path
    End Sub
    
    Private Sub Drive1_Change()
        Dir1.Path = Drive1.Drive
    End Sub
    
    Private Sub File1_Click()
        Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
    End Sub
    
    Private Sub Form_Load()
        File1.Pattern = "*.jpg;*.png;*.jpeg;*.gif"
    End Sub

Drive控件，用于选择驱动器；拖到窗体上，控件中就有本机的各个驱动器；

Dir控件，按上面代码设置了以后，显示当前驱动器下的目录，双击则展开一个目录；

File控件，在窗体启动时设置过滤模式为Pattern属性中的后缀名；

按上面代码设置了以后，在Dir中选中一个目录，则File控件显示此目录下的按Pattern过滤的文件名；

单击File控件中的一个条目，PictureBox控件装载选中的图片；

如果一个目录下图片很多，会在File控件列出；这样就可单击任何图片，然后查看；

这好像是VB的一个特性；其他各种语言，VC++，C\#，等，如果要实现把一台电脑的所有驱动器装入一个下拉框，都自己要编一些程；VB是直接有此控件，拖过去本机驱动器列表就出来；

在Win10下不是很好用；设计界面时容易退出；

运行一下，结果如下；

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2JjYm9ibzIxY24_size_16_color_FFFFFF_t_70][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2JjYm9ibzIxY24_size_16_color_FFFFFF_t_70]: /images/20221120/1a27a71e84e14d3384dd26b8c55c11d6.png

发表评论取消回复

表情：

评论列表（有 0 条评论，166人围观）

还没有评论，来说两句吧...

相关阅读

相关 VC++开发一个简易图片浏览器 - 含目录浏览功能

win7, vc6; 新建一个对话框工程；界面； ![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6L

浅浅的花香味﹌/ 2023年01月05日 14:21/ 0 赞/ 241 阅读

相关使用vb6绿色版做一个简易图片浏览器

在win10下看一下vb6能不能用；在设计界面；在窗体上添加一个Drive控件，一个Dir控件，一个File控件，一个PictureBox控件； Private

悠悠/ 2022年12月31日 11:19/ 0 赞/ 167 阅读

相关安装MySQL（绿色版）

> 前言：MySQL作为目前常用的关系型数据库，在各种项目中使用频率较高，这里介绍免安装版MySQL的安装方法，免安装版比安装包安装更为方便，解压和简单配置后即可使用。 >

深碍√TFBOYSˉ_/ 2022年09月10日 01:29/ 0 赞/ 297 阅读

相关安装VSCode（绿色版）

> 前言：VSCode作为目前最强大的文本编辑器，通过内部的插件市场可满足各种开发需求。使用免安装版可以自定义插件安装位置等，而使用安装包安装只能通过修改快捷方式自定义，十分不

た入场券/ 2022年09月09日 06:13/ 0 赞/ 381 阅读

相关安装Python（绿色版）

> 前言：在Win10系统中安装Python环境，使用安装包有些麻烦，使用嵌入版则仅需解压并配置环境变量即可，省时省力，十分方便。同时还安装包管理器pip。下载嵌入版

骑猪看日落/ 2022年09月09日 00:22/ 0 赞/ 332 阅读

相关 winfrom 程序打包成一个exe(伪绿色版)

原文：[http://www.codingwhy.com/view/57.html][http_www.codingwhy.com_view_57.html] 大家都知道做w

以你之姓@/ 2022年08月21日 10:50/ 0 赞/ 360 阅读

相关 MySql 5.6.36 64位绿色版安装

网上MySQL安装的文章有很多哈，但是今天在自己的笔记本上安装遇到了问题，仅此做下记录。 1、下载MySQL的zip压缩包，在官网https://dev.mysql.com/

缺乏、安全感/ 2022年06月15日 07:07/ 0 赞/ 338 阅读

相关用WPF做一个简易浏览器

微软的WPF（Windows Presentation Foundation）是目前Windows平台上最好用的图形界面框架了。如果想在Windows平台上编写图形界面程序，而

r囧r小猫/ 2022年06月13日 06:36/ 0 赞/ 355 阅读

相关简易图片浏览器！

加上命名空间 using system.io;拖一个PICTUREBOX，两个TEXTBOX string fold = "";//用来存不包含文件后缀名的路

亦凉/ 2022年06月02日 00:39/ 0 赞/ 218 阅读

相关 mysql绿色版安装

导读：MySQL是一款关系型数据库产品，官网给出了两种安装包格式：MSI和ZIP。MSI格式是图形界面安装方式，基本只需下一步即可，这篇文章主要介绍ZIP格式的安装过程。ZIP

比眉伴天荒/ 2021年11月19日 11:56/ 0 赞/ 498 阅读