Question

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

VB 第一次接触控件设计很点手生 ，手边也没有教程！ 按钮控件要求 支持三个 PictureA PictureB PictureC 图片属性， 目的是完成 当鼠标在正常状态时按钮上时显示PictureA属性中的图片 ，鼠标经过按钮时显示PictureB属性中的图片 ，鼠标按下按钮时显示PictureC属性中的图片.别的要求就不要了 一定要能正常运行的。 请高手多帮帮忙啊 设计了二天了 也没弄出来 老是出错！又说什么要关闭什么设计器了... ! 还望高手 赐教！谢谢！我QQ271072330
我要自定义一个控件 不是直接用VB中的Command1。 我想把三张图片设置在自定义控件的属性里面！

Answer 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

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

Answer 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，否则什么都不会显示的。

Answer 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

Answer 4

已在QQ中解决。

Answer 5

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