在FORM的MOUSEMOVE事件中写以PICTUREBOX为容器 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If X < Picture1.Left + Picture1.Width And X > Picture1.Left And Y > Picture1.Top And Y < Picture1.Top + Picture1.Height Then MsgBox "in" End If End Sub
或者将标签的BORDERSTYLE属性改成1,再和按钮结合在一起,位置你自己好好弄!
一样可以做出VC中的平面效果!!
但是我用了几个gif,想实现按钮的动态效果.这怎么办?我用的image,但是遇到几个问题.就是按住鼠标(mousedown),移出image区域的时候.不能恢复到平时的样式(mousedown的时候我设置了一个图片样式.),依然是鼠标按下时的效果.
我想实现像ie上面"搜索"按钮那样的效果,当在"搜索"上按下鼠标的时候变成一个样式,然后移出去的时候,就恢复到平时的状态了(此时一直处于MouseDown状态)。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < Picture1.Left + Picture1.Width And X > Picture1.Left And Y > Picture1.Top And Y < Picture1.Top + Picture1.Height Then
MsgBox "in"
End If
End Sub
控件名为FlatBtn2.ocx,到网上搜搜吧,实在找不到可以给我留言。