メモ4

  



http://www.vector.co.jp/soft/win95/art/se194166.html

Set obj = CreateObject("ZICONVINP.EasyThumbnail")

cxImage = 100
cyImage = 80
ImageZoom = 2
TargetFolder = "c:\temp"
TargetFileMode = 1
SourceFileMode = 2
SourceImageTypes = Array("bitmap","gif")
TargetImageType = "jpeg"

if obj.ConvertFiles( "PATH" ) then
success
else
error
end if

  



  
Set obj = CreateObject("ZICONVINP.EasyThumbnail")

obj.ConvertEndMode = 0
obj.cxImage = 400
obj.cyImage = 600
obj.ImageZoom = 2
obj.TargetFolder = "c:\temp\img"
obj.TargetFolderMode = 0
obj.TargetFileMode = 1
obj.SourceFileMode = 2
obj.SourceImageTypes = Array("bitmap")
obj.TargetImageType = "jpeg"

if obj.ConvertFiles( "c:\temp\test.bmp" ) then
'	"OK"
else
'	"ERR"
end if
  











   SQLの窓    create:2005/02/21  update:2014/09/07   管理者用(要ログイン)





フリーフォントWEBサービス

SQLの窓WEBサービス

SQLの窓フリーソフト

写真素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ