主题：用bitmap生成图片,PS软件打不开

Dim img As image = getImage(E:\ima\图片.jpg")
Dim bmp As bitmap
If img.width > 5000 And img.height > 5000 Then
    If img.width > img.height Then
        bmp = new bitmap(img, 5000,img.height *( 5000 / img.width )) 

        bmp.save(ProjectPath & "\Convert image\图片.jpg")
        bmp.Dispose

  endif

 endif

重新生成的图片,用PS软件打开提示:因为找到不知名的或无效的JPEG标志符类型

请教老师们解决的办法,谢谢

找到方法了

bmp.save(ProjectPath & "\Convert image\图片.jpg",System.Drawing.Imaging.ImageFormat.Jpeg)

这样就OK了