If Img_PicIn_Path<>"" then If Not(FileIs(Img_PicIn_Path)) then Img_WaterMark=Errors(0) Exit Function End If Set AspJpeg_Obj_New=createObject("Persits.Jpeg") AspJpeg_Obj_New.Open Img_PicIn_Path AspJpeg_Obj.PreserveAspectRatio = True AspJpeg_Obj_New.PreserveAspectRatio = True If AspJpeg_Obj.OriginalWidth<Img_Reduce_Size or AspJpeg_Obj.OriginalHeight<Img_Reduce_Size then Img_WaterMark=Errors(3) Exit Function End If If AspJpeg_Obj_New.OriginalWidth>AspJpeg_Obj_New.OriginalHeight Then AspJpeg_Obj_New.Width=Img_Reduce_Size Else AspJpeg_Obj_New.Height=Img_Reduce_Size End If If Img_PicIn_X="" then Img_PicIn_X=AspJpeg_Obj.Width-AspJpeg_Obj_New.Width If Img_PicIn_Y="" then Img_PicIn_Y=AspJpeg_Obj.Height-AspJpeg_Obj_New.Height AspJpeg_Obj.DrawImage Img_PicIn_X,Img_PicIn_Y,AspJpeg_Obj_New Set AspJpeg_Obj_New=Nothing End If If Img_Frame_Size>0 then Call Img_Pen(AspJpeg_Obj) End If If Img_Font_Content<>"" then Call Img_Font(AspJpeg_Obj) End If 'AspJpeg_Obj.Sharpen 1, 130 AspJpeg_Obj.Save Img_MathPath_To End Function '生成框架 Private Function Img_Pen(Obj) If Img_Frame_Width=0 then Img_Frame_Width=Obj.Width If Img_Frame_Height=0 then Img_Frame_Height=Obj.Height Obj.Canvas.Pen.Color = Img_Frame_Color Obj.Canvas.Pen.Width = Img_Frame_Size Obj.Canvas.Brush.Solid = Img_Frame_Solid Obj.Canvas.Bar 1,1,Img_Frame_Width,Img_Frame_Height End Function '生成水印字 Private Function Img_Font(Obj) Obj.Canvas.Font.Color = Img_Font_Color Obj.Canvas.Font.Family = Img_Font_Family Obj.Canvas.Font.Quality=Img_Font_Quality Obj.Canvas.Font.Size=Img_Font_Size Obj.Canvas.Font.Bold = Img_Font_Bold Obj.Canvas.Print Img_Font_X,Img_Font_Y,Img_Font_Content End Function End Class %>
精品推荐