用LINE控件模拟,用四根,根据鼠标的位置]改变线的颜色就可以!
其实很容易.浮动按纽的原理其实是利用视差,其实现起来是这样:鼠标未在按纽上时,按纽与"阴影"相错.当鼠在按纽上时,按纽与"阴影"重合,也就是不悬浮了.
明白了这一点,要做到就很容易了.
1,在按纽下面画一个标签,让标签的LEFT与TOP都比按纽的LEFTT和TOP大45(此值可调),标签设为FLAT,背景色为黑色;
2,设置按纽的MOUSEMOVE事件:command1.left=label1.left,command1.top=label1.top
这两行代码的作用是按纽不悬浮.
3,设置窗体的MOUSEMOVE事件:command1.left=label1.left-45,command1.top=label1.top-45
这两行代码的作用是,当鼠标离开按纽在窗体上时,按纽浮起来.
[]
|
|
