VB如何设置窗体背景图片随窗体大小自动调整？

Private Sub Form_Load()；

Me.Picture = LoadPicture("E:\Users\xjn\Pictures\Lotus.jpg")  '自己改图片路径；

Me.AutoRedraw = True；

End Sub；

Private Sub Form_Resize()；

Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.Height；

End Sub。

延展回答：

VB表格打印控件:自动识别并支持ADO和DAO两种数据库链接,也可以不链接数据库.(可以链接数据控件,也可以链接数据对象dao/ado).支持合并单元格、对齐、支持单元格斜线、支持多种单元格格式,可自动设置行高列宽.支持表格导出到word。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

1、vb6中窗体或部分控件有picture属性和BackColor属性

2、注意并没有BackgroundImage属性。

3、如果设置窗体背景颜色，BackColor属性。

比如：

Private Sub Command1_Click()

Me.BackColor = &H8080FF

End Sub

3、如果要设置窗体背景图片，只需在窗体的picture属性中选择一张图片就可以。

如下图

1）在窗体添加一个Image图像框控件。在它得属性页设置Stretch属性为True。

Stretch 属性，返回或设置一个值，该值用来指定一个图形是否要调整大小，以适应与 Image 控件的大小。如果 Stretch 被设置为 True，那么，控件大小的调整使得它所包含的图形的大小也要调整。

2）在代码中加入如下语句：

Private Sub Form_Resize()

    Image1.Height = Me.Height

    Image1.Width = Me.Width

End Sub

Resize事件，当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。（例如，一个窗体被最大化、最小化或被还原。）

3）在Image控件的Picture属性连接需要图片或在程序代码中使用LoadPicture 函数将图形载入到Image控件的 Picture 属性。

---