VB 做的相册（缩略图预览程序） VB做的小型相册，实际上是一个图片浏览程序，打开时显示缩略图，鼠标点击显示大图片，并可接着浏览下去，程序相关说明： 　　函数功能: 该函数将指定位图的位拷贝到缓冲区里? 　　函数原型：LONG GetBitmapBits(HBITMAP hbmp, LONG cbBuffer, LPVOID lpvBits)； 　　参数： 　　hbmp：指向感兴趣的位图的句柄? 　　cbBuffer：指定要从位图拷贝到缓冲区的字节数? 　　lpvBits：指向接收位图位数据的缓冲区指针?这些位是按字节类型存储在数组中的? 　　返回值：如果该函数执行成功，那么返回值就是拷贝到缓冲区的字节数；如果该函数执行失败，那么返回值为0。 　　Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal nwCount As Long, lpBits As Any) As Long 　　 　　函数功能：该函数将位图的颜色数据位设置成指定值? 　　函数原型：LONG SetBitmapBits(HBITMAP hmbp, DWORD cBytes, CONST VOID (lpBits)； 　　参数： 　　hbmp：指向要设置的位图的句柄? 　　cBytes：指定参数lpBits指向的数组的字节数? 　　lpBits：指向字节类型数组的指针?该数组中包含了指定位图的颜色数据? 　　返回值：如果该函数执行成功，则返回值就是在设置位图位时使用的字节数；如果失败，则返回值为0。 　　 　　函数功能：该函数得到指定图形对象的信息，根据图形对象，函数把填满的或结构，或表项（用于逻辑调色板）数目放入一个指定的缓冲区。 　　函数原型：int GetObject(HGDIOBJ hgdiobj, int cbBuffer, LPVOID lpvObject)； 　　参数： 　　hgdiobj：指向感兴趣的图形对象的句柄，它可以是这样的一个句柄：一个逻辑位图、一个刷子、一种字体、一个调色板、笔或通过调用CreateDIBsection函数创建的与设备无关位图。 　　cbBuffer：指定将要写到缓冲区的信息的字节数目?‘lpvObject：指向一个缓冲区的指针，该缓冲区将要检索指定图形对象的信息。 　　 　　函数功能描述：将一块内存的数据从一个位置复制到另一个位置 　　函数原型：VOID CopyMemory(PVOID Destination,CONST VOID *Source,DWORD Length); 　　参数： 　　Destination：要复制内存块的目的地址? 　　Source：要复制内存块的源地址? 　　Length：指定要复制内存块的大小，单位为字节 　　返回值：该函数为VOID型，没有返回值。