日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

關于Aspjpeg簡例的學習分享

作者:  來源:  發布時間:2011-6-14 15:14:24  點擊:
 這篇文章主要跟大家提供的是關于Aspjpeg簡例的分享,希望能給大家帶來幫助或啟發。
Set objImg = Server.CreateObject("Persits.Jpeg")
objImg.Interpolation = 2
\\\'影像加強 0-2
objImg.open xFilePath
response.write "<:::原始值:::>
AspJpeg版本=" & objImg.Version & "
寬=" & objImg.OriginalWidth & "像素
" & "高=" & objImg.OriginalHeight & "像素
"
response.write "品質=" & objImg.Quality & " (0-100)
" & "路徑=" & objImg.Version & "
"

\\\'objImg.Width = objImg.OriginalWidth / 2
\\\'變更圖片寬度(范例為50%)
\\\'objImg.Height = objImg.OriginalHeight / 2
\\\'變更圖片高度(范例為50%)
\\\'objImg.Sharpen 2, 250
\\\'銳利處理
\\\'objImg.Crop 0,0,150,150
\\\'切割處理
\\\'objImg.FlipH
\\\'左右翻轉
\\\'objImg.FlipV
\\\'上下翻轉
\\\'objImg.RotateL
\\\'向左旋轉90度
\\\'objImg.RotateR
\\\'向右旋轉90度

\\\' 將圖片秀上文字:------------------------
objImg.Canvas.Font.Color = &HFF0000
\\\'顏色
objImg.Canvas.Font.Family = "細明體"
\\\'字型
objImg.Canvas.Font.Bold = True
\\\'是否使用粗體
objImg.Canvas.Font.BkMode = False
\\\'是否使用字體背景色
objImg.Canvas.Font.BkColor = &H000000
\\\'字體背景色
objImg.Canvas.Font.Italic = False
\\\'是否使用斜體字
objImg.Canvas.Font.Rotation = 0
\\\'字體旋轉角度
objImg.Canvas.Font.ShadowColor = &H000000
\\\'字影顏色
objImg.Canvas.Font.ShadowXOffset = 50
\\\'字影X坐標
objImg.Canvas.Font.ShadowYOffset = 150
\\\'字影Y坐標
objImg.Canvas.Font.Size = 14
\\\'字體大小
objImg.Canvas.Font.Underlined = True
\\\'是否加底限
objImg.Canvas.Circle 100,100,10
\\\'畫圓圈
objImg.Canvas.Pen.Color = &H009900
\\\'畫圓的圓內填滿顏色
objImg.Canvas.Pen.Width = 1
\\\'畫圓的圓周粗細值
objImg.Canvas.Ellipse 0,0,150,150
\\\'畫橢圓
objImg.Canvas.Line 0,0,150,150
\\\'畫線
\\\'objImg.Canvas.Arc = 100,50,0,200
\\\'---不清楚這個用法--

objImg.Canvas.Print 100, 100, "I am Odysseus" ,136
\\\'位置及文字---------------------------------


\\\' 編輯圖片外框:----------------------------
objImg.Canvas.Pen.Color = &H000000
\\\'圖片外框顏色
objImg.Canvas.Pen.Width = 1
\\\'圖片外框寬度(像素)
objImg.Canvas.Brush.Solid = False
\\\'是否使用區域內填滿
objImg.Canvas.Brush.Color = &HFF0000
\\\'區域內填滿顏色
objImg.Canvas.Bar 5, 5, objImg.Width, objImg.Height
\\\'框線產生位置------------------------------

objImg.save xFileCopyToPath
response.write "<:::變化后:::>
寬=" & objImg.Width & "像素
" & "高=" & objImg.Height & "像素
"
Set objImg = Nothing

相關軟件

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 白血公主| 吴彦祖《偷窥无罪》| 布丽特妮·罗伯森| 吴妍儿| 情人电影在线观看高清完整版泰剧| 大奉打更人电视剧免费在线观看| 陕09j01图集| 电影《上一当》| 驯服型男刑警队长| 致命录像带| 新爱情乐园| 性的视频| 杨幂的视频| 泰坦尼克号演员| 天下免费大全正版资料| 杨颖电影| 赵汉善| 果戈里起点女的被劫走是多少分钟| 第五单元初试身手| 电影《exotica》完整版观看| 激情午夜av| 4480午夜| 355 电影| 张晋个人资料和简历| 伊藤步| 同志父子第二部叫什么| 小米汽车标志图片| 消失的客人| 2年级计算题100道题混合| 听风者电视剧演员表| 秀人网嫩模私拍大尺度| 漂亮孕妇独自在家肚子疼叫个不停| 在线黄网站| 安吉拉电影| 康巴卫视直播| 出埃及记电影| 蜡笔小新日语| 《之后》电影| 浪人街| 法尔| 蒋雯|