查看單個文章
舊 2009-08-02, 10:42 AM   #4 (permalink)
mini
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:97 | 在線時長:9810小時 | 升級還需:186小時級別:97 | 在線時長:9810小時 | 升級還需:186小時級別:97 | 在線時長:9810小時 | 升級還需:186小時級別:97 | 在線時長:9810小時 | 升級還需:186小時級別:97 | 在線時長:9810小時 | 升級還需:186小時級別:97 | 在線時長:9810小時 | 升級還需:186小時級別:97 | 在線時長:9810小時 | 升級還需:186小時
註冊日期: 2002-12-07
文章: 13317
精華: 0
現金: 26373 金幣
資產: 3024233 金幣
預設

改成

語法:
   Dim sTmp As String
   With CommonDialog2
        .FileName = ""
        .Filter = "JPEG files (*.jpg) |*.jpg|BMP files (*.bmp) |*.bmp"
        .ShowSave
        If .FileName = "" Then Exit Sub
        
        sTmp = LCase(Right(.FileName,3)) '得到最右邊的副檔名並統一轉成小寫
             If sTmp = "bmp" Then
            SavePicture Picture1.Image, .FileName

        ElseIf sTmp = "jpg" Then
            SaveJPG Picture1.Image, .FileName, 100 '品質從1~100
            'SaveJPG 參考 http://forum.slime.com.tw/thread250858.html#post2179045
            '**圖像改解析度**
            Dim byteData(17) As Byte

            Open .FileName For Binary Access Read As #1
            Get #1, , byteData()
            Close #1
    
            '將影像解析度改成 300 dpi = 十六進制 01 2C
            byteData(14) = &H01
            byteData(15) = &H2C
            byteData(16) = &H01
            byteData(17) = &H2C
    
            Open .FileName For Binary Access Write As #1
            Put #1, , byteData()
            Close #1
            '**************
        EndIf
   End With
mini 目前離線  
送花文章: 2007, 收花文章: 7984 篇, 收花: 26785 次
回覆時引用此帖
向 mini 送花的會員:
羅迪 (2009-09-19)
感謝您發表一篇好文章