这是网上人家的贴子,看看:
Visual FoxPro拥有强大的ActiveX控件类库,但由于控件类的封装比较严密,因而也损失了一些灵活性,即标准控制对象的组件不能被单独修改。如果要设计一些形状各异,丰富多彩的命令按钮,就要另辟蹊径。好在VFP提供了很强的扩展功能,这些问题不难解决。以下给出了利用可视化编程技术设计的椭圆形可变色命令按钮的步骤,供大家参考。
1?创建主表单Form1。
2?在Form1中创建两个叠加在一起的形状控件Shape1和Shape2。将Shape1的BackColor属性设为0,0,0(黑色),并将其向右下方稍稍移动一点,作为Shape2的阴影。
3?将Shape1和Shape2的Carvature(曲率)属性设为90,控件便成为椭圆形状。
4?将Shape2和BackColor属性设为0,128,255(蓝色)。
5?在Shape2的MouseMove Event方法中输入:
this?BackColor=RGB(255,0,255)
即当鼠标移到Shape2上时,Shape2的颜色将变为紫红色。
6?再在Form1中创建一个标签控件Label1,并将Label移至Shape2上,作为按钮上的标题。
7?将Label1的属性作如下设置:
BackStyle为“透明”;
Caption为按钮上的文字;
ForeColor为255,255,255(白色);
FontName为揩体;
FontSize为14;
说明:以上设置仅供参考,读者可根据自己的需要和喜爱来确定按钮的字体、大小、颜色等。
8?在Label1的Click方法中输入按钮被按下时要执行的程序。
9?最后,打开主表单Form1的属性表,在MouseMove Freat方法中输入语句:
this?Shape2?BackColor=RGB(0,128,255)
目的是当鼠标离开按钮时,按钮能恢复成蓝色。
然后来运行一下这个彩色按钮,感觉不错吧。