缩略图原理

'********************************
 '作者:陈胜华
 '时间:2006-2-28
 '功能:生成缩略图
 '参数说明:
 ' objJpeg:缩略图组件对象
 ' Genpath:缩略图放置的路径
 ' sWidth: 图像原宽度
 ' sHeight:图像原高度
 ' dWidth: 生成的宽度
 ' dHeight:生成的高度
 '********************************
 Public Sub GenBreviary(objJpeg, GenPath, sWidth, sHeight, dWidth,  dHeight)
  
  dim GenWidth,GenHeight
  
  if sWidth >dWidth or sHeight > dHeight then
   if (sWidth/sHeight)>=(dWidth/dHeight) then
    GenWidth = dWidth
    GenHeight =  dWidth*sHeight/sWidth
   else
    GenHeight = dHeight
    GenWidth= dHeight * sWidth / sHeight
   end if
  end if
    
  objJpeg.Width=GenWidth
  objJpeg.Height=GenHeight
  objJpeg.Save GenPath
  
  
    
 End Sub