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

[RVCHENG]

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

[东方之珠]

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 Sub

Private Sub Image1_Click()
        '执行代码
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Image1.Picture = LoadPicture("d:\2.bmp") '装入按下图形
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Image1.Picture = LoadPicture("d:\1.bmp") '鼠标移到上面图形
End Sub

[RVCHENG]

多谢了，可一个按钮这样实现可以，可现在是很多的按钮图案在一幅图像上，而且是三大幅图像对应三组不同状态的按钮，如何抠出呢？

[东方之珠]

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

[cbm6666]

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

[RVCHENG]

多谢各位了，可那些现成软件应该不是这样编的，它们是支持用户自己换肤的。

[cbm6666]

支持用户自己换肤 这是后段了 也是你看到的结果.

呵呵....但没有前期的代码处理(你看不到的), 如何得到后面的结果 ??

[meiZiNick]

好像没那么简单,呵呵.

[UltraBejing]

有点难度哦