微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题在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事件中添加你的代码。
  好了,保存并运行就可以看到效果了。