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
'---------------取插入图片属性 '插入图片的路径 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