神马品牌网上海化工园区 企业:急求:一个简单的VB编程代码!
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 01:38:30
制作要求:
要在屏幕上有一个有三个靶环的靶子(做成三个圆相套就行了),该靶子是用Timer控件来进行不停地移动的,当点中相应靶环可以得到相应的靶环数,并在屏幕上有一显示当前所有次打靶中的环数的和.急求!谢谢
超感谢楼下的,但本人是电脑痴,GetCursorPos API等没学的不会用^_^,如果语句不多的话可否帮我写一下?
PS:一定会谢你的^_^
要在屏幕上有一个有三个靶环的靶子(做成三个圆相套就行了),该靶子是用Timer控件来进行不停地移动的,当点中相应靶环可以得到相应的靶环数,并在屏幕上有一显示当前所有次打靶中的环数的和.急求!谢谢
超感谢楼下的,但本人是电脑痴,GetCursorPos API等没学的不会用^_^,如果语句不多的话可否帮我写一下?
PS:一定会谢你的^_^
窗体里放一个 PictureBox，在 PictureBox 里画圆做三环，用 Timer 控制 PictureBox 移动，Timer 过程里同时要用 GetCursorPos API 不停获取鼠标当前坐标，再转换成 PictureBox 里的坐标做对比，PictureBox 的 MouseDown 事件判断点击的位置……
照这个思路做吧。
GetCursorPos 相关申明：
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
呵呵，好像用 GetCursorPos API 都有点多余，直接在 MouseDown 事件里判断 X Y 就行了。