[怎样用VB做一个图片浏览器]Public Class Form1 Dim i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click i = i - 1 If (i...+阅读

主要思路：1.将指定目录下的图片文件添加到一个ArrayList中2.通过按钮来控制ArrayList的指针值3.通过将File对象转化为Bitmap对象，然后使用ImageView的setImageBitmap（)方法来显示图片。首先是布局：界面是介个样子的：然后是Java代码：package com.numeron.myimagebrowser; import android.graphics.Bitmap; import android.graphics.BitmapFactory; import android.support.v7.app.AppCompatActivity; import android.os.Bundle; import android.view.View; import android.widget.Button; import android.widget.ImageView; import android.widget.Toast; import java.io.BufferedInputStream; import java.io.File; import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.IOException; import java.util.ArrayList; import static android.os.Environment.getExternalStorageDirectory; public class MainActivity extends AppCompatActivity implements View.OnClickListener{ private Button pre,next; private ImageView imageView; private ArrayListimages; private int i = 0; Override protected void onCreate(Bundle savedInstanceState) { super.onCreate(savedInstanceState); setContentView(R.layout.activity_main); this.images = getPath（)； //获取本地图片集合 init（)； }/*** 对布局文件进行初始化* */ private void init(){ pre = (Button) findViewById(R.id.pre); pre.setOnClickListener(this); next = (Button) findViewById(R.id.next); next.setOnClickListener(this); imageView = (ImageView) findViewById(R.id.imageview); showImage(0)； }/*** 为按键添加监听事件* 实际上就是控制ArrayList集合中指针的数据来显示图片* 速度较慢，每次都需要重新读取。

* */ Override public void onClick(View v) { switch(v.getId()){ case R.id.pre:i --; if(i= images.size()) { i = images.size() - 1; Toast.makeText(this， ＂已经是最后一张了＂， Toast.LENGTH_SHORT).show(); break; } showImage(i); break； } }/*** 通过文件获取流，将流转化为Bitmap对象* */ private Bitmap getBMP(File file){ BufferedInputStream in = null; Bitmap BMP = null; try{ in = new BufferedInputStream(new FileInputStream(file)); BMP = BitmapFactory.decodeStream(in); } catch (FileNotFoundException e) { Toast.makeText(this， ＂程序异常！＂， Toast.LENGTH_SHORT).show(); } finally { if(in != null) try { in.close(); } catch (IOException e) { e.printStackTrace(); } } return BMP； }/*** 将指定目录下的指定格式的文件存到入集合中。

* */ private ArrayListgetPath(){ ArrayListal = new ArrayList(); File myphotos = new File(getExternalStorageDirectory(),＂DCIM＂); File[] files = myphotos.listFiles(); for (File file : files) { if(file.exists() & file.isFile() & isImage(file)){ al.add(file); } } return al； }/*** 设置文件过滤器，只需要指定格式的文件* */ private boolean isImage(File file){ String[] strs = {＂.jpg＂,＂.png,＂}; for (String str : strs) { return file.getName().endsWith(str); } return false； }/*** 设置文件的* */ private void showImage(int i){ imageView.setImageBitmap(getBMP(this.images.get(i))); } }

以下为关联文档：

怎么用VB做图片浏览器VB6.0实现图片旋转 使用过ACDSEE的朋友一定对它的JPG图片旋转功能记忆犹新，其实我们利用VB6的先进功能，可以对任意格式的图片文件（包括JPG、GIF、BMP、ICO等）进行45度、180度旋...

如何用VB调用windows图片浏览器Private Sub Command1_Click() Dim strPicPath As String strPicPath = ＂C:\Documents and Settings\Administrator\My Documents\My Pictures\1.jpg＂ strPicPath = ＂＂＂＂ & strPic...

怎么用vb编写一个图片浏览器呢Dim i% '用按钮更换图片 Private Sub Command1_Click() i = i + 1 If i > 5 Then i = 0 Image1.Picture = LoadPicture(App.Path & ＂\0＂ & i & ＂.jpg＂) End Sub '初始化 Private...

VB制作一个图片浏览器！100分！简单点的啊。窗体上放一个timer1、一个picture1和一个file1控件，然后复制下列代码即可。 Const DR As String = ＂G：\下载＂ '图片所在文件夹 Dim NI As Integer Private Sub Form...

vb制作图片浏览器要怎么实现如WINDOWS自带的图片浏览器的最合没有代码，只好我自己写一个给你啰。试试这个代码。 ================== Option Explicit Dim R As RECT Dim Ratio As Single Private Type RECT Left As Long Top As Long R...

用VB设计一个图片浏览器这个是以前做的一个。 括号里面是图片的路径，当时晕晕乎乎的弄的 Private Sub Picture1_Paint() Picture1.PaintPicture Picture1, 0, 0, Picture1.Width, Picture1.Height E...

搜狗浏览器不显示图片1. 对比IE是否正常。复制这个地址一模一样的到IE里面。如果也不正常，需要修改DNS网址解析服务器地址。改为223.5.5.5 备用114.114.114.114，。用了路由改路由的或者本地连接属...

搜狗浏览器显示不了图片其他浏览器可以1.搜狗是双核浏览器，兼容模式调用IE，用来浏览只兼容IE的网页，高速模式是独立核心。试试修复安装最新版搜狗浏览器，并试试在地址栏右边换浏览模式。 2.在搜狗浏览器右上角的菜单-...

浏览器不显示图片仔细看看其他的网站图片可以显示么？ 比如说QQ官方的，163官方的等等！ 去大的网站检测，一般大的网站图片都会显示出来不会出错！ 如果能显示 说明内个网站链接的问题！ 如果不能显示，说...