在Visual FoxPro 3.0中定制透明的立体按钮 在制作多媒体软件时，有时需要设计有透明效果的立体按钮，Visual FoxPro 3．0所提供的“不可见按钮”无法满足这一要求，但我们可以利用标签（Label）与形状（Shapo）的组合来完成这一设计。 1．进人Visual FoxPro 3．0系统环境，在命令行窗口中键人“Create Form”或在“文件”菜单中选择“新建”、“表单”，即可建立一个新的表单（Forml），并设置“Forml”的“Picture”属性为一个Windows位图文件（．BMP）。
2．鼠标点击“表单控制栏”中的“形状”，并在Form1上拉出一个矩形方框（Shape1）。以同样方法创建Shape2、Shape3和Shape4。在属性窗口中对这四个Shape的属性进行如下设置：
Shape1：
BackColor＝RGB（255，255，255）
Bordercolor＝RGB（255，255，255）
Height＝3 Left＝120
Top＝80 Width＝90
Shape2：
BackColor＝RGB（0，0，0）
BorderColor＝RGB（0，0，0）
Height＝3 Left＝ 120
Top＝112 Width＝90
Shape3：
BackColor＝RGB（255，255，255）
BorderColor＝RGB（255，255，255）
Height＝ 35 Left＝120
Top＝80 Width＝3
Shape4：
BackColor＝RGB（0，0，0）
BorderColor＝RGB（0，0，0）
Height＝35 Left＝207
Top＝80 Width＝3
3．用鼠标点击“表单控制栏”中的“标签”，并在“Forml”上拉出一个矩形方框（Labe1），调整其大小以刚好嵌入四个Shape中。设置它的属性“Caption”为定制的按钮的标题，“Alignment”为2，“Backstyle”为0。
4．双击“Label1”，编写“Label1的“MouseDown”过程如下：
Oldtop＝Thisform．Shape1．Top
oldleft＝Thisform． Shape3． Left
Thisform．Shape1．TOP＝Thlsform．Shape2．Top
Thisform．Shape3．Left＝Thisform．Shape4．left
Thisform．Shape2．Top＝Oldtop
Thisform．Shape4．Left＝Oldleft
在Label1的MouseUp过程中编写同样内容。
5．按鼠标右键点击Form1，在弹出菜单中选择“运行”即可。若在“文件”菜单中选择“另存为类…”将其以类的形式存储，则可一劳永逸地在其它程序中直接调用。
（阎东）