Question

vb我在窗口中放了一张图片 结果不能全部显示 只是一部分。我想让它全部显示在窗口中 ，要怎么设置属性？

Answer 1

用Image 控件，设置Stretch 属性为TRUE

Stretch 属性

返回或设置一个值，该值用来指定一个图形是否要调整大小，以适应与 Image 控件的大小。

语法

object.Stretch [= boolean]

Stretch 属性的语法包含下面部分：

部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Boolean 一个用来指定是否要调整图形的大小的布尔表达式，按照设置值的描述。

设置值

boolean 的设置值为：

设置值 描述
True 表示图形要调整大小以与控件相适合。
False （缺省值）表示控件要调整大小以与图形相适。

说明

如果 Stretch 被设置为 True，那么，控件大小的调整使得它所包含的图形的大小也要调整。

Answer 2

光靠设置窗体属性不可能完全显示图片,解决的办法有很多
1.作用一个Image控件,让它随窗体的变化一起变化,并将Image控件的Stretch 设为True
Private Sub Form_Load()
Image1.Top = 0
Image1.Left = 0
Image1.Width = Me.ScaleWidth
Image1.Height = Me.ScaleHeight
End Sub

Private Sub Form_Resize()
Image1.Width = Me.ScaleWidth
Image1.Height = Me.ScaleHeight
End Sub

Private Sub Image1_Click()
Image1.Stretch = True
End Sub
2.用一个PictureBOX来装载图片,将其设为不可见,并将其AutoSize设为True,然后使用PaintPicture方法将图片画到窗体上.
Private Sub Picture_load()
Me.PaintPicture Picture1, 0, 0, Me.Width, Me.Height, 0, 0, Picture1.Width, Picture1.Height
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Picture1.AutoSize = True
Picture1.Visible = False
Picture1.Picture = LoadPicture("d:\33.jpg")
Picture_load
End Sub

Private Sub Form_Resize()
Picture_load
End Sub
还可以使用API函数来实现,
但作用这些方法都有一个无法避免的缺陷,那就是当图片与窗体的长宽比不一样时,图片会产生失真.比如把长幅图片里的瘦子变成胖子.把宽幅里的胖子变成了瘦子.所以还是应该考虑留空

Answer 3

picturebox有一个sizemode属性你设置一下就好了 选择zoom和stretchimage 都行

追问

我是直接在窗口picture 属性中 设置了一张图片

追答

是不是窗口的背景啊 backgroundimage属性吧
你将form的backgroundimagelayout属性设置为stretch

唉我是vs2010的 没装vb6.0晕啊

Answer 4

你用的是picturebox吧，想全部显示就用image控件