求VFP中通过4个命令按钮来控制标签(label1)实现向上移动,向下移动,向左移动,向右移动的代码。
1个回答
展开全部
这个很简单,我给你大概说下, 你自己弄弄,有问题再问.
四个按钮分别是向上,向下,向左,向右
拿向上举例, 按钮的代码就是减小top属性, 但是注意不能小于0,如果检测到小于0,就不能再减小top了,参考代码如下:
向上按钮的click事件代码:
if thisform.label1.top>0
thisform.label1.top=thisform.label1.top-5 &&这里的5可以自己更改, 设的大每次变动的就大
endif
其他你可以参考上面的代码, 下面写注意点:
向下: 更改top属性,必须小于等于thisform.label1.top+thisform.label1.height
向左:更改left属性,必须大于等于0
向右:更改left属性,必须小于等于thisform.label1.left+thisform.label1.width
四个按钮分别是向上,向下,向左,向右
拿向上举例, 按钮的代码就是减小top属性, 但是注意不能小于0,如果检测到小于0,就不能再减小top了,参考代码如下:
向上按钮的click事件代码:
if thisform.label1.top>0
thisform.label1.top=thisform.label1.top-5 &&这里的5可以自己更改, 设的大每次变动的就大
endif
其他你可以参考上面的代码, 下面写注意点:
向下: 更改top属性,必须小于等于thisform.label1.top+thisform.label1.height
向左:更改left属性,必须大于等于0
向右:更改left属性,必须小于等于thisform.label1.left+thisform.label1.width
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询