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

如题所述

举报该文章

相关建议 2018-04-04

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/2f8vfsff2.html

其他看法

第1个回答推荐于2017-10-02

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本回答被提问者和网友采纳

第2个回答 2013-01-05

'图片用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

相似回答

大家正在搜