vb6中如何建立不同形状的按钮效果

Question

我看到可换肤的软件，其背景有三幅图像，分别是按钮在上，失去焦点，按钮按下的三幅图像。而且上面有多个按钮的图，其按钮也是不同形状，不知如何实现？我觉得按钮倒可以用image控件代替，但也不能达到这样多个按钮的效果。

Answer 1

image可以。但picture不行，不透明。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Image1.Picture = LoadPicture("d:\0.bmp") '恢复原来图形
End SubPrivate Sub Image1_Click()
        '执行代码
End SubPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Image1.Picture = LoadPicture("d:\2.bmp") '装入按下图形
End SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Image1.Picture = LoadPicture("d:\1.bmp") '鼠标移到上面图形
End Sub

Answer 2

用画图程序或者PhotoShop将按钮剪下面，然后保存为BMP小图片，这样可以放到资源文件中。当然，装入资源图片就不能用LoadPicture了，要用LoadResPicture函数。

Answer 3

你可以使用 Imagelist 或用一张大图排满小素材图片,要用到时再去一一裁出来使用.