VB如何写代码才能格式化这些图片，转成能够显示的JPG或BMP图，类似格式化工厂……

后缀是jpg不一定就是jpg, JPG格式图片的判断依据是第一个字节和第二个字节的数据是0xff和0xd8，倒数第一个和倒数第二个字节数据分别是0xd9和0xff，如果都对，那么判断此数据为jpg图片数据!

先确定你的图片是否是jpg

你先搞定 windows 自带的看图软件能打开 这种的 jpg 再说吧。VB6 自己可能 没有能力搞定。
据说是 颜色管理 方面的问题，存在问题的文件一般是 使用 微信直接拍的照才有这个问题。

我一般使用 格式工厂 转换下格式，只需要 JPG>JPG 转换一下。

确定是JPG，比如今日头条，手机上是可看到JPG图片的，但在电脑里不行，VB的Picture和Image也看不了，用格式化工厂转换一下，电脑就可以看了

这个方法是知道的，我现在想用VB写代码，自个实现格式化工厂的功能，让手机上的图片在电脑VB中也能看到。

用16进制编辑器查看两个文件有什么不同？然后把不同的地方改过来。可以自己编程解决。

Private Sub Form_Load()
Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
Set IMG = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
IMG.LoadFile "test.bmp"
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
Set IMG = IP.Apply(IMG)
IMG.SaveFile "test.jpg"
End Sub

BMP转JPG格式，支持BMP PNG GIF JPEG TIFF 互转。请指定文件保存的具体路径。

上面哥们总是这不行，那不行的。

[此贴子已经被作者于2023-11-5 19:18编辑过]

附件中的文件是从手机今日头条上下载下来的，VB中的Picture是无法显示的。
用格式化工厂转化一下，就可以用了。

VB代码如何写，才可以转化成VB可以用Picture显示的JPG文件？

你这个图片不是真实的jpg格式。BMP格式和JPG格式，我这边picture控件都能加载。

检测了一下直实的文件格式,结果如下：

= RESTART: C:\Users\Admin\Downloads\1.py
123.jpg
File extension: webp
File MIME type: image/webp

这个图片真实的文件格式是：123.webp，所以你的Picture控件加载不了它。

[此贴子已经被作者于2023-10-31 12:27编辑过]

Private Sub Form_Load()
Const wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
Set IMG = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
IMG.LoadFile "D:\Demo\123.jpg"
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatBMP
Set IMG = IP.Apply(IMG)
IMG.SaveFile "D:\Demo\123.bmp"
Dim pp As StdPicture
Picture1.AutoRedraw = True
Set pp = LoadPicture("D:\Demo\123.bmp")
Picture1.PaintPicture pp, 0, 0, Picture1.Width, Picture1.Height
End Sub

[此贴子已经被作者于2023-11-5 19:19编辑过]