[mini]

不知道你的 jpg存檔函式(如何存檔的程式碼)是...?

DPI 是 像素/英吋
只是一個記錄於 jpg檔之檔頭上的資訊
要改變的話
只要將檔頭資訊取出，改變 XResolution、YResolution 兩個參數的值，再寫回檔頭便可以了

可以用二進位開檔方式將資訊取出
改寫後再寫回

檔案是以 十六進制 方式記載
位址在 第14+15位元組 及 第16+17位元組 上
比如 水平及垂直解析度都是96 dpi的話就是
第十四位元組 --> 00 60 00 60 <--第十七位元組

Private Sub Command3_Click()
Dim byteData(17) As Byte

    Open "r:\hh.jpg" For Binary Access Read As #1
    Get #1, , byteData()
    Close #1
    
    '將影像解析度改成 72 DPI
    byteData(15) = 72
    byteData(17) = 72
    
    Open "r:\hh.jpg" For Binary Access Write As #1
    Put #1, , byteData()
    Close #1
    Erase byteData

End Sub