Question

vb 图标带 按钮

就是用图标带里的图标制作按钮……

若以下回答无法解决问题，邀请你更新回答

Answer 1

那是工具栏图标

追问

不是，我想找一个用图标带的单个按钮，不是工具栏图标！！！

追答

在按钮属性的style选为图形即Graphical,再把按钮picture属性加个图标就行了

追问

图标带是有四个图片连在一起的啊，我要在鼠标离开、鼠标停留、鼠标按下、按钮无效时分别显示图标带的某个图标……

追答

因为鼠标移过按钮没有内置事件，所以只好用消息
应该是三张图片吧

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.DownPicture = LoadPicture(App.Path & "\按下.gif") '按下
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If 0 <= X And X <= Command1.Width And 0 <= Y And Y <= Command1.Height Then
SetCapture Command1.hwnd
Command1.Picture = LoadPicture(App.Path & "\移过.gif") '鼠标移动到按钮
Else
ReleaseCapture
'这里就是鼠标离开按钮
Command1.Picture = LoadPicture(App.Path & "\离开.gif")
End If

End Sub

Private Sub Form_Load()
Command1.Picture = LoadPicture(App.Path & "\离开.gif")
End Sub