引用Microsoft Forms 2.0 Objects 控件组 其中的CommandButton控件可实现加载图片的功能(并不是背景图片)
直接在COMMAND按钮上加载控件,方法和IMAGE一样; 如果要使用IMAGE控件来实现的话也可以。 如果只是为了显示在按下和放开的不同效果,可以在IMAGE的MOUSEDOWN事件中改变IMAGE控件的BOARDSTYLE属性为1,在IMAGE的MOUSEUP事件中改变BOARDSTYLE属性为0,就可以得到一种按“下去”的效果了。 Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '按下 Image1.BorderStyle = 1 End SubPrivate Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '放开 Image1.BorderStyle = 0 End Sub
其中的CommandButton控件可实现加载图片的功能(并不是背景图片)
如果要使用IMAGE控件来实现的话也可以。
如果只是为了显示在按下和放开的不同效果,可以在IMAGE的MOUSEDOWN事件中改变IMAGE控件的BOARDSTYLE属性为1,在IMAGE的MOUSEUP事件中改变BOARDSTYLE属性为0,就可以得到一种按“下去”的效果了。
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '按下
Image1.BorderStyle = 1
End SubPrivate Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '放开
Image1.BorderStyle = 0
End Sub