利用VB编程实现鼠标平滑移动图像.pdfVIP

……m一8胁PHlCSPRnBR^啊…………一w“……一，-…一…一……一…”，一…一…一．．…………………·………………… 利用VB编程实现鼠标平滑移动图像 徐小穗椿世琼 摘要 随着高分辨率的数码籀机的尊及，超过屏幕分辨率的数码照片比毙皆怒，在一个 屏幕窗口中观察大图像是十分平常的事。本文介绍利用VB编程，实现鼠标平滑拖 动图像的方法。 关键词 VB编程，鼠标拖动，犬图像 一、算法分析 控件中鼠标移动了一段距离(△x，△y)，在原图片中也同样 1．如何移动 移动了相同的距离到达A点，那么A点在原图片中的坐标值 在V蠡巾可敬曩来烂示索翅图形文{孚的接{睾有PiclHre控俘 黟隽： 稚lmage掇件。这里以Picture控件为例，在pieture控件中显 飚离(△xl，△y1)，猩豚图片中也闷样移动了稻同的距离剐 示的图片，实际上是由若干个像索点构成，逸些像素点排列成 达B点，那么B点在原图片中的坐标值即为： (△x+△xl， 若于行积装予刭，形成一个矩形驻域，也就鼹巍eture控{譬的 △y÷△y1)，依此类堆。 内部工作酝域。如果瞬片尺寸大予控件的蠢部工作区域，强能 由此可见，在原图巾坐标点的确定是由鼠标在Picture控 看到图片的一部分，相当于在图片上取了和控件的内部工作区 件中移动的躐离而定的。从每次在Pieture控件中按下鼠标左 域大小相网的一矩形块显示在控{譬中。如果能按鼠标移动的轨 键移动豹距离，即可褥到暇圈中鼠标移动的孰迹(鄂各个坐标 迹，不断鹩扶原图片巾敬出要显示猩控{牛串麓酃部分矩形块， 点德)，弗穰据这个轨迹来获得图像移动的效暴。 即可实现鼠标移动图像的功能，，上述分析用图形来表述如图l 3．平滑移动 所示。 如果把上述的移动距离△x或△y敷值为1，即按一个像素 点一个像素点来移动。璃论上应该是平滑移动，穗实际操作上 鼹无法做到的，一是这样做运算量太大，每移动一个像素点就 熨谯琢图片中取出一个矩形块重画picture控件，恐怕难以寰 褒；二是搡依鼠标眩会发生季季动麓馕凝，实际效果也是辩凌 (a)初始位置 (b)鼠标移动到 (c)鼠标移动列 的。采用平均的方法应该可以做到平滑。在VB中有计时器， A点的位鼹 B点的位置 利用计算器可乎均时间，即每隔相同时间取一次嫩标值的办法 銎l攫示愿重羚孛苓霹整鬟上静撰月文小戆矩形块 慕实现平滑。警然这个时麓瓣隧不麓太小，也不貔太大，逶避 2．坐标的确定 察验发现其取值在20·80ms之间效果较好，这跟机器的运算 从图l中可看出，上面所述的A点坐标和B点坐标是原 速度和Picture控件显示区域大小有关，可通过具体测试丽 始鋈冀中戆整稼点，聪在实舔操终孛，可获褥鼹垒标菹楚控磐 宠。 内部的坐标，因此必须对这两个坐标系统进行转换。假设在 二、界面设计 Picture控件中的a(x1，y1)点按下鼠