就使用Picture控件,并使用下面的代码实现Image的功能:Private Sub Command1_Click() Dim p As StdPicture Set p = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\未命名.bmp")
Pic1.Width = Pic1.ScaleX(p.Width * 0.01, 6, Pic1.ScaleMode) Pic1.Height = Pic1.ScaleY(p.Height * 0.01, 6, Pic1.ScaleMode) Set Pic1.Picture = p End Sub
既然用到了picture控件, 那不如直接用picture加载图片
Dim p As StdPicture
Set p = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\未命名.bmp")
Pic1.Width = Pic1.ScaleX(p.Width * 0.01, 6, Pic1.ScaleMode)
Pic1.Height = Pic1.ScaleY(p.Height * 0.01, 6, Pic1.ScaleMode)
Set Pic1.Picture = p
End Sub
Pic1.Width = Pic1.ScaleX(p.Width * 0.01, 6, Pic1.ScaleMode)
Pic1.Height = Pic1.ScaleY(p.Height * 0.01, 6, Pic1.ScaleMode)这个就是,单位为你pic1的尺寸单位