ASPJPEG综合操作的CLASS类(2)

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 

'---------------取插入图片属性 
'插入图片的路径 
Public Property Let PicInPath(strType) 
Img_PicIn_Path=strType 
End Property 
'图片插入的X坐标 
Public Property Let PicInX(LngSize) 
If isNumeric(LngSize) then 
Img_PicIn_X=Clng(LngSize) 
End If 
End Property 
'图片插入的Y坐标 
Public Property Let PicInY(LngSize) 
If isNumeric(LngSize) then 
Img_PicIn_Y=Clng(LngSize) 
End If 
End Property 


Private Sub Class_Initialize() 
Set AspJpeg_Obj=createObject("Persits.Jpeg") 
Img_MathPath_From="" 
Img_MathPath_To="" 
Img_Reduce_Size=150 
Img_Frame_Size=1 
'Img_Frame_Width=0 
'Img_Frame_Height=0 
'Img_Frame_Color="&H000000" 
'Img_Frame_Bold=false 
Img_Font_Content="GoldenLeaf" 
'Img_Font_Family="Arial" 
'Img_Font_Color="&H000000" 
Img_Font_Quality=3 
Img_Font_Size=14 
'Img_Font_Bold=False 
Img_Font_X=10 
Img_Font_Y=5 
'Img_PicIn_X=0 
'Img_PicIn_Y=0 
CoverIf=1 

End Sub 
Private Sub Class_Terminate() 
Err.Clear 
Set AspJpeg_Obj=Nothing 
End Sub 
'判断文件是否存在 
Private Function FileIs(path)