在Visual FoxPro 3.0中定制透明的立体按钮

Author: 闫东 Date: 1997-01-01

　　在制作多媒体软件时，有时需要设计有透明效果的立体按钮，Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０所提供的“不可见按钮”无法满足这一要求，但我们可以利用标签（ＬＡＢＥＬ）与形状（ＳＨＡＰＥ）的组合来完成这一设计。
　　１．进入Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０系统环境，在命令行窗口中键入Ｃｒｅａｔｅ　Ｆｏｒｍ或在“文件”菜单中选择“新建”、“表单”，即可建立一个新的表单（ＦＯＲＭ１），并设置ＦＯＲＭ１的Ｐｉｃｔｕｒｅ属性为一个Ｗｉｎｄｏｗｓ位图文件（．ＢＭＰ）。
　　２．鼠标点击“表单控制栏”中的“形状”，并在ＦＯＲＭ１上拉出一个矩形方框（ＳＨＡＰＥ１）。以同样方法创建ＳＨＡＰＥ２、ＳＨＡＰＥ３和ＳＨＡＰＥ４。在属性窗口中对这四个ＳＨＡＰＥ的属性进行如下设置：
　　ＳＨＡＰＥ１：
　　　ＢａｃｋＣｏｌｏｒ＝ＲＧＢ（２５５，２５５，２５５）
　　　ＢｏｒｄｅｒＣｏｌｏｒ＝ＲＧＢ（２５５，２５５，２５５）
　　　Ｈｅｉｇｈｔ＝３
　　　Ｌｅｆｔ＝１２０
　　　Ｔｏｐ＝８０
　　　Ｗｉｄｔｈ＝９０
　　ＳＨＡＰＥ２：
　　　ＢａｃｋＣｏｌｏｒ＝ＲＧＢ（０，０，０）
　　　ＢｏｒｄｅｒＣｏｌｏｒ＝ＲＧＢ（０，０，０）
　　　Ｈｅｉｇｈｔ＝３
　　　Ｌｅｆｔ＝１２０
　　　Ｔｏｐ＝１１２
　　　Ｗｉｄｔｈ＝９０
　　ＳＨＡＰＥ３：
　　　ＢａｃｋＣｏｌｏｒ＝ＲＧＢ（２５５，２５５，２５５）
　　　ＢｏｒｄｅｒＣｏｌｏｒ＝ＲＧＢ（２５５，２５５，２５５）
　　　Ｈｅｉｇｈｔ＝３５
　　　Ｌｅｆｔ＝１２０
　　　Ｔｏｐ＝８０
　　　Ｗｉｄｔｈ＝３
　　ＳＨＡＰＥ４：
　　　ＢａｃｋＣｏｌｏｒ＝ＲＧＢ（０，０，０）
　　　ＢｏｒｄｅｒＣｏｌｏｒ＝ＲＧＢ（０，０，０）
　　　Ｈｅｉｇｈｔ＝３５
　　　Ｌｅｆｔ＝２０７
　　　Ｔｏｐ＝８０
　　　Ｗｉｄｔｈ＝３
　　３．用鼠标点击“表单控制栏”中的“标签”，并在ＦＯＲＭ１上拉出一个矩形方框（ＬＡＢＥＬ１），调整其大小以刚好嵌入四个ＳＨＡＰＥ中。设置它的属性Ｃａｐｔｉｏｎ为定制的按钮的标题，Ａｌｉｇｎｍｅｎｔ为２，Ｂａｃｋｓｔｙｌｅ为０。
　　４．双击ＬＡＢＥＬ１，编写ＬＡＢＥＬ１的ＭｏｕｓｅＤｏｗｎ过程如下：
　　Ｏｌｄｔｏｐ＝Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ１．Ｔｏｐ
　　Ｏｌｄｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ３．Ｌｅｆｔ
　　Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ１．Ｔｏｐ＝Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ２．Ｔｏｐ
　　Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ３．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ４．Ｌｅｆｔ
　　Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ２．Ｔｏｐ＝Ｏｌｄｔｏｐ
　　Ｔｈｉｓｆｏｒｍ．Ｓｈａｐｅ４．Ｌｅｆｔ＝Ｏｌｄｌｅｆｔ
　　在ＬＡＢＥＬ１的ＭｏｕｓｅＵｐ过程中编写同样内容。
　　５．按鼠标右键点击ＦＯＲＭ１，在弹出菜单中选择“运行”即可。若在“文件”菜单中选择“另存为类…”将其以类的形式存储，则可一劳永逸地在其它程序中直接调用。
　　以上程序在Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０及Ｗｉｎｄｏｗｓ　９５中运行通过。