一个ASPJPEG组件的asp类 CLASS
时间:2008-03-11 12:22:00
一个ASPJPEG组件综合操作的asp类CLASS
相关文章:
ASP中类的详细介绍(class Property Get、Property Let)
<%
Class AspJpeg
Dim AspJpeg_Obj,obj
Private Img_MathPath_From,Img_MathPath_To,Img_Reduce_Size,CoverIf
Private Img_Frame_Size,Img_Frame_Color,Img_Frame_Solid,Img_Frame_Width,Img_Frame_Height
Private Img_Font_Content,Img_Font_Family,Img_Font_Color,Img_Font_Quality,Img_Font_Size,Img_Font_Bold,Img_Font_X,Img_Font_Y
Private Img_PicIn_Path,Img_PicIn_X,Img_PicIn_Y
'--------------取原文件路径
Public Property Let MathPathFrom(StrType)
Img_MathPath_From=StrType
End Property
'--------------取文件保存路径
Public Property Let MathPathTo(strType)
Img_MathPath_To=strType
End Property
'--------------保存文件时是否覆盖已有文件
Public Property Let CovePro(LngSize)
If LngSize=0 or LngSize=1 or LngSize=true or LngSize=false then
CoverIf=LngSize
End If
End Property
'---------------取缩略图/放大图 缩略值
Public Property Let ReduceSize(LngSize)
If isNumeric(LngSize) then
Img_Reduce_Size=LngSize
End If
End Property
'---------------取描边属性
'边框粗细
Public Property Let FrameSize(LngSize)
If isNumeric(LngSize) then
Img_Frame_Size=Clng(LngSize)
End If
End Property
'边框宽度
Public Property Let FrameWidth(LngSize)
If isNumeric(LngSize) then
Img_Frame_Width=Clng(LngSize)
End If
End Property
'边框高度
Public Property Let FrameHeight(LngSize)
If isNumeric(LngSize) then
Img_Frame_Height=Clng(LngSize)
End If
End Property
'边框颜色
Public Property Let FrameColor(strType)
If strType<>"" then
Img_Frame_Color=strType
End If
End Property
'边框是否加粗
Public Property Let FrameSolid(LngSize)
If LngSize=1 or LngSize=0 or LngSize=true or LngSize=false then
Img_Frame_Solid=LngSize
End If
End Property
'---------------取插入文字属性
'插入的文字
Public Property Let Content(strType)
If strType<>"" then
Img_Font_Content=strType
End If
End Property
'文字字体
Public Property Let FontFamily(strType)
If strType<>"" then
Img_Font_Family=strType
End If
End Property
'文字颜色
Public Property Let FontColor(strType)
If strType<>"" then
Img_Font_Color=strType
End If
End Property
'文字品质
Public Property Let FontQuality(LngSize)
If isNumeric(LngSize) then
Img_Font_Quality=Clng(LngSize)
End If
End Property
'文字大小
Public Property Let FontSize(LngSize)
If isNumeric(LngSize) then
Img_Font_Size=Clng(LngSize)
End If
End Property
'文字是否加粗
Public Property Let FontBold(LngSize)
If LngSize=1 or LngSize=0 or LngSize=true or LngSize=false then
Img_Font_Bold=LngSize
End If
End Property
'输入文字的X坐标
Public Property Let FontX(LngSize)
If isNumeric(LngSize) then
Img_Font_X=Clng(LngSize)
End If
End Property
'输入文字的Y坐标
Public Property Let FontY(LngSize)
If isNumeric(LngSize) then
Img_Font_Y=Clng(LngSize)
End If
End Property
%>
标签:aspjpeg,class,类
0
投稿
猜你喜欢
限制文本框只能输入数字和小数点
2009-05-29 18:19:00
触手生春【4.14】CSS与HTML结构
2008-12-09 18:10:00
CSS设计之如何让数字字母自动换行
2007-10-19 15:12:00
优化 MySQL 语句的十个建议
2012-05-08 07:14:36
sqlserver清空service broker中的队列的语句分享
2011-09-30 11:33:35
最强大最好最全的javascript 验证表单的例子
2010-03-14 11:26:00
使用ewebeditor可能会重复提交数据两次的解决办法
2009-01-09 12:41:00
HTML 5 预览
2008-01-24 12:17:00
css设计小巧三条
2008-01-21 13:04:00
数据库安全管理的三个经验分享
2009-04-01 15:49:00
CSS Sprites 样式生成工具 2.0下载
2009-05-13 12:41:00
什么是XML
2008-09-05 17:21:00
SQL学习笔记八 索引,表连接,子查询,ROW_NUMBER
2011-09-30 11:18:24
如何判断js脚本加载完成
2008-11-04 13:53:00
纯CSS3文字渐变内发光投影效果
2011-08-24 20:15:10
好用的asp防SQL注入代码
2008-10-24 08:36:00
用asp实现的获取文件夹中文件的个数的代码
2011-03-08 11:02:00
10个ASP网页制作技巧
2007-09-24 13:12:00
ASP申请单动态添加实现方法及代码
2008-11-04 11:09:00
说说掌握JavaScript语言的思想前提
2008-12-26 17:59:00