请问如何把image图象按比例放到commandbutton按钮上？

Question

command的Stye 设置为1,然后指定其Picture即可。如果一定要根据控件的大小对图象进行缩放，我建议还不如直接用Image控件会更直接些(把其Strech设为TRUE）。

Answer 1

我以先把image的stretch属性设置为true,然后command1.picture=image1,但传到commandbutton按钮上的图片还是很大,(这时image图片的大小已经变小了),为什么传到commandbutton上的不变小?

Answer 2

这样是做不到的，我的意思是直接用Image控件代替Command控件，然后把Command_Click事件中的内容放到Image_Click事件中即可。
如果你一定要用Command控件，那就要用API的BitBlt函数或Picture控件的 PaintPicture 方法进行处理了。不过要计算它的比例，比较麻烦些。以下是一个简单的例子。把原来的图片放大一倍1、在窗体上放一个Command, 两个PictureBox如：PicSource, PicDest，
2、为PicSource指定图片。  把PicDest的AutoRedraw 属性设为TRUE，PicDest的大小拖拉为Command相同，
3、加入以下语句Private Sub Command1_Click()
   PicDest.PaintPicture PicSource.Picture, 0, 0, 100, 100, 0, 0, 50, 50   Command1.Picture = PicDest.Image
End Sub

Answer 3

你可以用IMAGE控件来模拟commandbutton按钮
sub image1_click()
你的代码！
end sub 
image图象对与IMAGE控件来说太简单了吧！