毛主席

如何使Form的背景图随Form大小改变


: 我在表单的 picture 属性设好一个图, 成为表单的背景图,
: 但是当表单的大小拉大, 超过图案大小时, 就露出难看的空白,
: 请问如何设定, 才能让背景图随表单的大小而 stretch (伸展开来) 呢 ?

单纯显示图形用Image即可,而且用Image也正好可解决你的问题
设定Image的Stretch=true
在加入以下的code
Private Sub Form_Resize()
     Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

或者使用以下的方式来做也可以

Private Sub Form_Paint()
Me.PaintPicture Me.Picture, 0, 0, ScaleWidth, ScaleHeight
End Sub