用bitmap生成图片,PS软件打不开 Post By:2018/1/26 23:27:00 [只看该作者]
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 ))