VB6中模拟按钮的实现

VB6中模拟按钮的实现,第1张

概述朋友发来一个 VB6 的小要求:自行绘制按钮,并且按钮不能有句柄,不得用 Image 控件,需要支持单击事件,鼠标移动上去会变化。感觉像个考试题啊!   先贴代码: VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3090 ClientLeft =

朋友发来一个 VB6 的小要求:自行绘制按钮,并且按钮不能有句柄,不得用 Image 控件,需要支持单击事件,鼠标移动上去会变化。感觉像个考试题啊!

先贴代码:

思路就是 使用 PaintPicture 在窗体上作图,使用MouseMove事件判定鼠标是否在图片的位置上,如果是则绘制鼠标移动浮动后的图片,否则就绘制原始按钮图片。

在判断鼠标位置是否在图片位置的这块功能中发现一个问题,StdPicture.WIDth比图片的实际长度要大,不知道是什么原因造成的。使用必应搜索MS网站无结果,最后依靠伟大的Google搜索外国网友的疑问找到解决方法,必须使用 ScaleX 和 ScaleY 函数计算图片在设备(此处是窗体)上的实际大小。

花了大约两个小时的时间,好在有一点收获。不错。

总结

以上是内存溢出为你收集整理的VB6中模拟按钮的实现全部内容,希望文章能够帮你解决VB6中模拟按钮的实现所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1293165.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-10
下一篇 2022-06-10

发表评论

登录后才能评论

评论列表(0条)

保存