下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 图片放大缩小

图片放大缩小.doc

图片放大缩小

字体中你的样子
2017-10-13 0人阅读 举报 0 0 暂无简介

简介:本文档为《图片放大缩小doc》,可适用于综合领域

图片放大缩小OptionExplicitPrivateConstratiosmallAsSingle=PrivateConstratiolargeAsSingle=#为什么是呢PrivateSubZoom(ByValimgAsImage,ByValratioAsSingle)imgStretch=TrueimgLeft=imgLeftimgWidth*ratio#为什么要除以呢imgTop=imgTopimgHeight*ratio#为什么要除以呢imgWidth=imgWidthimgWidth*ratioimgHeight=imgHeightimgHeight*ratioEndSubPrivateSubCommandClick()ZoomImage,ratiosmallEndSubPrivateSubCommandClick()ZoomImage,ratiolargeEndSub‘使用PaintPicture或者API中的StrechBlt我用下面代码实现控件随窗口的放大缩小。SX=FormNameScaleWidthFormOldWidth'保存窗体宽度缩放比例SY=FormNameScaleHeightFormOldHeight'保存窗体高度缩放比例OnErrorResumeNextForEachObjInFormNameIfLen(ObjTag)>ThenPos=Split(ObjTag,"")IfTypeOfObjIsComboBoxOrTypeOfObjIsDriveListBoxThenObjMovePos()*SX,Pos()*SY,Pos()*SXElseObjMovePos()*SX,Pos()*SY,Pos()*SX,Pos()*SYEndIfEndIfNextObjErrClearOnErrorGoToSX,SY中存放的是窗口放大缩小的比例。tag中放的是窗口中每个控件的leftwidthrightheight。我现在能够实现窗口的放大缩小并且控件也能够随着放大缩小‘这是一个窗体内的控件能随窗体大小变化而随之变化的代码,不足的是在窗体变化中无法保证控件(或窗体)的长宽比例不变,哪位高手能想个办法,不论窗体如何变大变小,保证其高宽的比例不会变PrivateSubFormLoad()formHeight=ScreenHeightformWidth=ScreenWidthEndSubPrivateSubFormResize()ImageMove,,ScaleWidth,ScaleHeightEndSub‘pictureautosize=true是图片框的大小自动适应图像的大小image刚好相反可楼主不要要闪。所以只能自己处理缩放。而这就牵涉到处理的时间了‘

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/3

图片放大缩小

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利