Question

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

Answer 1

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) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Answer 2

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

Answer 3

'图片用Image1控件

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

追问

我不想使用控件，就窗体背景图片

追答

'图片自己随便加
Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.Height
End Sub