展开全部
这个问题这样做,比较简单(我在我的商用软件中就这样做)
首先,给Command1.Caption属性赋值,如Command1.Caption=租赁单价新建(可以在设计时直接赋值,也可在程序运行时复制)
再就是在command.MouseMove事件中,写上:
this.tooltiptext=this.caption
即可 ok 了。我的回答完毕。
当然了,也可以使得Command1按钮的提示为动态的,根据程序运行的情况,提示内容为动态的。如在command.MouseMove事件中,写上:
if 条件 then
message1='要提示的文字'
else message1='要提示的文字'
endif
**以上if 语句,还可以改成 case 语句
this.tooltiptext=message1
------------------------------
顺便扩充一下,在我的command.MouseMove事件中为;
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.mousePointer=99
this.mouseicon=".\BMPSOUND\h_point.cur"
this.tooltiptext=this.caption
其中 this.mousePointer=99
this.mouseicon=".\BMPSOUND\h_point.cur"
是当鼠标移动到该控件上显示一个自己定义的光标,".\BMPSOUND\h_point.cur"是当前目录下的BMPSOUND目录下的一个叫h_point.cur的光标文件,当然您可以选择你喜欢的还能有代表意义的光标(如,需要单击,你可以用一个小手光标,光标文件网上有很多很多)
当然 this.tooltiptext=this.caption是您提出问题的核心。
首先,给Command1.Caption属性赋值,如Command1.Caption=租赁单价新建(可以在设计时直接赋值,也可在程序运行时复制)
再就是在command.MouseMove事件中,写上:
this.tooltiptext=this.caption
即可 ok 了。我的回答完毕。
当然了,也可以使得Command1按钮的提示为动态的,根据程序运行的情况,提示内容为动态的。如在command.MouseMove事件中,写上:
if 条件 then
message1='要提示的文字'
else message1='要提示的文字'
endif
**以上if 语句,还可以改成 case 语句
this.tooltiptext=message1
------------------------------
顺便扩充一下,在我的command.MouseMove事件中为;
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.mousePointer=99
this.mouseicon=".\BMPSOUND\h_point.cur"
this.tooltiptext=this.caption
其中 this.mousePointer=99
this.mouseicon=".\BMPSOUND\h_point.cur"
是当鼠标移动到该控件上显示一个自己定义的光标,".\BMPSOUND\h_point.cur"是当前目录下的BMPSOUND目录下的一个叫h_point.cur的光标文件,当然您可以选择你喜欢的还能有代表意义的光标(如,需要单击,你可以用一个小手光标,光标文件网上有很多很多)
当然 this.tooltiptext=this.caption是您提出问题的核心。
参考资料: 个人商用软件+vfp教学经验
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询