［摘要］ 触摸屏大家是经常用到的，但不一定知道的是通过鼠标的单击和移动是怎样才能实现触摸屏的种种功能。下面就让我们来简单介绍在触摸屏编程过程中图形、图象处理技术的一些小技巧。
触摸屏大家是经常用到的，但不一定知道的是通过鼠标的单击和移动是怎样才能实现触摸屏的种种功能。下面就让我们来简单介绍在触摸屏编程过程中图形、图象处理技术的一些小技巧。
１．怎样使窗体全屏显示，即根据显示器的大小来确定窗体的大小，这里介绍三种方法来实现：
（１）ＢｏｒｄｅｒＳｔｙｌｅ ：＝ ｂｓＮｏｎｅ；
ＷｉｎｄｏｗＳｔａｔｅ ：＝ ｗｓＭａｘｉｍｉｚｅｄ；
（２）ＢｏｒｄｅｒＳｔｙｌｅ ：＝ ｂｓＮｏｎｅ；
Ｌｅｆｔ ：＝ ０；
Ｔｏｐ ：＝ ０；
Ｗｉｄｔｈ ：＝ Ｓｃｒｅｅｎ．Ｗｉｄｔｈ；
Ｈｅｉｇｈｔ ：＝ Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ；
（３）ＢｏｒｄｅｒＳｔｙｌｅ：＝ｂｓＮｏｎｅ；
ＳｅｔＢｏｕｎｄｓ（０，０，Ｓｃｒｅｅｎ．Ｗｉｄｔｈ，Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ）；
２．实现按ＥＳＣ键使全屏窗体退出全屏，则要根据ＥＳＣ的键值２７来实现，代码如下：
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＦｏｒｍＫｅｙＤｏｗｎ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ； ｖａｒ Ｋｅｙ： Ｗｏｒｄ；Ｓｈｉｆｔ： ＴＳｈｉｆｔＳｔａｔｅ）；
ｂｅｇｉｎ
ｉｆ ｋｅｙ＝２７ ｔｈｅｎ
ｃｌｏｓｅ；／／关闭窗口；
ｅｎｄ；
另外一定要把Ｆｏｒｍ１的ｋｅｙｐｒｅｖｉｅｗ设置成为Ｔｒｕｅ；ｋｅｙｐｒｅｖｉｅｗ默认为Ｆａｌｓｅ。
３．当鼠标移动到某组件区域范围内（如Ｉｍａｇｅ组件），如何改变鼠标的形状呢？主要是设置相应组件的ｃｕｒｓｏｒ属性，具体方法如下：
（１）如果是要使用系统已定义的光标，可用：Ｉｍａｇｅ１．ｃｕｒｓｏｒ：＝已定义光标名；
（２）如果是使用自定义的光标，可用以下方法：
将制作好光标调入
ｃｏｎｓｔ
ｎｅｗｃｕｒ ＝ １；（必须大于０）
ｓｃｒｅｅｎ．ｃｕｒｓｏｒｓ［ｎｅｗｃｕｒ］：＝ ｌｏａｄｉｃｏｎ（）或Ｌｏａｄｃｕｒｓｏｒｆｒｏｍｆｉｌｅ（）； ／／调入的图标的扩展名必须为ａｎｉ，ｉｃｏ，ｃｕｒ
ｉｍａｇｅ１．ｃｕｒｓｏｒ：＝ｎｅｗｃｕｒ；
４．在查看较大图象时，如果窗体比图象小，就不能完全显示图象。如果将较大的图象压缩来显示到窗体上的话，图象就会模糊不清。将图象的一部分显示到窗体上，需要时用鼠标移动图象来浏览其他部分，这样可以浏览全部图象有可以达到清晰的效果。如果要使鼠标移动图象，需要用到三个事件，即：ｏｎＭｏｕｓｅＤｏｗｎ、ｏｎＭｏｕｓｅＵｐ、ｏｎＭｏｕｓｅＭｏｖｅ，具体代码如下：
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｉｍａｇｅ１ＭｏｕｓｅＤｏｗｎ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ； Ｂｕｔｔｏｎ： ＴＭｏｕｓｅＢｕｔｔｏｎ；
Ｓｈｉｆｔ： ＴＳｈｉｆｔＳｔａｔｅ； Ｘ， Ｙ： Ｉｎｔｅｇｅｒ）；
ｂｅｇｉｎ
ｍｏｖｅＦｌａｇ：＝ｔｒｕｅ；
ＯＸ：＝Ｘ；
ＯＹ：＝Ｙ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｉｍａｇｅ１ＭｏｕｓｅＭｏｖｅ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ； Ｓｈｉｆｔ： ＴＳｈｉｆｔＳｔａｔｅ； Ｘ，
Ｙ： Ｉｎｔｅｇｅｒ）；
ｂｅｇｉｎ
ｉｆ ｍｏｖｅＦｌａｇ ｔｈｅｎ
ｂｅｇｉｎ
ｉｍａｇｅ１．Ｌｅｆｔ：＝ｉｍａｇｅ１．Ｌｅｆｔ＋（Ｘ－ＯＸ）；
ｉｍａｇｅ１．Ｔｏｐ：＝ｉｍａｇｅ１．Ｔｏｐ＋（Ｙ－ＯＹ）；
ｅｎｄ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｉｍａｇｅ１ＭｏｕｓｅＵｐ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ； Ｂｕｔｔｏｎ： ＴＭｏｕｓｅＢｕｔｔｏｎ；
Ｓｈｉｆｔ： ＴＳｈｉｆｔＳｔａｔｅ； Ｘ， Ｙ： Ｉｎｔｅｇｅｒ）；
ｂｅｇｉｎ
ｍｏｖｅＦｌａｇ：＝Ｆａｌｓｅ；
ｅｎｄ；
５．如何实现跟随鼠标轨迹在透明的Ｉｍａｇｅ组件上绘制不规则曲线（即在触摸屏的背景图片上做标记），并且绘线的同时没有闪烁现象，首先让我们实现Ｉｍａｇｅ组件在画线是保持透明，这里用ｉｍａｇｅ１．Ｃａｎｖａｓ．Ｂｒｕｓｈ．Ｃｏｌｏｒ来实现；而根据鼠标轨迹绘制不规则曲线，主要用到ＴＣａｎｖａ的两个重要方法：ＭｏｖｅＴｏ、ＬｉｎｅＴｏ。具体代码如下：
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＤｒａｗＳｈａｐｅ（ＴｏｐＬｅｆｔ， ＢｏｔｔｏｍＲｉｇｈｔ： ＴＰｏｉｎｔ； ＡＭｏｄｅ： ＴＰｅｎＭｏｄｅ）；
ｂｅｇｉｎ
ｗｉｔｈ ｉｍａｇｅ１．Ｃａｎｖａｓ ｄｏ
ｂｅｇｉｎ
Ｐｅｎ．Ｍｏｄｅ ：＝ ＡＭｏｄｅ；
ｐｅｎ．Ｃｏｌｏｒ：＝ｃｌｒｅｄ；
ｐｅｎ．Ｗｉｄｔｈ：＝１０；
ＭｏｖｅＴｏ（ＴｏｐＬｅｆｔ．Ｘ， ＴｏｐＬｅｆｔ．Ｙ）；
ＬｉｎｅＴｏ（ＢｏｔｔｏｍＲｉｇｈｔ．Ｘ， ＢｏｔｔｏｍＲｉｇｈｔ．Ｙ）；
ｅｎｄ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｉｍａｇｅ１ＭｏｕｓｅＭｏｖｅ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ； Ｓｈｉｆｔ： ＴＳｈｉｆｔＳｔａｔｅ； Ｘ，
Ｙ： Ｉｎｔｅｇｅｒ）；
ｂｅｇｉｎ
ｉｆ Ｄｒａｗｉｎｇ ｔｈｅｎ
ｂｅｇｉｎ
ＭｏｖｅＰｔ ：＝ Ｐｏｉｎｔ（Ｘ， Ｙ）；
ＤｒａｗＳｈａｐｅ（Ｏｒｉｇｉｎ， ＭｏｖｅＰｔ， ｐｍｃｏｐｙ）；
ｏｒｉｇｉｎ：＝ｍｏｖｅｐｔ；
ｅｎｄ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｉｍａｇｅ１ＭｏｕｓｅＤｏｗｎ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ； Ｂｕｔｔｏｎ： ＴＭｏｕｓｅＢｕｔｔｏｎ；
Ｓｈｉｆｔ： ＴＳｈｉｆｔＳｔａｔｅ； Ｘ， Ｙ： Ｉｎｔｅｇｅｒ）；
ｂｅｇｉｎ
Ｄｒａｗｉｎｇ ：＝ Ｔｒｕｅ；
ｉｍａｇｅ１．Ｃａｎｖａｓ．ＭｏｖｅＴｏ（Ｘ， Ｙ）；
Ｏｒｉｇｉｎ ：＝ Ｐｏｉｎｔ（Ｘ， Ｙ）；
ＭｏｖｅＰｔ ：＝ Ｏｒｉｇｉｎ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｉｍａｇｅ１ＭｏｕｓｅＵｐ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ； Ｂｕｔｔｏｎ： ＴＭｏｕｓｅＢｕｔｔｏｎ；
Ｓｈｉｆｔ： ＴＳｈｉｆｔＳｔａｔｅ； Ｘ， Ｙ： Ｉｎｔｅｇｅｒ）；
ｂｅｇｉｎ
ｉｆ Ｄｒａｗｉｎｇ ｔｈｅｎ
ＤｒａｗＳｈａｐｅ（Ｏｒｉｇｉｎ， Ｐｏｉｎｔ（Ｘ， Ｙ）， ｐｍＣｏｐｙ）；
Ｄｒａｗｉｎｇ ：＝ Ｆａｌｓｅ；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＦｏｒｍＣｒｅａｔｅ（Ｓｅｎｄｅｒ： ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ
ｐａｎｅｌ１．ＤｏｕｂｌｅＢｕｆｆｅｒｅｄ：＝ｔｒｕｅ；／／在Ｉｍａｇｅ１所在的容器设置双缓冲，防止画线时闪烁。
ｉｍａｇｅ１．Ｃａｎｖａｓ．Ｂｒｕｓｈ．Ｃｏｌｏｒ：＝ｐａｎｅｌ１．Ｃｏｌｏｒ；
ｉｍａｇｅ１．Ｃａｎｖａｓ．ＦｉｌｌＲｅｃｔ（ｒｅｃｔ（０，０，ｉｍａｇｅ１．Ｗｉｄｔｈ，ｉｍａｇｅ１．Ｈｅｉｇｈｔ））；／／实现绘线的同时保持Ｉｍａｇｅ１的透明性。
ｅｎｄ；
请登陆: 维库电子市场网（www.dzsc.com） 浏览更多信息
免责声明: 凡注明来源本网的所有作品，均为本网合法拥有版权或有权使用的作品，欢迎转载，注明出处。非本网作品均来自互联网，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。
