在VFP中制作异型的浮动按钮

吕兆球 
2001年 18期

　　制作奇形怪状的活动按钮，在多媒体之类软件中是一件容易之事，例如Flash；但对于开发数据库用的Visual FoxPro呢？其实也不太难。你看看就知道了。
　　　　它的基本实现原理是：由于Visual FoxPro支持GIF图形，而GIF图形又是可以设置透明色的。如此一来，我们可以把设置了透明色的异形GIF图片当作“按钮”使用。对于浮动，那不过是两个叠加的控件，根据鼠标的移动而改变状况罢了。
　　　　还是举一个例子：制作两张大小一样的三角形图片，一张是有立体感的，名之b1.gif，一张是平面的，名之b2.gif。把这两张图片中三角形之外的区域都设置成透明。在Visual FoxPro中新建的表单中插入image1，其picture属性为b1.gif，visible属性为.f.；在image1正上方叠加image2，其picture属性为b2.gif。并添加如下代码。
　　　　Form1的MouseMove事件：
　　　　hisform.image1.visible=.f.
　　　　thisform.image2.visible=.t.
　　　　Image2的MouseMove事件
　　　　thisform.image1.visible=.t.
　　　　thisform.image2.visible=.f.
　　　　在image1的Click事件中添加你的代码。
　　　　好了，保存并运行就可以看到效果了。
　　
　　 
 