1、Image1Move 方法可以在移动的同时修改大小Image1Move MeScaleWidth image1Width \ 2， MeScaleHeight image1Height \ 2，Image1Width * 2，Image1Height * 2 SavePicture 可以保存图片SavePictur；原型int WINAPI icePub_imgZoomchar *strImgFilename，char *strBmpFilename，int newWidth，int newHeight，int flag输入strImgFilename 待处理图像文件名 strBmpFilename 结果bmp文件名 newWidth 新图宽 newHeight；图片按比例缩放 function DrawImageImg，WIDTH，HEIGHT var image=new Imageimagesrc=Imgsrcwidth=WIDTH预先设置的所期望的宽的值 height=HEIGHT预先设置的所期望的高的值 ifimagewidthwidthimage；不会触发窗体本身的mousemove事件那么利用这点以下程序演示实现LZ要求VB6中新建工程，一个窗体，窗体上放置一个picture控件图像什么随便设置大小也是自己设置 全部代码如下Dim ch As Boolean #39图像改变大小标志 Private。

2、Delphi 里进行放大缩小图片，比较简易的办法是使用delphi 的 Image 控件，将 Stretch 设置为 True 后，就可以自动根据 image 的长宽进行绽放，以下是示例代码将图片按 5% 比例等比放大procedure TForm1Button1Click；分别写一个onmouseover和onmouseout事件然后在事件里面加一个function，分别写想要放大的尺寸和缩小或复原的尺寸具体代码实现如下 var img = documentgetElementById#39img#39function bigger = #39；第一使用方法1调用lanrenzhijiacss样式 2将你需要放大的图片，按照图中代码的格式书写 3调用三个js，并指定你需要放大的图片a标签的id即可 第二使用方法；TP2Cls #39清除TP2中的图片 For X = 0 To TP1Width For Y = 0 To TP1Height X1 = X TP1Width \ 2 Y1 = Y TP1Height \ 2 #39将坐标轴原点移动到TP1的中心后原来坐标为x，y的点的新坐标；下面我们来看下示例代码在这个示例中当你点击图片时图片就会出现上图效果，再一次点击时就变成原始图片了lt！DOCTYPE html 放大镜 lt！HTML代码设计一个简单的canvas元素 你的浏览器不支持canvas元素；2添加“onmouseover”js事件，首先使用“documentgetElementById”获取到图片标签，然后定义鼠标移动到图片上时发生的事件，这时图片将会放大3添加“onmouseout”js事件，首先获取图片标签，然后定义鼠标移开图片时发生的事件。

3、输入css代码div width 72pxheight 72pxbackground urlsmall3png norepeatoverflow hidden 3浏览器运行indexhtml页面，此时成功将矩形图片只显示了正方形部分4点击小图后，成功显示了大图；用StretchBlt函数即可实现，参考代码如下void CImgWndOnPaint CPaintDC dcthis device context for painting 获得窗口大小 CRect r GetClientRectr 填充背景 HBRUSH brush =。

4、用JavaScript实现图片点击放大再次点击恢复代码如下知识拓展JavaScript 是目前所有主流浏览器上唯一支持的脚本语言，这也是早期JavaScript的唯一用途其主要作用是在不与服务器交互的情况下修改HTML页面内容，因此其最关键的部分；divbordersolid 1px #333width40pxheight40px div imgwidth40pxheight40pxtransitionall 03s div imghovertransfromscale2，2从中心放大两部。

5、所以直接说思路吧onlick函数里面判断一下点击状态就行了方法1用一个变量来存，clicktime = 0，还没点击，clicktime =1 点了一次，clicktime =2 点了两次，所以通过clicktime 的值来判断图片应该放大还是关闭方法2。