vb6如何实现把一张bmp图片压缩到100k以内，保存出一张新图片

在VB6中，你可以通过图像处理库如Microsoft Image API (Windows GDI) 或者第三方库来压缩BMP图片并保持文件大小在100KB以内。这里提供一个简单的步骤：

1. **打开图片**: 使用`ImageCreateFromFile`函数从原始BMP文件加载图像。

Dim bmp As New Bitmap
Set bmp = ImageCreateFromFile("原图.bmp")

2. **创建压缩位图**: 创建一个新的位图，并指定宽度、高度和颜色深度。通常，你可以选择24位真彩色来减少文件大小。

Dim compBmp As New Bitmap(bmp.Width, bmp.Height, &HRRGB)

3. **复制数据**: 使用`DrawBitmap`将源BMP图象绘制到压缩位图上。

compBmp.DrawBitmap 0, 0, bmp, 0, 0, False, vbDither

4. **压缩和存储**: 可能需要通过改变图片质量或使用其他压缩算法来减小文件尺寸。例如，可以使用`SaveBitmap`方法并将格式设置为JPG，虽然这可能无法保证精确到100KB，但会比BMP格式更小。

compBmp.SavePicture "压缩后的图片.jpg", 0 '这里的0表示默认的质量设置

5. **检查大小**: 用`FileSystemObject`检查新生成的图片大小，如果超过100KB，可能需要调整压缩参数或图像质量。

请注意，VB6并不直接支持现代的无损压缩技术，上述过程可能会导致一定程度的画质损失。如果你需要严格的控制大小并保留高质量，可能需要采用其他编程语言（如C#或Python），结合专门的图片压缩库来完成。