怎样用VB编程弄一个相册？

首先把那些人的相片都放到一个文件夹里 (比如D:\PHTO 文件夹里,并且名字命名为 相片主人的名字名字+1名字+2......)

新建扒缓一吵此茄个工程, 添加 TEXT1.TEXT , 按钮 , IMAGE 控件.

按钮的单击代码,我只说大概:

IF TEXT1.TEXT = "自己的照片" THEN

image.picture=loadpicture("d:\photo\" + TEXT1.TEXT + ".JPG")

然后在添加个按钮升察, 名字为: 下一张

单击代码: image.picture=loadpicture("d:\photo\自己的照片" + "1" + ".JPG")

BitBlt

StretchBlt

小程序中获取图片可通过两种方式得到，第一种是直接打开微信内部自己的样式，第一格就是相机拍照，后面是图片，第二种是d框提示用户是要拍照还是从相册选择，下面一一来看。

选择相册要用到wx.chooseImage(OBJECT)函数，具体参数答滚大如下：

直接来看打开相机相册的代码：

Page({   data: {    tempFilePaths: ''   },   onLoad: function () {   },   chooseimage: function () {    var that = this   wx.chooseImage({     count: 1, // 默认9      sizeType: ['original', '备模compressed'], // 可以指定是原图还是压缩图，默认二者都有      sourceType: ['album', 'camera'], // 可以指定来源是相册还是相机，默认二者都有      success: function (res) {      // 返回选定照片的本地文件路径列表，tempFilePath可以作为img标签的src属性显示图片       that.setData({       tempFilePaths: res.tempFilePaths      })     }    })     },          })      

方法一效果图如下：

个人认为第二种清竖用户体验要好一点，效果如下：

点击获取d框提示，代码如下：

Page({   data: {    tempFilePaths: ''   },   onLoad: function () {   },   chooseimage: function () {    var that = this   wx.showActionSheet({     itemList: ['从相册中选择', '拍照'],     itemColor: "#CED63A",     success: function (res) {      if (!res.cancel) {       if (res.tapIndex == 0) {        that.chooseWxImage('album')       } else if (res.tapIndex == 1) {        that.chooseWxImage('camera')       }      }     }    })     },     chooseWxImage: function (type) {    var that = this   wx.chooseImage({     sizeType: ['original', 'compressed'],     sourceType: [type],     success: function (res) {      console.log(res)     that.setData({       tempFilePaths: res.tempFilePaths[0],      })     }    })   }      })      

文件的临时路径，在小程序本次启动期间可以正常使用，如需持久保存，需在主动调用 wx.saveFile，在小程序下次启动时才能访问得到。

布局文件：

<button style="margin:30rpx" bindtap="chooseimage">获取图片</button> <image src="{{tempFilePaths }}" catchTap="chooseImageTap" mode="aspectFit" style="width: 100%height: 450rpx" />   

---