VB做一个简单的图片浏览器，谁有代码？
怎么用VB做一个图片浏览器？
要求做到可以打开图片文件，
可以浏览下一张图片，上一张图片，
可以放大和缩小图片，
最难的是做简略图。
哪个高手有相关代码啊！？
有多少发多少啊！谢谢了。
我是VB新手啊！不太会，呵呵。大家多多帮助啊！
最佳答案
我只会做到下面的代码了.其中:
Dir1-目录列表控件
Drive1-驱动器列表控件
File1-文件列表控件
Image1-图像控件
Text1-文本框控件
Option1-单选控件(Caption为"通过单击浏览")
Option2-单选控件(Caption为"通过双击浏览")
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo DriErr
Dir1.Path = Drive1.Drive
Exit Sub
DriErr:
If Err.Number = 68 Then
If MsgBox("请问要重试还是取消?", vbRetryCancel + vbCritical, "硬盘不存在或光驱没有插入磁盘!") = vbRetry Then
Resume 0
Else
Drive1.Drive = "C:"
Resume Next
End If
End If
End Sub
Private Sub File1_Click()
If Option2.Value = True Then Exit Sub
Dim picFile As String
If Right(Dir1.Path, 1) = "\" Then
picFile = Dir1.Path + File1.FileName Else
picFile = Dir1.Path + "\" + File1.FileName End If
Image1.Picture = LoadPicture(picFile)
Text1.Text = picFile
End Sub
Private Sub File1_DblClick()
If Option1.Value = True Then Exit Sub
Dim picFile As String
If Right(Dir1.Path, 1) = "\" Then
picFile = Dir1.Path + File1.FileName Else
picFile = Dir1.Path + "\" + File1.FileName End If
Image1.Picture = LoadPicture(picFile)
Text1.Text = picFile
End Sub
VB做一个简单的图片浏览器，谁有代码？ 怎么用VB做一个图片浏览器？ 要求做到可以打开图片文件， 可以浏览下一张图片，上一张图片， 可以放大和缩小图片， 最难的是做简略图。 哪个高手有相关代码啊！？ 有多少发多少啊！谢谢了。 我是VB新手啊！不太会，呵呵。大家多多帮助啊！ 最佳答案 我只会做到下面的代码了.其中: Dir1-目录列表控件 Drive1-驱动器列表控件 File1-文件列表控件 Image1-图像控件 Text1-文本框控件 Option1-单选控件(Caption为"通过单击浏览") Option2-单选控件(Caption为"通过双击浏览") Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() On Error GoTo DriErr Dir1.Path = Drive1.Drive Exit Sub DriErr: If Err.Number = 68 Then If MsgBox("请问要重试还是取消?", vbRetryCancel + vbCritical, "硬盘不存在或光驱没有插入磁盘!") = vbRetry Then Resume 0 Else Drive1.Drive = "C:" Resume Next End If End If End Sub Private Sub File1_Click() If Option2.Value = True Then Exit Sub Dim picFile As String If Right(Dir1.Path, 1) = "\" Then
第十三章多窗体程序设计 教学要求： 了解多重窗体应用程序的适用范围与特点，掌握多重窗体应用程序建立的主要步骤；了解多重窗体程序的执行与保存特点，了解Visual Basic工程的结构特点（标准模块、窗体模块、Sub Main过程）；掌握闲置循环与DoEvents语句的用法。 知识点： 多重窗体应用程序；多重窗体应用程序的建立、执行、保存；Visual Basic工程的结构特点；闲置循环与DoEvents语句。 内容导航： 一、建立多重窗体应用程序 （一）多重窗体程序设计有关的语句和方法 1．Load语句。格式：Load 窗体名 2．Unload语句。格式：Unload 窗体名 3．Show方法。格式：[窗体名.]Show[模式] 4．Hide方法。格式：[窗体名.]Hide （二）建立界面 窗体的添加方法有如下4种： 方法一：单击“工程”菜单中的“添加窗体”命令； 方法二：用鼠标右键单击“工程资源管理器”的任何项目，在弹出的快捷菜单中选择“添加”，单击“添加窗体”命令； 方法三：单击工具栏中的“添加窗体”命令； 方法四：通过组合键Alt+P，F。 二、多重窗体程序的执行与保存 （一）指定启动窗体 在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来。要改变启动窗体的执行方法如下： 从“工程”菜单中，选取“工程属性”命令，选取“通用”选项卡，在“启动对象”中，选取要作为新启动窗体的窗体，最后单击“确定”按钮。 （二）保存多窗体程序 为了保存多窗体程序，通常需要一下两步： 1．保存模块。 2．保存工程 （三）装入多窗体程序 装入多窗体程序和装入单窗体程序一样，只要打开工程文件，工程中包括的其他文件便会自动装入内存，而不用一一打开。 三、Visual Basic工程结构 Visual Basic工程分为3个层次：工程级（全局）、模块级和过程级，这对变量与类型的定义和使用都是很重要的。
VB图片浏览器 今天，我们将创建一个能够浏览图片内容的应用程序。当选中所要显示的图片文件名时，应用程序就会显示出图片的内容。运行结果如图所示。 运行结果 技术要点 ●过滤图片文件 ●文件管理控件的使用(Drive,List,File控件) ●滚动条的使用 ●缩放图片 实现步骤 ■新建项目 打开Visual https://www.doczj.com/doc/0e949531.html,，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“PicViewer”，然后选择保存路径。单击“确认”。 ■添加控件 向当前窗体上添加一个DriveListBox控件，一个DirListBox控件，一个FileListBox控件，用来确定图形文件的位置。另外添加两个Picture控件，用于控制图形的显示。另外是一个CheckBox用于控制是否按照控件大小缩放图形，一个Button按钮用来退出程序。还需要添加一个HscrollBar控件和一个VscrollBar控件，当图片不缩放时，且图片大小超出显示区域时，则HscrollBar控件和VscrollBar控件可用。 ■设置属性 切换到“属性栏”，对控件进行属性设置，详细情况见表。 控件属性值
■添加代码 '是否缩放图形 Private Sub Check1_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Check1.CheckStateChanged If Check1.CheckState Then '如果是，则需要重新设置Image控件的大小，否则不能正确显示 Image1.Left = 0 Image1.Top = 0 Image1.Height = picview.Height - 10 Image1.Width = picview.Width - 10 '设置缩放属性为真 Image1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage ShowPic() Else Image1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal ShowPic() End If End Sub '退出应用程序 Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click Me.Close() End Sub '当目录改变时，文件显示也作相应的改变 Private Sub Dir1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Dir1.Change File1.Path = Dir1.Path '如果有图片的话，则显示第一个图片 If File1.FileName = "" Then Exit Sub Else picview.BackgroundImage = System.Drawing.Image.FromFile("") End If End Sub '当驱动器改变时，目录作相应的改变 Private Sub Drive1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Drive1.SelectedIndexChanged Dir1.Path = Drive1.Drive End Sub '单击文件时，显示图片 Private Sub File1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles File1.SelectedIndexChanged ShowPic() End Sub Sub ShowPic() '如果没有图片，则退出 If File1.FileName = "" Then Exit Sub End If Image1.Image = System.Drawing.Image.FromFile(File1.Path & "\" & File1.FileName) '将图片的高和宽与picview的高和宽进行比较，如果都小于，则不显示滚动条 If Image1.Width > picview.Width Then '如果宽大于picview的宽，则显示水平滚动条 Image1.Left = 0
Android超炫图片浏览器代码 使用过Android自带的gallery组件的人都知道，gallery实现的效果就是拖动浏览一组图片，相比iphone里也是用于拖动浏览图片的coverflow，显然逊色不少。实际上，可以通过扩展gallery，通过伪3D变换可以基本实现coverflow的效果。本文通过源代码解析这一功能的实现。具体代码作用可参照注释。 最终实现效果如下： 要使用gallery，我们必须首先给其指定一个adapter。在这里，我们实现了一个自定义的ImageAdapter，为图片制作倒影效果。 传入参数为context和程序内drawable中的图片ID数组。之后调用其中的createReflectedImages()方法分别创造每一个图像的倒影效果，生成对应的ImageView数组，最后在getView()中返回。 /* * Copyright (C) 2010 Neil Davies * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at * * https://www.doczj.com/doc/0e949531.html,/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * See the License for the specific language governing permissions and * limitations under the License. * * This code is base on the Android Gallery widget and was Created * by Neil Davies neild001 'at' gmail dot com to be a Coverflow widget * * @author Neil Davies */ public class ImageAdapter extends BaseAdapter { int mGalleryItemBackground; private Context mContext; private Integer[] mImageIds ;
学习窗体美化不错的知识 ==================================================================================== 相信大家看过许多形状怪异的窗口吧？可是在VB里，系统提供的只是一个矩形的窗体。如何在VB里实现这种异形窗体呢？ 其实原理很简单。首先，在内存中构建一个想要的图形，再通过API函数将窗体设置为此形状，最后将图片放上去就可以了。关键在于如何构建这个想要的图形。让我们看看下面这个图： 。 这张图片中既有白色，也有其他彩色，而我们想要的颜色正是除白色以外的其它颜色。我们可以这样想：在内存中创建一幅一样大小的空的图像，然后只把我们需要的颜色（即非白色）输入内存。这样，就可以创建出我们想要的图形了。 以上是原理，接下来介绍几个API函数。 GetPixel：获取指定对象的某个点的颜色。 定义为：Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 其中hdc为图形对象的句柄，x、y为坐标。 SelectObject：向内存中的指定地点输入图形。 定义为：Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 其中hdc为内存中图形对象的句柄，hObject为欲输入的图像。 CreateCompatibleDC：在内存中创建一个与指定对象一样的场景（可以理解为图像）。 定义为：Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long 其中hdc为指定对象的句柄。 DeleteObject：删除GDI对象（在这里用来删除用完的内存中的图形）。记住，用完后释放资源是非常重要的！ 定义为：Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
长沙学院课程设计说明书 题目Android图片浏览器 系(部) 计算机科学与技术 专业(班级) 软件工程(10软件6班) 姓名彭成辉 学号2010022504 指导教师杨凤年 起止日期2013.05.27～2013.06.21
课程设计任务书 课程名称：综合实训Ⅱ 题目：Android图片浏览器 已知技术参数和设计要求： 设计基于Android平台的图片浏览器程序，具体要求如下： 1.图片文件的管理功能。在配置文件中配置访问SD卡文件的权限，使用File类访问SD卡上的图片文件。 2.用户浏览图片的功能。用户通过触摸屏操作选择图片进行浏览，使用事件响应函数响应用户的操作，可以使用ImageView在屏幕中显示图片。 3.用户编辑图片的功能。用户可以放大、缩小、旋转和裁剪图片。 4.设置壁纸功能。将选择的图片设置为壁纸，可以使用WallPaper类来完成该功能。 5.图片文件的排序功能和查找功能。根据文件的名称、日期或者其他属性进行排序，根据文件的名称、日期或者其他属性进行查找。 6.使用多种视图展示图片的功能。可以使用ListView、GridView或者Gallery类来展示图片。各阶段具体要求： （1）开发前的准备：Android开发环境的搭建。 （2）系统分析与设计：包括程序需求分析、UI设计、业务逻辑设计等。 （3）系统编码实现：根据以上六点要求，对Android图片浏览器进行编码实现。 （4）测试：编写测试用例对程序进行测试。 设计工作量： （1）软件设计：完成问题陈述中所提到的软件以及工作量要求。 （2）论文：要求撰写不少于3000个文字的文档，详细说明各阶段具体要求。 工作计划： 安排4周时间进行综合实训。 第一周----Android开发环境的搭建，软件需求分析。 第二周----UI设计、业务逻辑设计。 第三、四周----Android图片浏览器的代码实现与软件测试。 注意事项 ?提交文档 长沙学院课程设计任务书（每学生1份） 长沙学院课程设计论文（每学生1份） 长沙学院课程设计鉴定表（每学生1份） 指导教师签名：日期：2013-5-26 教研室主任签名：日期： 系主任签名：日期：
图片遮罩效果（附代码及应用方法） 上面遮罩图片浏览器代码： <DIV align=center><EMBED src=https://www.doczj.com/doc/0e949531.html,/tpll/qhbkwtzd.swf width=880 height=585 type=application/x-shockwave-flash quality="high" flashvars="tpt=https://www.doczj.com/doc/0e949531.html,/c/2014-08/26/&a mp;tp=11/201408261159377161-761703.jpg|11/20140826 1159586251-761703.jpg|12/201408261200194211-76170 3.jpg|12/2014082612004111-761703.jpg|12/20140826120 109261-761703.jpg|12/201408261201316361-761703.jpg &tpw=图片网址不同部分简写 &cc=1024*683&解说词参数列表 &qhfs=0&qhsj=15&txbh=01| 16|31|47|60|81|90" invokeURLs="false" wmode="transparent" allowNetworking="internal" allowScriptAccess="never"></DIV> 这是一款通用图片浏览器，可以根据图片的大小，决定SWF（图片浏览器）宽度和高度的。有百余款图片切换特效,可任意选择。可配每张图片的简单解说词。不需要上传
经典VB基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。
（一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等； ③最下面是布局窗口，里面显示程序运行时的位置，拖动里面的小框可以改变程序的显示位置。 4、下面修改窗体的属性，在右侧的属性窗口中找到Caption项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption是设置一个应用程序的窗口标题，再在属性窗口
效果演示： https://www.doczj.com/doc/0e949531.html,/slideshow/ 难点：响应鼠标事件实现滑动效果 项目目录： files文件夹下的几个文件夹都是放的图片，fullsize里面是大图，thumbs里面是小图。其中那个.png文件是测试用的图片 页面部分：
