VB 如何创建一个自定义的简单按钮控件？

2025-05-12 14:25:39

推荐回答（5个）

回答1：

Private Sub Form_Load()
Image1.Appearance = 0'图片框属性设置
Image1.BorderStyle = 0
Image1.Stretch = 1
Image1.Picture = Picture1.Picture
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Appearance = 0
Image1.BorderStyle = 0
Image1.Picture = Picture1.Picture
End Sub

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

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Appearance = 0
Image1.BorderStyle = 1
Image1.Picture = Picture2.Picture
End Sub

这样做的缺点是不能按的太快。

回答2：

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = Picture3.Picture

End Sub

Private Sub Command1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = PictureB.Picture

End Sub

Private Sub Form_Load()

Command1.Picture = PictureA.Picture
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = PictureC.Picture

End Sub
注意，要把command1的style的值设置为1，否则什么都不会显示的。

回答3：

Image1.Appearance = 0'图片框属性设置
Image1.BorderStyle = 0
Image1.Stretch = 1
Image1.Picture = Picture1.Picture
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Appearance = 0
Image1.BorderStyle = 0
Image1.Picture = Picture1.Picture
End Sub

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

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Appearance = 0
Image1.BorderStyle = 1
Image1.Picture = Picture2.Picture

回答4：

已在QQ中解决。

回答5：

发到你的邮箱里了自己注意查收！