请教VB中一个Image的click事件

来源：百度知道 编辑：UC知道 时间：2024/07/03 10:27:47
你command控件，在运行程序上点击时，它有有下凹的感觉，而imange也有click事件，而点击时动也不动，请问怎么让image控件单击进也有凹的感觉呢？

你要的代码来了,自己已经验证OK!!!

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 0
End Sub

把上面的代码复制进去看看效果!!!

我来回答：
制作几个按钮图片，然后在Monse_Click等事件中添加代码，使之符合所需样式（imange1.loadpicture（imangePath））
即可