bmp to jpg

怎样把BMP--JPG??然后写入硬盘

解决方案 »

  1.   

    Option Explicit
    Public fn As StringPrivate Sub Command1_Click()
    cd.Filter = "Bitmaps (*.bmp)|*.bmp"
    cd.ShowOpen
    fn = cd.FileName
    JPGMake1.FileName = fn
    End SubPrivate Sub Command2_Click()
    JPGMake1.Go
    Dim bmpsize, jpgsize As Single
    bmpsize = Int(FileLen(fn) / 1024)
    jpgsize = Int(FileLen(Mid(fn, 1, Len(fn) - 3) & "jpg") / 1024)
    Label1.Caption = "File name: " & vbCrLf & fn & vbCrLf
    Label1.Caption = Label1.Caption & "BMP file size = " & CStr(bmpsize) & " KB" & vbCrLf & "JPG file size = " & CStr(jpgsize) & " KB"
    End SubPrivate Sub HScroll1_Change()
    JPGMake1.Quality = HScroll1.Value
    Label6.Caption = CStr(HScroll1.Value) & " %"
    End Sub
      

  2.   

    有个dll，楼上的就是这个dll的例子，居然不说明，不帖全……晕啊~~